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

* x86: Updates to DoArithCombineOpt to cover more eventualities

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-01-07 21:59:52 +00:00
parent 1d86db3100
commit 2d392b863d
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/x86/aoptx86.pas
View File

@ -5817,6 +5817,11 @@ unit aoptx86;
end;
end;
if DoArithCombineOpt(p) then
begin
Result:=true;
Exit;
end;
{ Change:
add $x,%reg1
...
@ -6344,7 +6349,7 @@ unit aoptx86;
begin
Result := False;
if taicpu(hp1).typ <> ait_instruction then
if hp1.typ <> ait_instruction then
Exit;
{ If thef flags are in use, do not make any changes }
@ -6493,8 +6498,16 @@ unit aoptx86;
OtherRegister := CurrentRef^.index;
if (OtherRegister <> NR_NO) and
{ If we can't set the offset to zero, this is wasted effort }
(CurrentRef^.offset = Value)
(
{ If we can't set the offset to zero, this is wasted effort }
(CurrentRef^.offset = Value) or
{ But maybe not if we can reduce the byte count }
(
((CurrentRef^.offset > 127) or (CurrentRef^.offset < -128)) and
((CurrentRef^.offset - Value) >= -128) and
((CurrentRef^.offset - Value) <= 127)
)
)
and GetLastInstruction(hp1, hp2) and
{ Make sure there is a pipeline stall between hp2 and hp1,
otherwise a saving won't be made }