|
@@ -4878,6 +4878,7 @@ implementation
|
|
|
else
|
|
|
highloc.loc:=LOC_INVALID;
|
|
|
eldef:=tarraydef(tparavarsym(p).vardef).elementdef;
|
|
|
+ g_ptrtypecast_ref(list,cpointerdef.getreusable(tparavarsym(p).vardef),cpointerdef.getreusable(eldef),href);
|
|
|
g_array_rtti_helper(list,eldef,href,highloc,'fpc_finalize_array');
|
|
|
end
|
|
|
else
|
|
@@ -4943,6 +4944,7 @@ implementation
|
|
|
{ open arrays do not contain correct element count in their rtti,
|
|
|
the actual count must be passed separately. }
|
|
|
eldef:=tarraydef(tparavarsym(p).vardef).elementdef;
|
|
|
+ g_ptrtypecast_ref(list,cpointerdef.getreusable(tparavarsym(p).vardef),cpointerdef.getreusable(eldef),href);
|
|
|
g_array_rtti_helper(list,eldef,href,highloc,'fpc_addref_array');
|
|
|
end
|
|
|
else
|