paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:07:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ apply OpTest/Or2Op optimization to ANDN as well

Browse Source 
+ DebugMsg for OpTest/Or2Op added
This commit is contained in:
florian 2022-10-23 22:09:00 +02:00
parent ae4c8359aa
commit 86547d35d7
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/aoptx86.pas
View File

@ -13915,6 +13915,7 @@ unit aoptx86;
)
) then
begin
DebugMsg(SPeepholeOptimization + 'OpTest/Or2Op done', hp1);
RemoveCurrentP(p, hp2);
Result:=true;
Exit;
@ -13932,6 +13933,7 @@ unit aoptx86;
{ and in case of carry for A(E)/B(E)/C/NC }
(taicpu(hp2).condition in [C_Z,C_NZ,C_E,C_NE]) then
begin
DebugMsg(SPeepholeOptimization + 'OpTest/Or2Op done', hp1);
RemoveCurrentP(p, hp2);
Result:=true;
Exit;
@ -13944,6 +13946,19 @@ unit aoptx86;
{ and in case of carry for A(E)/B(E)/C/NC }
(taicpu(hp2).condition in [C_Z,C_NZ,C_E,C_NE]) then
begin
DebugMsg(SPeepholeOptimization + 'OpTest/Or2Op done', hp1);
RemoveCurrentP(p, hp2);
Result:=true;
Exit;
end;
end;
A_ANDN:
begin
if OpsEqual(taicpu(hp1).oper[2]^,taicpu(p).oper[1]^) and
{ ANDN sets only the Z and S flag }
(taicpu(hp2).condition in [C_Z,C_NZ,C_E,C_NE]) then
begin
DebugMsg(SPeepholeOptimization + 'OpTest/Or2Op done', hp1);
RemoveCurrentP(p, hp2);
Result:=true;
Exit;