Selaa lähdekoodia

Initialize reference counted class variables (or out parameters) with Nil.

hlcgobj.pas, thlcgobj:
  g_initialize: also initialize classes which are reference counted with 0 (aka Nil)

git-svn-id: branches/svenbarth/arc@28865 -
svenbarth 10 vuotta sitten
vanhempi
commit
8721896d92
1 muutettua tiedostoa jossa 2 lisäystä ja 1 poistoa
  1. 2 1
      compiler/hlcgobj.pas

+ 2 - 1
compiler/hlcgobj.pas

@@ -3137,7 +3137,8 @@ implementation
           is_widestring(t) or
           is_widestring(t) or
           is_unicodestring(t) or
           is_unicodestring(t) or
           is_interfacecom_or_dispinterface(t) or
           is_interfacecom_or_dispinterface(t) or
-          is_dynamic_array(t) then
+          is_dynamic_array(t) or
+          (is_class(t) and (oo_is_reference_counted in tobjectdef(t).objectoptions)) then
          a_load_const_ref(list,t,0,ref)
          a_load_const_ref(list,t,0,ref)
        else if t.typ=variantdef then
        else if t.typ=variantdef then
          begin
          begin