Changeset 13796

Timestamp:

Jun 9, 2010, 9:09:42 PM (14 years ago)

Author:

Gary Byers

Message:

Need %PTR-STORE-FIXNUM-CONDITIONAL, since locking code (used early)
depends on it. (Use futexes on ARM Linux ?)

File:

• branches/arm/level-0/ARM/arm-misc.lisp (modified) (2 diffs)

branches/arm/level-0/ARM/arm-misc.lisp

@@ -525 +525 @@
   (bx lr))
 
-#+notyet                                ; Yet ?  Not.
 (defarmlapfunction %ptr-store-fixnum-conditional ((ptr arg_x) (expected-oldval arg_y) (newval arg_z))
   (let ((address imm0)
@@ -531 +530 @@
     (macptr-ptr address ptr)
     @again
-    (lrarx actual-oldval 0 address)
-    (cmpr actual-oldval expected-oldval)
-    (bne- @done)
-    (strcx. newval 0 address)
-    (bne- @again)
-    (isync)
+    (ldrex actual-oldval (:@ address))
+    (cmp actual-oldval expected-oldval)
+    (bne @done)
+    (strex imm0 newval (:@ address))
+    (cmp imm0 (:$ 0))
+    (bne @again)
     (mov arg_z actual-oldval)
     (bx lr)
     @done
-    (li address arm::reservation-discharge)
+    (clrex)
     (mov arg_z actual-oldval)
-    (strcx. rzero 0 address)
     (bx lr)))