Changeset 11527
- Timestamp:
- Dec 15, 2008, 12:49:42 PM (12 years ago)
- Location:
- trunk/source
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/PPC/ppc-misc.lisp
r11450 r11527 1032 1032 (blr)) 1033 1033 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 1034 1045 (defppclapfunction %staticp ((x arg_z)) 1035 1046 (check-nargs 1) -
trunk/source/lib/misc.lisp
r11526 r11527 938 938 "Allocates some memory, freezes it and lets it become garbage. 939 939 This will add the memory to the list of free static conses." 940 (let* ((nfullgc (full-gc -count)))940 (let* ((nfullgc (full-gccount))) 941 941 (multiple-value-bind (head tail) 942 942 (%allocate-list 0 *static-cons-chunk*) 943 (if (eql (full-gc -count) nfullgc)943 (if (eql (full-gccount) nfullgc) 944 944 (freeze) 945 945 (flash-freeze))
Note: See TracChangeset
for help on using the changeset viewer.