소스 검색

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

florian 2 년 전
부모
커밋
15194c6ee9
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/i386/aoptcpu.pas

+ 1 - 1
compiler/i386/aoptcpu.pas

@@ -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