paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86: More accurate register tracking in CheckJumpMovTransferOpt

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-02-02 08:01:10 +00:00 committed by FPK
parent 513a461911
commit 18eec3055e
1 changed files with 38 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/x86/aoptx86.pas
View File

@ -9200,6 +9200,8 @@ unit aoptx86;
Exit; Exit;
end; end;
TransferUsedRegs(TmpUsedRegs);
hp3 := p; hp3 := p;
DebugMsg(SPeepholeOptimization + 'Duplicated ' + debug_tostr(Count) + ' assignment(s) and redirected jump', p); DebugMsg(SPeepholeOptimization + 'Duplicated ' + debug_tostr(Count) + ' assignment(s) and redirected jump', p);
while True do while True do
@ -9243,8 +9245,6 @@ unit aoptx86;
begin begin
{ Duplicate the MOV instruction } { Duplicate the MOV instruction }
hp3:=tai(hp1.getcopy); hp3:=tai(hp1.getcopy);
if first_assignment = nil then
first_assignment := hp3;
asml.InsertBefore(hp3, p); asml.InsertBefore(hp3, p);
@ -9256,24 +9256,53 @@ unit aoptx86;
top_ref: top_ref:
begin begin
if (ref^.base <> NR_NO) and if (ref^.base <> NR_NO) and
(getsupreg(ref^.base) <> RS_ESP) and (getsupreg(ref^.base) <> RS_STACK_POINTER_REG) and
(getsupreg(ref^.base) <> RS_EBP) (
(getsupreg(ref^.base) <> RS_FRAME_POINTER_REG) or
(
{ Allow the frame pointer if it's not being used by the procedure as such }
Assigned(current_procinfo) and
(current_procinfo.framepointer <> NR_FRAME_POINTER_REG)
)
)
{$ifdef x86_64} and (ref^.base <> NR_RIP) {$endif x86_64} {$ifdef x86_64} and (ref^.base <> NR_RIP) {$endif x86_64}
then then
AllocRegBetween(ref^.base, hp3, tai(p.Next), UsedRegs); begin
AllocRegBetween(ref^.base, hp3, p, TmpUsedRegs);
if not Assigned(first_assignment) then
IncludeRegInUsedRegs(ref^.base, UsedRegs);
end;
if (ref^.index <> NR_NO) and if (ref^.index <> NR_NO) and
(getsupreg(ref^.index) <> RS_ESP) and (getsupreg(ref^.index) <> RS_STACK_POINTER_REG) and
(getsupreg(ref^.index) <> RS_EBP) (
(getsupreg(ref^.index) <> RS_FRAME_POINTER_REG) or
(
{ Allow the frame pointer if it's not being used by the procedure as such }
Assigned(current_procinfo) and
(current_procinfo.framepointer <> NR_FRAME_POINTER_REG)
)
)
{$ifdef x86_64} and (ref^.index <> NR_RIP) {$endif x86_64} and {$ifdef x86_64} and (ref^.index <> NR_RIP) {$endif x86_64} and
(ref^.index <> ref^.base) then (ref^.index <> ref^.base) then
AllocRegBetween(ref^.index, hp3, tai(p.Next), UsedRegs); begin
AllocRegBetween(ref^.index, hp3, p, TmpUsedRegs);
if not Assigned(first_assignment) then
IncludeRegInUsedRegs(ref^.index, UsedRegs);
end;
end; end;
top_reg: top_reg:
AllocRegBetween(reg, hp3, tai(p.Next), UsedRegs); begin
AllocRegBetween(reg, hp3, p, TmpUsedRegs);
if not Assigned(first_assignment) then
IncludeRegInUsedRegs(reg, UsedRegs);
end;
else else
; ;
end; end;
end; end;
if first_assignment = nil then
first_assignment := hp3;
end; end;
end; end;