paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 13:20:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for r41416: 64 bit values on 32 bit platforms can of course also be

Browse Source 
passed in memory

git-svn-id: trunk@41526 -
This commit is contained in:
Jonas Maebe 2019-02-28 20:45:34 +00:00
parent 075e3da334
commit f78e2072a1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/hlcg2ll.pas
View File

@ -1550,7 +1550,7 @@ implementation
{$else cpu64bitalu}
{ use cg64 only for int64, not for 8 byte records; in particular,
filter out records passed in fpu/mm register}
if (l.size in [OS_64,OS_S64]) and (cgpara.Size in [OS_64,OS_S64]) and (cgpara.location^.loc=LOC_REGISTER) then
if (l.size in [OS_64,OS_S64]) and (cgpara.Size in [OS_64,OS_S64]) and (cgpara.location^.loc in [LOC_REGISTER,LOC_REFERENCE]) then
cg64.a_load64_loc_cgpara(list,l,cgpara)
else
{$endif cpu64bitalu}