paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 20:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* x86: Bug fix where aoc_ForceNewIteration was

Browse Source 
checked in the wrong pass.
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-05-05 05:42:06 +01:00 committed by FPK
parent 19ad26afd8
commit 9432a550e1
2 changed files with 29 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/i386/aoptcpu.pas
View File

@ -244,6 +244,21 @@ unit aoptcpu;
else
;
end;
{ If this flag is set, force another run of pass 1 even if p wasn't
changed }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if not (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -283,21 +298,6 @@ unit aoptcpu;
else
;
end;
{ If this flag is set, force another run of pass 1 even if p wasn't
changed }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if not (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;

29
compiler/x86_64/aoptcpu.pas
View File

@ -166,7 +166,21 @@ uses
else
;
end;
{ If this flag is set, force another run of pass 1 even if p wasn't
changed }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if not (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;
@ -202,21 +216,6 @@ uses
else
;
end;
{ If this flag is set, force another run of pass 1 even if p wasn't
changed }
if aoc_ForceNewIteration in OptsToCheck then
begin
Exclude(OptsToCheck, aoc_ForceNewIteration);
if not Result then
begin
if not (p.typ in SkipInstr) then
UpdateUsedRegs(p);
p := tai(p.Next);
Result := True;
end;
end;
end;