0.6.11.16:

[sbcl.git] / src / compiler / x86 / insts.lisp

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index c0d6752..6441221 100644 (file)
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -639,7 +639,8 @@
     (logior (ash (logand offset 1) 2)
            (ash offset -1))))
 
-(defstruct (ea (:constructor make-ea (size &key base index scale disp)))
+(defstruct (ea (:constructor make-ea (size &key base index scale disp))
+              (:copier nil))
   (size nil :type (member :byte :word :dword))
   (base nil :type (or tn null))
   (index nil :type (or tn null))
@@ -708,7 +709,7 @@
                            (and (eql disp 0)
                                 (not (= (reg-tn-encoding base) #b101))))
                        #b00)
-                      ((and (target-fixnump disp) (<= -128 disp 127))
+                      ((and (fixnump disp) (<= -128 disp 127))
                        #b01)
                       (t
                        #b10)))