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

* fix virtual without constructor warning for forward classes

Browse Source 
git-svn-id: trunk@12253 -
This commit is contained in:
peter 2008-11-27 19:04:54 +00:00
parent dd4b94357e
commit 570ffacb92
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecobj.pas
View File

@ -720,7 +720,9 @@ implementation
) then ) then
current_objectdef.insertvmt; current_objectdef.insertvmt;
{ for implemented classes with a vmt check if there is a constructor }
if (oo_has_vmt in current_objectdef.objectoptions) and if (oo_has_vmt in current_objectdef.objectoptions) and
not(oo_is_forward in current_objectdef.objectoptions) and
not(oo_has_constructor in current_objectdef.objectoptions) then not(oo_has_constructor in current_objectdef.objectoptions) then
Message1(parser_w_virtual_without_constructor,current_objectdef.objrealname^); Message1(parser_w_virtual_without_constructor,current_objectdef.objrealname^);