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

* SPARC: properly justify parameters on stack with size less than 4, fixes failure on tests/cg/tcalext5.pp

Browse Source 
git-svn-id: trunk@26294 -
This commit is contained in:
sergei 2013-12-28 09:23:10 +00:00
parent 176d8434e4
commit d70a880f33
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/sparc/cpupara.pas
View File

@ -304,6 +304,12 @@ implementation
else else
paraloc^.reference.index:=NR_FRAME_POINTER_REG; paraloc^.reference.index:=NR_FRAME_POINTER_REG;
paraloc^.reference.offset:=target_info.first_parm_offset+parasize; paraloc^.reference.offset:=target_info.first_parm_offset+parasize;
if (target_info.endian=endian_big) and
(paralen<tcgsize2size[OS_INT]) and
(paradef.typ<>recorddef) then
inc(paraloc^.reference.offset,4-paralen);
{ Parameters are aligned at 4 bytes } { Parameters are aligned at 4 bytes }
inc(parasize,align(tcgsize2size[paraloc^.size],sizeof(pint))); inc(parasize,align(tcgsize2size[paraloc^.size],sizeof(pint)));
end; end;