paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 'raise end;'

Browse Source
This commit is contained in:
peter 1999-11-09 13:02:46 +00:00
parent 225bbac550
commit b8b39e0980
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

@ -491,7 +491,7 @@ unit pstatmnt;
p1:=nil;
p2:=nil;
consume(_RAISE);
if token<>_SEMICOLON then
if not(token in [_SEMICOLON,_END]) then
begin
p1:=comp_expr(true);
if (idtoken=_AT) then
@ -1320,7 +1320,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.106 1999-11-06 14:34:23 peter
Revision 1.107 1999-11-09 13:02:46 peter
* fixed 'raise end;'
Revision 1.106 1999/11/06 14:34:23 peter
* truncated log to 20 revs
Revision 1.105 1999/10/22 10:39:35 peter