paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 18:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: Fixed broken string compare optimization

Browse Source 
git-svn-id: trunk@64782 -
This commit is contained in:
martin 2021-03-10 22:49:50 +00:00
parent 63fc1a91aa
commit 0b328ad5de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazdebuggergdbmi/gdbtypeinfo.pp
View File

@ -2413,7 +2413,7 @@ var
while true do begin
while (j <= l) and (S2[j] in ['^','(', ' ']) do
inc(j);
if StrLIComp('array ', @S2[j], 6) = 0 then begin
if (j <= l) and (StrLIComp('array ', @S2[j], 6) = 0) then begin
inc(j, 5+3);
while (j <= l) and
not ( (S2[j-3] = ' ') and (S2[j-2] in ['o','O']) and (S2[j-1] in ['f','F']) and (S2[j] = ' ') )
@ -2423,7 +2423,7 @@ var
end;
break;
end;
if (StrLIComp('record ', @S2[j], 7) = 0) and
if (j <= l) and (StrLIComp('record ', @S2[j], 7) = 0) and
not( (copy(S2, j+7, 1) = ';') or (copy(S2, j+7, 6) = '{...};') )
then begin
i := 1;