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

* don't allow forward class in separate type blocks for delphi (merged)

Browse Source
This commit is contained in:
peter 2000-08-20 15:01:17 +00:00
parent c21d6d6871
commit 8bd87aafd6
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/pdecl.pas
View File

@ -1028,10 +1028,23 @@ unit pdecl;
recorddef :
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) }
if not(psym(p)^.owner^.symtabletype in [objectsymtable,recordsymtable]) then
pobjectdef(pd)^.symtable^.foreach({$ifndef TP}@{$endif}resolve_type_forward);
begin
if not(m_fpc in aktmodeswitches) and
(oo_is_forward in pobjectdef(pd)^.objectoptions) then
begin
{ only give an error as the implementation may follow in an
other type block which is allowed by FPC modes }
MessagePos1(psym(p)^.fileinfo,sym_e_forward_type_not_resolved,p^.name);
end
else
begin
{ Check all fields of the object declaration, but 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;
until not again;
end;
@ -1286,7 +1299,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.10 2000-08-17 09:17:19 pierre
Revision 1.11 2000-08-20 15:01:17 peter
* don't allow forward class in separate type blocks for delphi (merged)
Revision 1.10 2000/08/17 09:17:19 pierre
* fix go32v2 cycle problem
Revision 1.9 2000/08/16 18:33:53 peter