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

+ some support for SPARC64 calling conventions

Browse Source 
git-svn-id: trunk@36441 -
This commit is contained in:
florian 2017-06-06 20:30:30 +00:00
parent ea8774c18d
commit 19f842663b
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/sparcgen/sppara.pas
View File

@ -220,6 +220,20 @@ implementation
while paralen>0 do
begin
paraloc:=hp.paraloc[side].add_location;
{$ifdef SPARC64}
{ Floats are passed in int registers }
if paracgsize=OS_F32 then
begin
paraloc^.size:=OS_32;
paraloc^.def:=u32inttype;
end
else if paracgsize=OS_F64 then
begin
paraloc^.size:=OS_64;
paraloc^.def:=u64inttype;
end
else
{$else SPARC64}
{ Floats are passed in int registers,
We can allocate at maximum 32 bits per register }
if paracgsize in [OS_64,OS_S64,OS_F32,OS_F64] then
@ -228,6 +242,7 @@ implementation
paraloc^.def:=u32inttype;
end
else
{$endif SPARC64}
begin
paraloc^.size:=paracgsize;
paraloc^.def:=paradef;