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

codetools: fixed parsing on e:exception do ;, bug #23549

Browse Source 
git-svn-id: trunk@39681 -
This commit is contained in:
mattias 2012-12-29 12:08:34 +00:00
parent af39ff4c28
commit 33e29aca8a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/pascalparsertool.pas
View File

@ -3142,6 +3142,8 @@ function TPascalParserTool.ReadOnStatement(ExceptionOnError,
// on Unit.Exception do ;
// on Unit.Exception do else ;
// on Unit.Exception do ; else ;
var
NeedUndo: Boolean;
begin
if CreateNodes then begin
CreateChildNode;
@ -3205,15 +3207,20 @@ begin
CurNode.EndPos:=CurPos.EndPos;
EndChildNode; // ctnOnVariable
end;
NeedUndo:=false;
if CurPos.Flag=cafSemicolon then begin
// for example: on E: Exception do ; else ;
ReadNextAtom;
NeedUndo:=true;
end;
if UpAtomIs('ELSE') then begin
// for example: on E: Exception do else ;
ReadNextAtom;
ReadTilStatementEnd(true,CreateNodes);
NeedUndo:=false;
end;
if NeedUndo then
UndoReadNextAtom;
Result:=true;
end;