Browse Source

* fix virtual without constructor warning for forward classes

git-svn-id: trunk@12253 -
peter 16 years ago
parent
commit
570ffacb92
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/pdecobj.pas

+ 2 - 0
compiler/pdecobj.pas

@@ -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^);