paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:09:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed shr of 64 bit values by non-immediate value

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-24 19:15:29 +00:00
parent 527153658e
commit 4ca3d9a2e9
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/powerpc/nppcmat.pas
View File

@ -260,6 +260,9 @@ implementation
begin
asmop1 := A_SRW;
asmop2 := A_SLW;
resultreg := hregisterhigh;
hregisterhigh := hregisterlow;
hregisterlow := resultreg;
resultreg := location.registerhigh;
location.registerhigh := location.registerlow;
location.registerlow := resultreg;
@ -286,6 +289,13 @@ implementation
location.registerlow,hregisterlow,hregister1));
rg.ungetregisterint(exprasmlist,r);
if nodetype = shrn then
begin
resultreg := location.registerhigh;
location.registerhigh := location.registerlow;
location.registerlow := resultreg;
end;
if right.location.loc in [LOC_CREFERENCE,LOC_REFERENCE] then
cg.free_scratch_reg(exprasmlist,hregister1)
else
@ -510,7 +520,10 @@ begin
end.
{
$Log$
Revision 1.26 2003-05-11 11:45:08 jonas
Revision 1.27 2003-05-24 19:15:29 jonas
* fixed shr of 64 bit values by non-immediate value
Revision 1.26 2003/05/11 11:45:08 jonas
* fixed shifts
Revision 1.25 2003/04/24 12:57:32 florian