Changeset 5817

Timestamp:

Jan 30, 2007, 2:26:06 AM (18 years ago)

Author:

Gary Byers

Message:

Don't use boxed "disp" for displacement in %ATOMIC-INCF-NODE.

File:

• trunk/ccl/level-0/X86/x86-misc.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-misc.lisp

@@ -426 +426 @@
   (unbox-fixnum disp imm1)
   @again
-  (movq (@ (% node) (% disp)) (% rax))
+  (movq (@ (% node) (% imm1)) (% rax))
   (lea (@ (% rax) (% by)) (% arg_z))
   (lock)
-  (cmpxchgq (% arg_z) (@ (% node) (% disp)))
+  (cmpxchgq (% arg_z) (@ (% node) (% imm1)))
   (jne @again)
   (single-value-return))