Преглед изворни кода

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 пре 10 година
родитељ
комит
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;