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

* changed to symbolic const for alignment

Browse Source
This commit is contained in:
olle 2003-10-08 21:15:27 +00:00
parent 9647af4066
commit 3febb20061
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/powerpc/cpupara.pas
View File

@ -237,7 +237,7 @@ unit cpupara;
end;
{ make sure all alignment bytes are 0 as well }
fillchar(paraloc,sizeof(paraloc),0);
paraloc.Alignment:=4;
paraloc.alignment:= std_param_align;
case loc of
LOC_REGISTER:
begin
@ -324,6 +324,7 @@ unit cpupara;
{ Function return }
fillchar(paraloc,sizeof(tparalocation),0);
paraloc.alignment:= std_param_align;
paraloc.size:=def_cgsize(p.rettype.def);
{ Return in FPU register? }
if p.rettype.def.deftype=floatdef then
@ -358,8 +359,8 @@ begin
end.
{
$Log$
Revision 1.48 2003-10-08 14:11:36 mazen
+ Alignement field added to TParaLocation (=4 as 32 bits archs)
Revision 1.49 2003-10-08 21:15:27 olle
* changed to symbolic const for alignment
Revision 1.47 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo