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

codetools: parsing else else, bug #23497

Browse Source 
git-svn-id: trunk@39669 -
This commit is contained in:
mattias 2012-12-27 23:36:39 +00:00
parent e2d0c4d4f6
commit 15f0c7aa65
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/pascalparsertool.pas
View File

@ -2816,8 +2816,16 @@ begin
end else end else
RaiseStrExpectedWithBlockStartHint('"if"'); RaiseStrExpectedWithBlockStartHint('"if"');
end else if UpAtomIs('ELSE') then begin end else if UpAtomIs('ELSE') then begin
if (BlockType=ebtIf) and (IfType=itThen) then begin if (BlockType=ebtIf) then begin
IfType:=itElse; if (IfType=itThen) then
IfType:=itElse
else if IfType=itElse then begin
// e.g. if then if then else |else ;
CloseNode;
UndoReadNextAtom;
break;
end else
RaiseStrExpectedWithBlockStartHint('"then"');
end else if BlockType=ebtCase then begin end else if BlockType=ebtCase then begin
end else end else
RaiseStrExpectedWithBlockStartHint('"if"'); RaiseStrExpectedWithBlockStartHint('"if"');