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

* fixed shr/shl 32

Browse Source
This commit is contained in:
peter 2004-08-16 21:00:30 +00:00
parent 4275383b15
commit f3f33a5fea
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/sparc/ncpumat.pas
View File

@ -210,19 +210,18 @@ implementation
begin
if nodetype = shln then
begin
cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterhigh);
if (shiftval and 31) <> 0 then
cg.a_op_const_reg_reg(exprasmlist,OP_SHL,OS_32,shiftval and 31,hregisterlow,hregisterhigh);
cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterlow);
cg.a_op_const_reg_reg(exprasmlist,OP_SHL,OS_32,shiftval and 31,hregisterlow,hregisterlow);
end
else
begin
cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterlow);
if (shiftval and 31) <> 0 then
cg.a_op_const_reg_reg(exprasmlist,OP_SHR,OS_32,shiftval and 31,hregisterhigh,hregisterlow);
cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterhigh);
cg.a_op_const_reg_reg(exprasmlist,OP_SHR,OS_32,shiftval and 31,hregisterhigh,hregisterhigh);
end;
{ registers are already swapped }
location.registerlow:=hregisterlow;
location.registerhigh:=hregisterhigh;
location.registerlow:=hregisterhigh;
location.registerhigh:=hregisterlow;
end
else
begin
@ -333,7 +332,10 @@ begin
end.
{
$Log$
Revision 1.19 2004-08-01 08:46:31 florian
Revision 1.20 2004-08-16 21:00:30 peter
* fixed shr/shl 32
Revision 1.19 2004/08/01 08:46:31 florian
* qword/int64 shifting fixed
Revision 1.18 2004/06/20 08:55:32 florian