paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:29:30 +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;
if CurPos.Flag=cafSemicolon then break;
if CurPos.Flag<>cafComma then
if ExceptionOnError then begin
CTDumpStack;
SaveRaiseCharExpectedButAtomFound(20170421195538,';');
end
else exit;
if ExceptionOnError then
SaveRaiseCharExpectedButAtomFound(20170421195538,';')
else
exit;
until (CurPos.StartPos>SrcLen);
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;