paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correct paraloc size for 3-byte records passed in the lower bits of a

Browse Source 
register (32 bit instead of 64 bit register)

git-svn-id: trunk@30222 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:36:43 +00:00
parent 3d6fcd8815
commit cea2741339
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/powerpc64/cpupara.pas
View File

@ -640,8 +640,18 @@ implemented
end
else if (paracgsize in [OS_NO, OS_128, OS_S128]) then
begin
paraloc^.size := OS_INT;
paraloc^.def := osuinttype;
if (paralen>4) or
(parashift<>0) then
begin
paraloc^.size := OS_INT;
paraloc^.def := osuinttype;
end
else
begin
{ for 3-byte records aligned in the lower bits of register }
paraloc^.size := OS_32;
paraloc^.def := u32inttype;
end;
end
else
begin