Переглянути джерело

* don't insert bogus vmt field in forward-defined classes

git-svn-id: trunk@14961 -
Jonas Maebe 15 роки тому
батько
коміт
e693b47234
1 змінених файлів з 1 додано та 0 видалено
  1. 1 0
      compiler/pdecobj.pas

+ 1 - 0
compiler/pdecobj.pas

@@ -955,6 +955,7 @@ implementation
 
 
         { generate vmt space if needed }
         { generate vmt space if needed }
         if not(oo_has_vmt in current_objectdef.objectoptions) and
         if not(oo_has_vmt in current_objectdef.objectoptions) and
+           not(oo_is_forward in current_objectdef.objectoptions) and
            (
            (
             ([oo_has_virtual,oo_has_constructor,oo_has_destructor]*current_objectdef.objectoptions<>[]) or
             ([oo_has_virtual,oo_has_constructor,oo_has_destructor]*current_objectdef.objectoptions<>[]) or
             (current_objectdef.objecttype in [odt_class])
             (current_objectdef.objecttype in [odt_class])