소스 검색

* bitpacked stuff fixed for x86-64

git-svn-id: trunk@5503 -
florian 19 년 전
부모
커밋
836dbad1b2
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      compiler/x86/cgx86.pas

+ 1 - 1
compiler/x86/cgx86.pas

@@ -1159,7 +1159,7 @@ unit cgx86;
             begin
 {$ifdef x86_64}
               if (a and 63) <> 0 Then
-                list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 31,reg));
+                list.concat(taicpu.op_const_reg(TOpCG2AsmOp[op],TCgSize2OpSize[size],a and 63,reg));
               if (a shr 6) <> 0 Then
                 internalerror(200609073);
 {$else x86_64}