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

* qword/int64 shifting fixed

Browse Source
This commit is contained in:
florian 2004-08-01 08:46:31 +00:00
parent 9fab2cc120
commit 8eaf31e212
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/sparc/ncpumat.pas
View File

@ -220,8 +220,9 @@ implementation
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);
end;
location.registerhigh:=hregisterlow;
location.registerlow:=hregisterhigh;
{ registers are already swapped }
location.registerlow:=hregisterlow;
location.registerhigh:=hregisterhigh;
end
else
begin
@ -332,7 +333,10 @@ begin
end.
{
$Log$
Revision 1.18 2004-06-20 08:55:32 florian
Revision 1.19 2004-08-01 08:46:31 florian
* qword/int64 shifting fixed
Revision 1.18 2004/06/20 08:55:32 florian
* logs truncated
Revision 1.17 2004/06/16 20:07:11 florian