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

* class/record type forward checking fixed

Browse Source
This commit is contained in:
peter 1999-10-01 11:18:02 +00:00
parent 051ec27f30
commit ca15c4c4fb
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecl.pas
View File

@ -128,9 +128,7 @@ unit pdecl;
end;
end;
recorddef :
{ only check anonymous records }
if not assigned(precorddef(p)^.sym) then
precorddef(pd)^.symtable^.foreach({$ifndef TP}@{$endif}resolve_type_forward);
precorddef(pd)^.symtable^.foreach({$ifndef TP}@{$endif}resolve_type_forward);
objectdef :
{ Don't check objectdefs in objects/records, because these can't
exist (anonymous objects aren't allowed) }
@ -2606,8 +2604,8 @@ unit pdecl;
end.
{
$Log$
Revision 1.160 1999-10-01 11:15:57 peter
* fixed forward checking within class/record
Revision 1.161 1999-10-01 11:18:02 peter
* class/record type forward checking fixed
Revision 1.159 1999/10/01 10:05:42 peter
+ procedure directive support in const declarations, fixes bug 232