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

* commited the wrong file :(

Browse Source
This commit is contained in:
peter 2002-01-19 15:37:24 +00:00
parent f4de74d6be
commit a6d63f0adc
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/psub.pas
View File

@ -756,6 +756,16 @@ implementation
DECLARATION PARSING DECLARATION PARSING
****************************************************************************} ****************************************************************************}
{ 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_declarations(islibrary : boolean); procedure read_declarations(islibrary : boolean);
procedure Not_supported_for_inline(t : ttoken); procedure Not_supported_for_inline(t : ttoken);
@ -823,16 +833,6 @@ implementation
end; 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; procedure read_interface_declarations;
begin begin
{Since the body is now parsed at lexlevel 1, and the declarations {Since the body is now parsed at lexlevel 1, and the declarations
@ -868,7 +868,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.43 2002-01-19 15:20:09 peter Revision 1.44 2002-01-19 15:37:24 peter
* commited the wrong file :(
Revision 1.43 2002/01/19 15:20:09 peter
* also check at the end of the implementation for incomplete classes * also check at the end of the implementation for incomplete classes
Revision 1.42 2002/01/19 15:12:34 peter Revision 1.42 2002/01/19 15:12:34 peter