Browse Source

* bitpacked stuff fixed for x86-64

git-svn-id: trunk@5503 -
florian 18 years ago
parent
commit
836dbad1b2
1 changed files with 1 additions and 1 deletions
  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}