paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix from Florian for init/final info of forward classes

Browse Source
This commit is contained in:
Jonas Maebe 2002-06-12 13:20:29 +00:00
parent d3df5063f0
commit 7a66a12e63
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecl.pas
View File

@ -496,7 +496,10 @@ implementation
be reused in other used } be reused in other used }
if (not current_module.in_implementation) and if (not current_module.in_implementation) and
(tt.def.needs_inittable or (tt.def.needs_inittable or
is_class(tt.def)) then (is_class(tt.def) and
not(oo_is_forward in tobjectdef(tt.def).objectoptions)
)
) then
generate_inittable(newtype); generate_inittable(newtype);
{ for objects we should write the vmt and interfaces. { for objects we should write the vmt and interfaces.
@ -608,7 +611,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.46 2002-05-18 13:34:12 peter Revision 1.47 2002-06-12 13:20:29 jonas
* fix from Florian for init/final info of forward classes
Revision 1.46 2002/05/18 13:34:12 peter
* readded missing revisions * readded missing revisions
Revision 1.45 2002/05/16 19:46:42 carl Revision 1.45 2002/05/16 19:46:42 carl