Changeset 6540


Ignore:
Timestamp:
May 12, 2007, 12:56:35 PM (15 years ago)
Author:
gb
Message:

new_heap_segment(): don't extend beyond segment if GC (obviously)
disabled.

File:
1 edited

Legend:

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

    r6526 r6540  
    7878  if (newlimit > (natural) (a->high)) {
    7979    if (extend) {
    80       natural extend_by = lisp_heap_gc_threshold;
     80      signed_natural inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT));
     81      natural extend_by = inhibit ? 0 : lisp_heap_gc_threshold;
    8182      do {
    8283        if (resize_dynamic_heap(a->active, (newlimit-oldlimit)+extend_by)) {
Note: See TracChangeset for help on using the changeset viewer.