Changeset 6449 for branches/x8664-call

Timestamp:

May 8, 2007, 12:37:19 PM (14 years ago)

Author:

gb

Message:

x862-%immediate-store had signedness backwards, as well.

File:

• branches/x8664-call/ccl/compiler/X86/x862.lisp (modified) (1 diff)

branches/x8664-call/ccl/compiler/X86/x862.lisp

@@ -4147 +4147 @@
       (x862-%immediate-set-ptr seg vreg xfer  ptr offset val)
       (let* ((size (logand #xf bits))
-             (signed (logbitp 5 bits))
+             (signed (not (logbitp 5 bits)))
              (nbits (ash size 3))
              (intval (acode-integer-constant-p val nbits))