X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Finsts.lisp;h=fde1633e2fc0edeb9733460d4f265526c387121c;hb=cb254941e176badff31a16a11509e1ac288ae249;hp=aeb857e75fd174a63798b809ce9e12be513ee27a;hpb=de01f09401517c1a96de3faeac585e46895940ec;p=sbcl.git

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index aeb857e..fde1633 100644
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -1576,7 +1576,7 @@
             (cond ((integerp src)
                    (maybe-emit-rex-prefix segment size nil nil dst)
                    (cond ((and (eq size :qword)
-                               (typep src '(signed-byte 31)))
+                               (typep src '(signed-byte 32)))
                           ;; When loading small immediates to a qword register
                           ;; using B8 wastes 3 bytes compared to C7.
                           (emit-byte segment #b11000111)