Changeset 6543


Ignore:
Timestamp:
May 12, 2007, 8:26:40 PM (15 years ago)
Author:
gb
Message:

new_heap_segment(): don't extend heap by more than what we need if
GC is obviously disabled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/ppc-exceptions.c

    r6513 r6543  
    577577  if (newlimit > (natural) (a->high)) {
    578578    if (extend) {
    579       natural extend_by = lisp_heap_gc_threshold;
     579      inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT));
     580      natural extend_by = inhibit ? 0 : lisp_heap_gc_threshold;
    580581      do {
    581582        if (resize_dynamic_heap(a->active, (newlimit-oldlimit)+extend_by)) {
Note: See TracChangeset for help on using the changeset viewer.