소스 검색

* Prevent a range check error in case of big unsigned values.

Yuriy Sydorov 3 년 전
부모
커밋
7b2cd0bcdc
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/x86/aoptx86.pas

+ 1 - 1
compiler/x86/aoptx86.pas

@@ -10153,7 +10153,7 @@ unit aoptx86;
                 reference_reset(NewRef, 1, []);
                 NewRef.base := taicpu(p).oper[1]^.reg;
                 NewRef.scalefactor := 1;
-                NewRef.offset := taicpu(p).oper[0]^.val;
+                NewRef.offset := asizeint(taicpu(p).oper[0]^.val);
 
                 taicpu(hp1).opcode := A_LEA;
                 taicpu(hp1).loadref(0, NewRef);