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

* Fixed r46801 for the case of int64 params with a single paralocation.

Browse Source 
git-svn-id: trunk@46802 -
This commit is contained in:
yury 2020-09-08 20:17:50 +00:00
parent e159c92967
commit d34168742e
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/ncgutil.pas
View File

@ -633,7 +633,7 @@ implementation
Spilling of sub registers is supported for x86. Spilling of sub registers is supported for x86.
} }
if regsize>tcgsize2size[paraloc^.Size] then if (paraloc<>nil) and (regsize>tcgsize2size[paraloc^.Size]) then
break; break;
{$endif x86} {$endif x86}
cg.rg[regtype].set_reg_initial_location(reg,loc.reference); cg.rg[regtype].set_reg_initial_location(reg,loc.reference);