Changeset 7382 for branches/working-0710/ccl/compiler/nx1.lisp

Timestamp:

Oct 12, 2007, 9:18:45 AM (14 years ago)

Author:

gb

Message:

%%set-signed-longlong: not encoded correctly (at least for x86-64, need to
check ppc64.)

File:

• branches/working-0710/ccl/compiler/nx1.lisp (modified) (1 diff)

branches/working-0710/ccl/compiler/nx1.lisp

@@ -1661 +1661 @@
      (%nx1-operator %immediate-set-xxx)
      (case op
-       (%%set-signed-longlong (logior 32 8))
-       (t 8))
+       (%%set-signed-longlong 8)
+       (t (logior 32 8)))
      (make-acode (%nx1-operator %macptrptr%) (nx1-form ptr))
      (nx1-form offset)