paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 16:09:12 +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; l : TCGInt;
begin begin
result:=false; result:=false;
if not(GetNextInstruction(p, hp1)) then
exit;
{ changes the code sequence { changes the code sequence
shr/sar const1, x shr/sar const1, x
shl const2, x shl const2, x
@ -1562,9 +1564,8 @@ unit aoptx86;
to to
either "sar/and", "shl/and" or just "and" depending on const1 and const2 } 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 MatchInstruction(hp1,A_SHL,[]) and
(taicpu(p).oper[0]^.typ = top_const) and
(taicpu(hp1).oper[0]^.typ = top_const) and (taicpu(hp1).oper[0]^.typ = top_const) and
(taicpu(hp1).opsize = taicpu(p).opsize) and (taicpu(hp1).opsize = taicpu(p).opsize) and
(taicpu(hp1).oper[1]^.typ = taicpu(p).oper[1]^.typ) and (taicpu(hp1).oper[1]^.typ = taicpu(p).oper[1]^.typ) and
@ -1576,6 +1577,7 @@ unit aoptx86;
{ shr/sar const1, %reg { shr/sar const1, %reg
shl const2, %reg shl const2, %reg
with const1 > const2 } with const1 > const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2SxrAnd 1 done',p);
taicpu(p).loadConst(0,taicpu(p).oper[0]^.val-taicpu(hp1).oper[0]^.val); taicpu(p).loadConst(0,taicpu(p).oper[0]^.val-taicpu(hp1).oper[0]^.val);
taicpu(hp1).opcode := A_AND; taicpu(hp1).opcode := A_AND;
l := (1 shl (taicpu(hp1).oper[0]^.val)) - 1; l := (1 shl (taicpu(hp1).oper[0]^.val)) - 1;
@ -1594,6 +1596,7 @@ unit aoptx86;
{ shr/sar const1, %reg { shr/sar const1, %reg
shl const2, %reg shl const2, %reg
with const1 < const2 } with const1 < const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2SxrAnd 2 done',p);
taicpu(hp1).loadConst(0,taicpu(hp1).oper[0]^.val-taicpu(p).oper[0]^.val); taicpu(hp1).loadConst(0,taicpu(hp1).oper[0]^.val-taicpu(p).oper[0]^.val);
taicpu(p).opcode := A_AND; taicpu(p).opcode := A_AND;
l := (1 shl (taicpu(p).oper[0]^.val))-1; l := (1 shl (taicpu(p).oper[0]^.val))-1;
@ -1611,6 +1614,7 @@ unit aoptx86;
{ shr/sar const1, %reg { shr/sar const1, %reg
shl const2, %reg shl const2, %reg
with const1 = const2 } with const1 = const2 }
DebugMsg(SPeepholeOptimization + 'SxrShl2And done',p);
taicpu(p).opcode := A_AND; taicpu(p).opcode := A_AND;
l := (1 shl (taicpu(p).oper[0]^.val))-1; l := (1 shl (taicpu(p).oper[0]^.val))-1;
case taicpu(p).opsize Of case taicpu(p).opsize Of