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

* fixed optimized 64 compares

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-07 22:15:48 +00:00
parent 5ed7522ade
commit d1ac166584
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/powerpc/nppcadd.pas
View File

@ -897,7 +897,7 @@ interface
tempreg64.reglo := cg.get_scratch_reg_int(exprasmlist)
else
tempreg64.reglo := left.location.registerlow;
if ((right.location.valueqword shr 16) <> 0) then
if ((right.location.valueqword shr 32) <> 0) then
tempreg64.reghi := cg.get_scratch_reg_int(exprasmlist)
else
tempreg64.reghi := left.location.registerhigh;
@ -909,10 +909,10 @@ interface
aword(right.location.valueqword),
left.location.registerlow,tempreg64.reglo);
end;
if ((right.location.valueqword shr 16) <> 0) then
if ((right.location.valueqword shr 32) <> 0) then
begin
cg.a_op_const_reg_reg(exprasmlist,OP_XOR,OS_INT,
(right.location.valueqword shr 16),
(right.location.valueqword shr 32),
left.location.registerhigh,tempreg64.reghi);
end;
end
@ -1453,7 +1453,10 @@ begin
end.
{
$Log$
Revision 1.16 2002-09-04 19:42:45 jonas
Revision 1.17 2002-09-07 22:15:48 jonas
* fixed optimized 64 compares
Revision 1.16 2002/09/04 19:42:45 jonas
* fixed bugs in 64bit operations (registers weren't always allocated for
the result)
* optimized 'const64 - reg64/mem64'