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

* fixed generation of ANDI and ANDIS instructions in the optimizer, properly casting the immediate parameter to an unsigned integer

Browse Source 
git-svn-id: trunk@3800 -
This commit is contained in:
tom_at_work 2006-06-04 21:16:10 +00:00
parent b47a0d02fd
commit c5cbdda62e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/aoptcpu.pas
View File

@ -414,9 +414,9 @@ const
(taicpu(p).oper[4]^.val < 16) then
begin
taicpu(p).opcode := A_ANDIS_;
taicpu(p).oper[2]^.val :=
taicpu(p).oper[2]^.val := word(
((1 shl (16-taicpu(p).oper[3]^.val)) - 1) xor
((1 shl (15-taicpu(p).oper[4]^.val)) - 1);
((1 shl (15-taicpu(p).oper[4]^.val)) - 1));
taicpu(p).clearop(3);
taicpu(p).clearop(4);
taicpu(p).ops := 3;
@ -426,7 +426,7 @@ const
(taicpu(p).oper[4]^.val >= 16) then
begin
taicpu(p).opcode := A_ANDI_;
taicpu(p).oper[2]^.val := rlwinm2mask(taicpu(p).oper[3]^.val,taicpu(p).oper[4]^.val);
taicpu(p).oper[2]^.val := word(rlwinm2mask(taicpu(p).oper[3]^.val,taicpu(p).oper[4]^.val));
taicpu(p).clearop(3);
taicpu(p).clearop(4);
taicpu(p).ops := 3;