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

* i386: Corrections to IMUL -> LEA/LEA optimisastions (fixes_3_2 only)

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-10-15 02:40:11 +01:00 committed by FPK
parent 3a8d8551e7
commit 2c75fb13b7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/aoptcpu.pas
View File

@ -248,7 +248,7 @@ begin
if (current_settings.optimizecputype <= cpu_386) then if (current_settings.optimizecputype <= cpu_386) then
begin begin
TmpRef.index := taicpu(p).oper[1]^.reg; TmpRef.index := taicpu(p).oper[1]^.reg;
if (taicpu(p).ops = 3) then if (taicpu(p).ops = 3) and (taicpu(p).oper[1]^.reg <> taicpu(p).oper[2]^.reg) then
begin begin
TmpRef.base := taicpu(p).oper[2]^.reg; TmpRef.base := taicpu(p).oper[2]^.reg;
TmpRef.ScaleFactor := 4; TmpRef.ScaleFactor := 4;
@ -263,7 +263,7 @@ begin
reference_reset(tmpref,2,[]); reference_reset(tmpref,2,[]);
TmpRef.index := taicpu(p).oper[1]^.reg; TmpRef.index := taicpu(p).oper[1]^.reg;
TmpRef.ScaleFactor := 2; TmpRef.ScaleFactor := 2;
if (taicpu(p).ops = 3) then if (taicpu(p).ops = 3) and (taicpu(p).oper[1]^.reg <> taicpu(p).oper[2]^.reg) then
begin begin
TmpRef.base := NR_NO; TmpRef.base := NR_NO;
hp1 := taicpu.op_ref_reg(A_LEA, S_L, TmpRef, hp1 := taicpu.op_ref_reg(A_LEA, S_L, TmpRef,
@ -334,7 +334,7 @@ begin
then then
begin begin
TmpRef.index := taicpu(p).oper[1]^.reg; TmpRef.index := taicpu(p).oper[1]^.reg;
if (taicpu(p).ops = 3) then if (taicpu(p).ops = 3) and (taicpu(p).oper[1]^.reg <> taicpu(p).oper[2]^.reg) then
begin begin
TmpRef.base := taicpu(p).oper[2]^.reg; TmpRef.base := taicpu(p).oper[2]^.reg;
TmpRef.ScaleFactor := 8; TmpRef.ScaleFactor := 8;
@ -349,7 +349,7 @@ begin
InsertLLItem(p, p.next, hp1); InsertLLItem(p, p.next, hp1);
reference_reset(tmpref,2,[]); reference_reset(tmpref,2,[]);
TmpRef.index := taicpu(p).oper[1]^.reg; TmpRef.index := taicpu(p).oper[1]^.reg;
if (taicpu(p).ops = 3) then if (taicpu(p).ops = 3) and (taicpu(p).oper[1]^.reg <> taicpu(p).oper[2]^.reg) then
begin begin
TmpRef.base := NR_NO; TmpRef.base := NR_NO;
TmpRef.ScaleFactor := 4; TmpRef.ScaleFactor := 4;