Changeset 11527

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.

Location:

trunk/source

Files:

• level-0/PPC/ppc-misc.lisp (modified) (1 diff)
• lib/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)

trunk/source/lib/misc.lisp

@@ -938 +938 @@
   "Allocates some memory, freezes it and lets it become garbage.
    This will add the memory to the list of free static conses."
-  (let* ((nfullgc (full-gc-count)))
+  (let* ((nfullgc (full-gccount)))
     (multiple-value-bind (head tail)
         (%allocate-list 0 *static-cons-chunk*)
-      (if (eql (full-gc-count) nfullgc)
+      (if (eql (full-gccount) nfullgc)
         (freeze)
         (flash-freeze))