paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 12:46:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86: Minor efficiency gains in OptPass1CMP

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-02-16 18:07:08 +00:00 committed by FPK
parent 068b8f9e9d
commit e406cbd9c8
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/aoptx86.pas
View File

@ -7902,6 +7902,7 @@ unit aoptx86;
p_jump := hp1;
while Assigned(p_jump) and MatchInstruction(p_jump, A_JCC, []) do
begin
Prefetch(p_jump.Next);
if IsJumpToLabel(taicpu(p_jump)) then
begin
{ Do jump optimisations first in case the condition becomes
@ -7985,7 +7986,7 @@ unit aoptx86;
DebugMsg(SPeepholeOptimization + 'CMP/Jcc/@Lbl/CMP/Jcc -> CMP/Jcc, redirecting first jump', p_jump);
taicpu(p_jump).loadref(0, taicpu(hp1_dist).oper[0]^.ref^); { This also increases the reference count }
Result := True;
Include(OptsToCheck, aoc_ForceNewIteration);
{ Don't exit yet. Since p and p_jump haven't actually been
removed, we can check for more on this iteration }
end
@ -8060,6 +8061,13 @@ unit aoptx86;
RemoveInstruction(hp2);
Result := True;
{ Continue the while loop in case "Jcc/CMP" follows the second CMP that was just removed }
end
else
begin
{ hp2 is the next instruction, so save time and just set p_jump
to it instead of calling GetNextInstruction below }
p_jump := hp2;
Continue;
end;
GetNextInstruction(p_jump, p_jump);