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

codetools: read var postfix modifiers without first semicolon, bug #25537

Browse Source 
git-svn-id: trunk@43752 -
This commit is contained in:
mattias 2014-01-17 12:54:55 +00:00
parent f8d3895843
commit 27f1cc4c94
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

@ -3368,9 +3368,10 @@ begin
end else if CurPos.Flag=cafEND then begin
UndoReadNextAtom;
end else begin
// no postfix modifier
// the current atom is not a postfix modifier
if not HasSemicolon then
SaveRaiseCharExpectedButAtomFound(';');
UndoReadNextAtom;
end;
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;