paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 23:51:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* changed to symbolic const for alignment

Browse Source 
+ alignment set for function result
This commit is contained in:
olle 2003-10-08 21:16:27 +00:00
parent 3febb20061
commit ac930a13e2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/sparc/cpupara.pas
View File

@ -160,7 +160,7 @@ implementation
while assigned(hp) do
begin
fillchar(paraloc,sizeof(paraloc),0);
paraloc.Alignment:=4;
paraloc.Alignment:= std_param_align;
if push_addr_param(hp.paratyp,hp.paratype.def,p.proccalloption) or (hp.paratyp in [vs_var,vs_out]) then
paraloc.size:=OS_ADDR
else
@ -225,6 +225,7 @@ implementation
{ Function return }
fillchar(paraloc,sizeof(tparalocation),0);
paraloc.size:=def_cgsize(p.rettype.def);
paraloc.Alignment:= std_param_align;
{ Return in FPU register? }
if p.rettype.def.deftype=floatdef then
begin
@ -294,7 +295,11 @@ begin
end.
{
$Log$
Revision 1.32 2003-10-08 14:11:36 mazen
Revision 1.33 2003-10-08 21:16:27 olle
* changed to symbolic const for alignment
+ alignment set for function result
Revision 1.32 2003/10/08 14:11:36 mazen
+ Alignement field added to TParaLocation (=4 as 32 bits archs)
Revision 1.31 2003/10/01 20:34:50 peter