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

* x86: Correct fileinfo and some refactoring for OptPass1LEA

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-07-31 06:25:21 +01:00 committed by FPK
parent f19b390c68
commit 0c62ac9f16
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/x86/aoptx86.pas
View File

@ -5161,12 +5161,9 @@ unit aoptx86;
begin
if (taicpu(p).oper[0]^.ref^.base <> taicpu(p).oper[1]^.reg) then
begin
hp1:=taicpu.op_reg_reg(A_MOV,taicpu(p).opsize,taicpu(p).oper[0]^.ref^.base,
taicpu(p).oper[1]^.reg);
InsertLLItem(p.previous,p.next, hp1);
DebugMsg(SPeepholeOptimization + 'Lea2Mov done',hp1);
p.free;
p:=hp1;
taicpu(p).opcode := A_MOV;
taicpu(p).loadreg(0, taicpu(p).oper[0]^.ref^.base);
DebugMsg(SPeepholeOptimization + 'Lea2Mov done',p);
end
else
begin
@ -5840,12 +5837,14 @@ unit aoptx86;
hp4:=taicpu.op_reg(A_SETcc, S_B, ThisReg);
hp2:=taicpu.op_const_reg(A_MOV, taicpu(hp2).opsize, 0, taicpu(hp2).oper[1]^.reg);
taicpu(hp2).fileinfo:=taicpu(p).fileinfo;
{ Inserting it right before p will guarantee that the flags are also tracked }
Asml.InsertBefore(hp2, p);
end;
taicpu(hp4).condition:=taicpu(p).condition;
taicpu(hp4).fileinfo := taicpu(hp2).fileinfo;
taicpu(hp4).condition := taicpu(p).condition;
asml.InsertBefore(hp4, hp2);
JumpLoc.decrefs;