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

Codetool: fix endless loop in "Find block begin", when already at start of file. Issue #40326

Browse Source
This commit is contained in:
Martin 2023-06-18 10:37:55 +02:00
parent ac18b36c00
commit 4f1d9530d5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/stdcodetools.pas
View File

@ -5339,6 +5339,8 @@ begin
ReadBackTilBlockEnd(true); ReadBackTilBlockEnd(true);
if CursorOnStart then exit(true); if CursorOnStart then exit(true);
end; end;
if CurPos.StartPos <= 1 then // Issue #40326
break;
ReadPriorAtom; ReadPriorAtom;
until CurPos.StartPos<MinPos; until CurPos.StartPos<MinPos;
end; end;