opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #685: Fix fatal performance bug, calling GetSQL on each examined character of a TSQLSentence. See report on https://www.heidisql.com/forum.php?t=34935

Browse Source
This commit is contained in:
Ansgar Becker
2019-11-13 08:16:24 +01:00
parent 586b34cd08
commit 7b99bcc823
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/apphelpers.pas
View File

@ -3150,10 +3150,10 @@ begin
Prev1 := #0;
Prev2 := #0;
for i:=1 to Length(FullSQL) do begin
Cur := SQL[i];
Cur := FullSQL[i];
AddCur := True;
if i > 1 then Prev1 := SQL[i-1];
if i > 2 then Prev2 := SQL[i-2];
if i > 1 then Prev1 := FullSQL[i-1];
if i > 2 then Prev2 := FullSQL[i-2];
if (Cur = '*') and (Prev1 = '/') then begin
InMultiLineComment := True;