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

* fixed peephole optimizer replace lea by add even if the flags were in use

Browse Source 
(patch by J. Gareth Moreton)

git-svn-id: trunk@46213 -
This commit is contained in:
Jonas Maebe 2020-08-03 20:51:37 +00:00
parent 3047ce71bc
commit 06a5ec5b5c
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/x86/aoptx86.pas
View File

@ -2816,7 +2816,10 @@ unit aoptx86;
exit;
end;
if MatchInstruction(hp1,A_LEA,[S_L{$ifdef x86_64},S_Q{$endif x86_64}]) then
if MatchInstruction(hp1,A_LEA,[S_L{$ifdef x86_64},S_Q{$endif x86_64}]) and
{ If the flags register is in use, don't change the instruction to an
ADD otherwise this will scramble the flags. [Kit] }
not RegInUsedRegs(NR_DEFAULTFLAGS, UsedRegs) then
begin
if MatchOpType(Taicpu(p),top_ref,top_reg) and
((MatchReference(Taicpu(hp1).oper[0]^.ref^,Taicpu(hp1).oper[1]^.reg,Taicpu(p).oper[1]^.reg) and
@ -3174,6 +3177,9 @@ unit aoptx86;
(taicpu(p).oper[1]^.reg<>NR_STACK_POINTER_REG) or
(cs_opt_size in current_settings.optimizerswitches)
) and
{ If the flags register is in use, don't change the instruction
to an ADD otherwise this will scramble the flags. [Kit] }
not RegInUsedRegs(NR_DEFAULTFLAGS, UsedRegs) and
ConvertLEA(taicpu(p)) then
begin
Result:=true;
@ -5370,7 +5376,12 @@ unit aoptx86;
(taicpu(hp1).opcode <> A_LEA) or
{ If the LEA instruction can be converted into an arithmetic instruction,
it may be possible to then fold it. }
ConvertLEA(taicpu(hp1))
(
{ If the flags register is in use, don't change the instruction
to an ADD otherwise this will scramble the flags. [Kit] }
not RegInUsedRegs(NR_DEFAULTFLAGS, UsedRegs) and
ConvertLEA(taicpu(hp1))
)
) and
IsFoldableArithOp(taicpu(hp1),taicpu(p).oper[1]^.reg) and
GetNextInstruction(hp1,hp2) and