paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 11:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed reading til statement end, bug #7970

Browse Source 
git-svn-id: trunk@15208 -
This commit is contained in:
mattias 2008-05-22 15:08:31 +00:00
parent a45d589f57
commit 49291a20cd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/pascalparsertool.pas
View File

@ -2402,8 +2402,9 @@ begin
UndoReadNextAtom; UndoReadNextAtom;
exit; exit;
end; end;
cafSemicolon, cafNone: exit; cafSemicolon: exit;
else else
if CurPos.StartPos>SrcLen then exit;
ReadNextAtom; ReadNextAtom;
end; end;
end; end;