paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for bug #37760

Browse Source 
git-svn-id: trunk@47019 -
This commit is contained in:
michael 2020-09-30 14:01:00 +00:00
parent 4a6358bfc1
commit abe463d576
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-passrc/src/pparser.pp
View File

@ -5986,7 +5986,20 @@ begin
El:=nil;
end;
if (CurToken=tkelse) and (TPasImplIfElse(CurBlock).ElseBranch=nil) then
break; // add next statement as ElseBranch
begin
// Check if next token is an else too
NextToken;
if CurToken = tkElse then
begin
// empty ELSE statement without semicolon e.g. if condition then [...] else else
El:=TPasImplCommand(CreateElement(TPasImplCommand,'', CurBlock,CurTokenPos));
CurBlock.AddElement(El); // this sets TPasImplIfElse(CurBlock).IfBranch:=El
El:=nil;
CloseBlock;
end;
UngetToken;
break; // add next statement as ElseBranch
end;
end
else if (CurBlock is TPasImplTryExcept) and (CurToken=tkelse) then
begin