hlcgobj.pas, thlcgobj: g_initialize: also initialize classes which are reference counted with 0 (aka Nil) git-svn-id: branches/svenbarth/arc@28865 -
@@ -3137,7 +3137,8 @@ implementation
is_widestring(t) or
is_unicodestring(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)
else if t.typ=variantdef then
begin