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

codetools: clean up

Browse Source 
git-svn-id: branches/fixes_1_8@56566 -
This commit is contained in:
mattias 2017-11-30 21:31:49 +00:00
parent a2187cc1e3
commit c43f985d49
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/pascalparsertool.pas
View File

@ -2090,11 +2090,10 @@ begin
EndChildNode; EndChildNode;
if CurPos.Flag=cafSemicolon then break; if CurPos.Flag=cafSemicolon then break;
if CurPos.Flag<>cafComma then if CurPos.Flag<>cafComma then
if ExceptionOnError then begin if ExceptionOnError then
CTDumpStack; SaveRaiseCharExpectedButAtomFound(20170421195538,';')
SaveRaiseCharExpectedButAtomFound(20170421195538,';'); else
end exit;
else exit;
until (CurPos.StartPos>SrcLen); until (CurPos.StartPos>SrcLen);
CurNode.EndPos:=CurPos.EndPos; CurNode.EndPos:=CurPos.EndPos;
EndChildNode; EndChildNode;