paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 13:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

* check for unresolved forward classes in the interface

Browse Source
This commit is contained in:
peter 2002-01-19 15:12:34 +00:00
parent 60a3de5d59
commit d6fb9766ee
2 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/psub.pas
View File

@ -49,7 +49,7 @@ implementation
{ aasm }
cpubase,aasm,
{ symtable }
symconst,symbase,symdef,symsym,symtable,types,
symconst,symbase,symdef,symsym,symtype,symtable,types,
ppu,fmodule,
{ pass 1 }
node,
@ -558,7 +558,6 @@ implementation
oldconstsymtable : tsymtable;
oldfilepos : tfileposinfo;
pdflags : word;
prevdef,stdef : tprocdef;
begin
{ save old state }
oldprocdef:=aktprocdef;
@ -820,6 +819,16 @@ implementation
end;
{ search in symtablestack for not complete classes }
procedure check_forward_class(p : tnamedindexitem);
begin
if (tsym(p).typ=typesym) and
(ttypesym(p).restype.def.deftype=objectdef) and
(oo_is_forward in tobjectdef(ttypesym(p).restype.def).objectoptions) then
MessagePos1(tsym(p).fileinfo,sym_e_forward_type_not_resolved,tsym(p).realname);
end;
procedure read_interface_declarations;
begin
{Since the body is now parsed at lexlevel 1, and the declarations
@ -846,12 +855,19 @@ implementation
end;
until false;
dec(lexlevel);
{ check for incomplete class definitions, this is only required
for fpc modes }
if (m_fpc in aktmodeswitches) then
symtablestack.foreach_static({$ifdef FPCPROCVAR}@{$endif}check_forward_class);
end;
end.
{
$Log$
Revision 1.41 2001-11-02 22:58:06 peter
Revision 1.42 2002-01-19 15:12:34 peter
* check for unresolved forward classes in the interface
Revision 1.41 2001/11/02 22:58:06 peter
* procsym definition rewrite
Revision 1.40 2001/10/25 21:22:37 peter

7
compiler/symdef.pas
View File

@ -4150,8 +4150,6 @@ implementation
begin
if assigned(symtable) then
symtable.free;
if (oo_is_forward in objectoptions) then
Message1(sym_e_class_forward_not_resolved,objname^);
stringdispose(objname);
stringdispose(iidstr);
if assigned(implementedinterfaces) then
@ -5474,7 +5472,10 @@ implementation
end.
{
$Log$
Revision 1.63 2002-01-06 21:52:30 peter
Revision 1.64 2002-01-19 15:12:34 peter
* check for unresolved forward classes in the interface
Revision 1.63 2002/01/06 21:52:30 peter
* fixed previous commit