Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* correctly compile constant multiplications by 6 for 80386 (fix needed only for 3.2.x), resolves #40230

florian 2 years ago
parent
aadb53e72c
commit
15194c6ee9
1 changed files with 1 additions and 1 deletions
Split View Show Diff Stats
  1. 1 1
      compiler/i386/aoptcpu.pas

+ 1 - 1
compiler/i386/aoptcpu.pas
View File 

@@ -252,7 +252,7 @@ begin
 
                                     begin
 
                                       TmpRef.base := taicpu(p).oper[2]^.reg;
 
                                       TmpRef.ScaleFactor := 4;
 
-                                      hp1 :=  taicpu.op_ref_reg(A_LEA, S_L, TmpRef, taicpu(p).oper[1]^.reg);
 
+                                      hp1 :=  taicpu.op_ref_reg(A_LEA, S_L, TmpRef, taicpu(p).oper[2]^.reg);
 
                                     end
 
                                   else
 
                                     begin