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

+ added debug messages

Browse Source
This commit is contained in:
florian 2023-03-08 22:54:17 +01:00
parent 0e2102e172
commit 66ff7a928c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/aoptx86.pas
View File

@ -1555,6 +1555,8 @@ unit aoptx86;
l : TCGInt;
begin
result:=false;
if not(GetNextInstruction(p, hp1)) then
exit;
{ changes the code sequence
shr/sar const1, x
shl const2, x
@ -1562,9 +1564,8 @@ unit aoptx86;
to
either "sar/and", "shl/and" or just "and" depending on const1 and const2 }
if GetNextInstruction(p, hp1) and
if (taicpu(p).oper[0]^.typ = top_const) and
MatchInstruction(hp1,A_SHL,[]) and
(taicpu(p).oper[0]^.typ = top_const) and
(taicpu(hp1).oper[0]^.typ = top_const) and
(taicpu(hp1).opsize = taicpu(p).opsize) and
(taicpu(hp1).oper[1]^.typ = taicpu(p).oper[1]^.typ) and
@ -1576,6 +1577,7 @@ unit aoptx86;
{ shr/sar const1, %reg
shl const2, %reg
with const1 > const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2SxrAnd 1 done',p);
taicpu(p).loadConst(0,taicpu(p).oper[0]^.val-taicpu(hp1).oper[0]^.val);
taicpu(hp1).opcode := A_AND;
l := (1 shl (taicpu(hp1).oper[0]^.val)) - 1;
@ -1594,6 +1596,7 @@ unit aoptx86;
{ shr/sar const1, %reg
shl const2, %reg
with const1 < const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2SxrAnd 2 done',p);
taicpu(hp1).loadConst(0,taicpu(hp1).oper[0]^.val-taicpu(p).oper[0]^.val);
taicpu(p).opcode := A_AND;
l := (1 shl (taicpu(p).oper[0]^.val))-1;
@ -1611,6 +1614,7 @@ unit aoptx86;
{ shr/sar const1, %reg
shl const2, %reg
with const1 = const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2And done',p);
taicpu(p).opcode := A_AND;
l := (1 shl (taicpu(p).oper[0]^.val))-1;
case taicpu(p).opsize Of