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

* fixed forward checking within class/record

Browse Source
This commit is contained in:
peter 1999-10-01 11:15:57 +00:00
parent ee52225f00
commit b444d6fbe8
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pdecl.pas
View File

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