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

Attempt to fix tcalext3 big-endian powerpc64 failure

Browse Source
This commit is contained in:
Pierre Muller 2023-10-11 00:55:16 +02:00
parent 131331bc50
commit 922893ddbb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/cgobj.pas
View File

@ -1245,7 +1245,8 @@ implementation
begin
hreg:=paraloc.register;
cgsize:=paraloc.size;
if paraloc.shiftval>0 then
if (paraloc.shiftval>0) and
not ((target_info.endian=endian_big) and (sizeleft in [3,5,6,7])) then
a_op_const_reg_reg(list,OP_SHL,OS_INT,paraloc.shiftval,paraloc.register,paraloc.register)
{ in case the original size was 3 or 5/6/7 bytes, the value was
shifted to the top of the to 4 resp. 8 byte register on the