paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 18:48:04 +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; p1:=nil;
p2:=nil; p2:=nil;
consume(_RAISE); consume(_RAISE);
if token<>_SEMICOLON then if not(token in [_SEMICOLON,_END]) then
begin begin
p1:=comp_expr(true); p1:=comp_expr(true);
if (idtoken=_AT) then if (idtoken=_AT) then
@ -1320,7 +1320,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $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 * truncated log to 20 revs
Revision 1.105 1999/10/22 10:39:35 peter Revision 1.105 1999/10/22 10:39:35 peter