Changeset 11523 for trunk/source/lisp-kernel/x86-exceptions.c
- Timestamp:
- Dec 15, 2008, 10:28:35 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lisp-kernel/x86-exceptions.c
r11521 r11523 158 158 natural gc_deferred = 0, full_gc_deferred = 0; 159 159 160 signed_natural 161 flash_freeze(TCR *tcr, signed_natural param) 162 { 163 return 0; 164 } 165 166 160 167 Boolean 161 168 handle_gc_trap(ExceptionInformation *xp, TCR *tcr) … … 212 219 } 213 220 xpGPR(xp, Iimm0) = lisp_heap_gc_threshold; 221 break; 222 223 case GC_TRAP_FUNCTION_FLASH_FREEZE: /* Like freeze below, but no GC */ 224 untenure_from_area(tenured_area); 225 gc_like_from_xp(xp,flash_freeze,0); 226 a->active = (BytePtr) align_to_power_of_2(a->active, log2_page_size); 227 tenured_area->static_dnodes = area_dnode(a->active, a->low); 228 if (egc_was_enabled) { 229 tenure_to_area(tenured_area); 230 } 231 xpGPR(xp, Iimm0) = tenured_area->static_dnodes << dnode_shift; 214 232 break; 215 233 … … 2596 2614 2597 2615 2598 int 2616 signed_natural 2599 2617 gc_like_from_xp(ExceptionInformation *xp, 2600 int(*fun)(TCR *, signed_natural),2618 signed_natural(*fun)(TCR *, signed_natural), 2601 2619 signed_natural param) 2602 2620 { … … 2662 2680 } 2663 2681 2664 int 2682 signed_natural 2665 2683 purify_from_xp(ExceptionInformation *xp, signed_natural param) 2666 2684 { … … 2668 2686 } 2669 2687 2670 int 2688 signed_natural 2671 2689 impurify_from_xp(ExceptionInformation *xp, signed_natural param) 2672 2690 { … … 2676 2694 /* Returns #bytes freed by invoking GC */ 2677 2695 2678 int 2696 signed_natural 2679 2697 gc_from_tcr(TCR *tcr, signed_natural param) 2680 2698 { … … 2698 2716 } 2699 2717 2700 int 2718 signed_natural 2701 2719 gc_from_xp(ExceptionInformation *xp, signed_natural param) 2702 2720 { 2703 intstatus = gc_like_from_xp(xp, gc_from_tcr, param);2721 signed_natural status = gc_like_from_xp(xp, gc_from_tcr, param); 2704 2722 2705 2723 freeGCptrs();
Note: See TracChangeset
for help on using the changeset viewer.