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

* check for else after empty raise statement

Browse Source
This commit is contained in:
peter 2002-12-27 18:18:56 +00:00
parent 57a977b8f2
commit da3ef8b6d0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -488,7 +488,7 @@ implementation
paddr:=nil;
pframe:=nil;
consume(_RAISE);
if not(token in [_SEMICOLON,_END]) then
if not(token in [_SEMICOLON,_END,_ELSE]) then
begin
{ object }
pobj:=comp_expr(true);
@ -1147,7 +1147,10 @@ implementation
end.
{
$Log$
Revision 1.81 2002-11-27 02:37:14 peter
Revision 1.82 2002-12-27 18:18:56 peter
* check for else after empty raise statement
Revision 1.81 2002/11/27 02:37:14 peter
* case statement inlining added
* fixed inlining of write()
* switched statementnode left and right parts so the statements are