paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 17:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed type correctness of array parameter handling for calls to

Browse Source 
fpc_addref_array/fpc_finalize_array (those helpers expect a pointer
    to the elements of the array, not a pointer to the array)

git-svn-id: trunk@32779 -
This commit is contained in:
Jonas Maebe 2015-12-28 15:06:29 +00:00
parent 35a170ed8e
commit 1a09209659
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/hlcgobj.pas
View File

@ -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