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

* x86: Some refactoring to use aoc_ForceNewIteration instead of manually advancing p

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-02-13 15:49:58 +00:00 committed by FPK
parent 3cec86390a
commit b8933dd267
3 changed files with 96 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
compiler/i386/aoptcpu.pas
View File

@ -126,6 +126,22 @@ unit aoptcpu;
end;
Break;
until False;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -300,6 +316,21 @@ unit aoptcpu;
else
;
end;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -402,6 +433,21 @@ unit aoptcpu;
else
;
end;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;

7
compiler/x86/aoptx86.pas
View File

@ -14612,9 +14612,10 @@ unit aoptx86;
taicpu(hp1).clearop(1);
taicpu(hp1).ops := 0;
{ A change was made, but not with p, so move forward 1 }
p := tai(p.Next);
Result := True;
{ A change was made, but not with p, so don't set Result, but
notify the compiler that a change was made }
Include(OptsToCheck, aoc_ForceNewIteration);
Exit; { and -> btr won't happen because an opsize of S_W won't be optimised anyway }
end;
end;

46
compiler/x86_64/aoptcpu.pas
View File

@ -63,6 +63,22 @@ uses
else
;
end;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -218,6 +234,21 @@ uses
else
;
end;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -270,6 +301,21 @@ uses
else
;
end;
{ If this flag is set, something was optimised ahead of p, so move
ahead by 1 instruction but treat as if Result was set to True }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;