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

* the following doesn't work: on texception do, was a parser error, fixed

Browse Source
This commit is contained in:
florian 1998-09-23 21:53:04 +00:00
parent 37e2ec72f2
commit 7f57cdf52c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pstatmnt.pas
View File

@ -574,10 +574,9 @@ unit pstatmnt;
if srsym^.typ=unitsym then
begin
consume(POINT);
getsymonlyin(punitsym(srsym)^.unitsymtable,objname);
getsymonlyin(punitsym(srsym)^.unitsymtable,pattern);
consume(ID);
end;
consume(ID);
if (srsym^.typ=typesym) and
(ptypesym(srsym)^.definition^.deftype=objectdef) and
pobjectdef(ptypesym(srsym)^.definition)^.isclass then
@ -1227,7 +1226,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.39 1998-09-21 10:26:07 peter
Revision 1.40 1998-09-23 21:53:04 florian
* the following doesn't work: on texception do, was a parser error, fixed
Revision 1.39 1998/09/21 10:26:07 peter
* merged fix
Revision 1.38.2.1 1998/09/21 10:24:43 peter