Changeset 8230

Timestamp:

Jan 20, 2008, 2:47:13 PM (17 years ago)

Author:

andreas

Message:

PPC support for atomic pop from the list of static conses. Completely
untested.

Location:

trunk/source

Files:

• level-0/PPC/ppc-misc.lisp (modified) (1 diff)
• lib/misc.lisp (modified) (2 diffs)

trunk/source/level-0/PPC/ppc-misc.lisp

@@ -980 +980 @@
   (li arg_z t)
   (blr))
+
+(defppclapfunction %atomic-pop-static-cons ()
+  (li imm0 (+ target::nil-value (target::kernel-global static-conses)))
+  @again
+  (lrarx arg_z rzero imm0)
+  (cmpri arg_z target::nil-value)
+  (be @lose)
+  (%cdr arg_z arg_y)
+  (strcx. arg_y rzero imm0)
+  (bne @again)
+  @lose
+  (blr))
   
 

trunk/source/lib/misc.lisp

@@ -824 +824 @@
   (gc))
 
-(defmacro atomic-pop-kernel-global (place)
-  "Pops an cons cell off a kernel global, in a way that's atomic w.r.t.
-   garbage collection.  Uses gc-lock a.t.m., which is too
-   expensive."
-  `(without-interrupts
-     (%lock-gc-lock)
-     (let ((value (%get-kernel-global ,place)))
-       (%set-kernel-global ,place (cdr value))
-       (%unlock-gc-lock)
-       value)))
-
 (defun static-cons (car-value cdr-value)
   "Allocates a cons cell that doesn't move on garbage collection,
@@ -841 +830 @@
   (when (eq (%get-kernel-global 'static-conses) 0)
     (initialize-static-cons))
-  (let ((cell #-x8664-target (atomic-pop-kernel-global 'static-conses)
-              #+x8664-target (%atomic-pop-static-cons)))
+  (let ((cell (%atomic-pop-static-cons)))
     (if cell
       (progn