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

* fixed type consistency in handler for array parameters on platforms where

Browse Source 
these have to be passed on the caller side (i.e., AArch64)

git-svn-id: trunk@40574 -
This commit is contained in:
Jonas Maebe 2018-12-16 20:44:38 +00:00
parent ac8411f3cf
commit 8845f4d1ce
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncal.pas
View File

@ -768,7 +768,7 @@ implementation
as a dynamic array here }
{ first restore the actual resultdef of left }
temparraydef:=left.resultdef;
left.resultdef:=parasym.vardef;
left.resultdef:=resultdef;
{ get its address }
lefttemp:=ctempcreatenode.create(voidpointertype,voidpointertype.size,tt_persistent,true);
addstatement(initstat,lefttemp);
@ -779,21 +779,19 @@ implementation
caddrnode.create_internal(left)
)
);
{ restore the resultdef }
left.resultdef:=temparraydef;
{ now treat that address (correctly) as the original
dynamic array to get its start and length }
arraybegin:=cvecnode.create(
ctypeconvnode.create_explicit(ctemprefnode.create(lefttemp),
left.resultdef),
temparraydef),
genintconstnode(0)
);
arraysize:=caddnode.create(muln,
geninlinenode(in_length_x,false,
ctypeconvnode.create_explicit(ctemprefnode.create(lefttemp),
left.resultdef)
temparraydef)
),
genintconstnode(tarraydef(left.resultdef).elementdef.size)
genintconstnode(tarraydef(temparraydef).elementdef.size)
);
end
else