Changeset 6180

Timestamp:

Apr 7, 2007, 7:58:19 PM (18 years ago)

Author:

Gary Byers

Message:

%PTR-STORE-FIXNUM-CONDITIONAL.

File:

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

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

@@ -526 +526 @@
   (single-value-return))
 
+(defx86lapfunction %ptr-store-fixnum-conditional ((ptr arg_x) (expected-oldval arg_y) (newval arg_z))
+  (let ((address imm1))
+    (macptr-ptr ptr address)
+    @again
+    (movq (@ (% address)) (% imm0))
+    (cmpq (% imm0) (% expected-oldval))
+    (jne @done)
+    (lock)
+    (cmpxchgq (% newval) (@ (% address)))
+    (jne @again)
+    @done
+    (movq (% imm0) (% arg_z))
+    (single-value-return)))
+
 
 (defx86lapfunction %macptr->dead-macptr ((macptr arg_z))