X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Farith.lisp;h=7ea7d06868141aeb55b9f888b1a6b0f3810ba88b;hb=2dbf6e6a5011edecc5361c208e9d5915ca783351;hp=37cc2a2b9b905416ecd1f548eea5eda5fa801024;hpb=f7aa9f04c9d2124f094f4b9e857e8ce3b92035e4;p=sbcl.git

diff --git a/src/compiler/x86-64/arith.lisp b/src/compiler/x86-64/arith.lisp
index 37cc2a2..7ea7d06 100644
--- a/src/compiler/x86-64/arith.lisp
+++ b/src/compiler/x86-64/arith.lisp
@@ -1238,7 +1238,7 @@
                                         (sc-is r signed-stack))
                                     (location= x r)))))
      (:info y)
-     (:arg-types untagged-num (:constant (or (unsigned-byte 64) (signed-byte 64))))
+     (:arg-types untagged-num (:constant (or (unsigned-byte 31) (signed-byte 32))))
      (:results (r :scs (unsigned-reg signed-reg) :from (:argument 0)
                   :load-if (not (and (or (sc-is x unsigned-stack)
                                          (sc-is x signed-stack))