Changeset 6575 for branches

Timestamp:

May 20, 2007, 12:54:10 AM (18 years ago)

Author:

Gary Byers

Message:

%%get-[signed|unsigned]-longlong: unbox-fixnum args backwards.

File:

• branches/ide-1.0/ccl/level-0/X86/x86-misc.lisp (modified) (2 diffs)

branches/ide-1.0/ccl/level-0/X86/x86-misc.lisp

@@ -232 +232 @@
   (trap-unless-typecode= ptr x8664::subtag-macptr)
   (macptr-ptr ptr imm1)
-  (unbox-fixnum imm0 offset)
+  (unbox-fixnum offset imm0)
   (movq (@ (% imm1) (% imm0)) (% imm0))
   (jmp-subprim .SPmakeu64))
@@ -240 +240 @@
   (trap-unless-typecode= ptr x8664::subtag-macptr)
   (macptr-ptr ptr imm1)
-  (unbox-fixnum imm0 offset)
+  (unbox-fixnum offset imm0)
   (movq (@ (% imm1) (% imm0)) (% imm0))
   (jmp-subprim .SPmakes64))