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

codetools: fixed endless loop parsing proc modifiers at end of source

Browse Source
This commit is contained in:
mattias 2025-01-30 09:24:07 +01:00
parent 572cc8bbf4
commit 89d494f909
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalreadertool.pas
View File

@ -1308,7 +1308,7 @@ begin
exit(false); exit(false);
end; end;
MoveCursorToFirstProcSpecifier(ProcNode); MoveCursorToFirstProcSpecifier(ProcNode);
while (CurPos.StartPos<=ProcNode.FirstChild.EndPos) do begin while (CurPos.StartPos<ProcNode.FirstChild.EndPos) do begin
if CurPos.Flag=cafSemicolon then begin if CurPos.Flag=cafSemicolon then begin
ReadNextAtom; ReadNextAtom;
end else begin end else begin