Bläddra i källkod

* bitpacked stuff fixed for x86-64

git-svn-id: trunk@5503 -
florian 18 år sedan
förälder
incheckning
836dbad1b2
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      compiler/x86/cgx86.pas

+ 1 - 1
compiler/x86/cgx86.pas

@@ -1159,7 +1159,7 @@ unit cgx86;
             begin
             begin
 {$ifdef x86_64}
 {$ifdef x86_64}
               if (a and 63) <> 0 Then
               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
               if (a shr 6) <> 0 Then
                 internalerror(200609073);
                 internalerror(200609073);
 {$else x86_64}
 {$else x86_64}