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