paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +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 if srsym^.typ=unitsym then
begin begin
consume(POINT); consume(POINT);
getsymonlyin(punitsym(srsym)^.unitsymtable,objname); getsymonlyin(punitsym(srsym)^.unitsymtable,pattern);
consume(ID); consume(ID);
end; end;
consume(ID);
if (srsym^.typ=typesym) and if (srsym^.typ=typesym) and
(ptypesym(srsym)^.definition^.deftype=objectdef) and (ptypesym(srsym)^.definition^.deftype=objectdef) and
pobjectdef(ptypesym(srsym)^.definition)^.isclass then pobjectdef(ptypesym(srsym)^.definition)^.isclass then
@ -1227,7 +1226,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $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 * merged fix
Revision 1.38.2.1 1998/09/21 10:24:43 peter Revision 1.38.2.1 1998/09/21 10:24:43 peter