Changeset 11527 for trunk/source/level-0/PPC/ppc-misc.lisp

Timestamp:

Dec 15, 2008, 12:49:42 PM (12 years ago)

Author:

gb

Message:

Fix typo (FULL-GCCOUNT, not FULL-GC-COUNT) in ALLOCATE-STATIC-CONSES.
PPC version of %AUGMENT-STATIC-CONSES.

File:

• trunk/source/level-0/PPC/ppc-misc.lisp (modified) (1 diff)

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

@@ -1032 +1032 @@
   (blr))
 
+(defppclapfunction %augment_static_conses ((head arg_y) (tail arg_z))
+  (li imm0 (+ (target-nil-value) (target::kernel-global static-conses)))
+  @again
+  (lrarx temp0 rzero imm0)
+  (str temp0 tail target::cons.cdr)     ; static, no write-barrier issues
+  (strcx. head rzero imm0)
+  (bne @again)
+  (isync)
+  (li arg_z nil)
+  (blr))
+
 (defppclapfunction %staticp ((x arg_z))
   (check-nargs 1)