فهرست منبع

Reference counted classes are considered as needing an init table.

symdef.pas, tobjectdef:
  * needs_inittable: if oo_is_reference_counted is set then the objectdef needs an init table

git-svn-id: branches/svenbarth/arc@28866 -
svenbarth 11 سال پیش
والد
کامیت
3a0fca6380
1فایلهای تغییر یافته به همراه3 افزوده شده و 2 حذف شده
  1. 3 2
      compiler/symdef.pas

+ 3 - 2
compiler/symdef.pas

@@ -6443,9 +6443,10 @@ implementation
         hp : tobjectdef;
       begin
          case objecttype of
-            odt_helper,
-            odt_class :
+            odt_helper:
               needs_inittable:=false;
+            odt_class:
+              needs_inittable:=oo_is_reference_counted in objectoptions;
             odt_dispinterface,
             odt_interfacecom:
               needs_inittable:=true;