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

--- Merging r44380 into '.':

Browse Source 
U    compiler/cgobj.pas
--- Recording mergeinfo for merge of r44380 into '.':
 U   .

git-svn-id: tags/release_3_2_0@45643 -
This commit is contained in:
Jonas Maebe 2020-06-13 14:06:37 +00:00
parent d9849b37fb
commit 792ea2b250
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgobj.pas
View File

@ -1223,8 +1223,12 @@ implementation
shifted to the top of the to 4 resp. 8 byte register on the
caller side and needs to be stored with those bytes at the
start of the reference -> don't shift right }
else if (paraloc.shiftval<0) and
((-paraloc.shiftval) in [8,16,32]) then
else if (paraloc.shiftval<0)
{$ifdef CPU64BITALU}
and ((-paraloc.shiftval) in [56{for byte},48{for two bytes},32{for four bytes}])
{$else}
and ((-paraloc.shiftval) in [24{for byte},16{for two bytes}])
{$endif} then
begin
a_op_const_reg_reg(list,OP_SHR,OS_INT,-paraloc.shiftval,paraloc.register,paraloc.register);
{ convert to a register of 1/2/4 bytes in size, since the