Changeset 11527


Ignore:
Timestamp:
Dec 15, 2008, 12:49:42 PM (11 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r11450 r11527  
    10321032  (blr))
    10331033
     1034(defppclapfunction %augment_static_conses ((head arg_y) (tail arg_z))
     1035  (li imm0 (+ (target-nil-value) (target::kernel-global static-conses)))
     1036  @again
     1037  (lrarx temp0 rzero imm0)
     1038  (str temp0 tail target::cons.cdr)     ; static, no write-barrier issues
     1039  (strcx. head rzero imm0)
     1040  (bne @again)
     1041  (isync)
     1042  (li arg_z nil)
     1043  (blr))
     1044
    10341045(defppclapfunction %staticp ((x arg_z))
    10351046  (check-nargs 1)
  • trunk/source/lib/misc.lisp

    r11526 r11527  
    938938  "Allocates some memory, freezes it and lets it become garbage.
    939939   This will add the memory to the list of free static conses."
    940   (let* ((nfullgc (full-gc-count)))
     940  (let* ((nfullgc (full-gccount)))
    941941    (multiple-value-bind (head tail)
    942942        (%allocate-list 0 *static-cons-chunk*)
    943       (if (eql (full-gc-count) nfullgc)
     943      (if (eql (full-gccount) nfullgc)
    944944        (freeze)
    945945        (flash-freeze))
Note: See TracChangeset for help on using the changeset viewer.