Explorar o código

* fix virtual without constructor warning for forward classes

git-svn-id: trunk@12253 -
peter %!s(int64=17) %!d(string=hai) anos
pai
achega
570ffacb92
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      compiler/pdecobj.pas

+ 2 - 0
compiler/pdecobj.pas

@@ -720,7 +720,9 @@ implementation
            ) then
           current_objectdef.insertvmt;
 
+        { for implemented classes with a vmt check if there is a constructor }
         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
           Message1(parser_w_virtual_without_constructor,current_objectdef.objrealname^);