Changeset 6543

Timestamp:

May 12, 2007, 1:26:40 PM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/lisp-kernel/ppc-exceptions.c (modified) (1 diff)

trunk/ccl/lisp-kernel/ppc-exceptions.c

@@ -577 +577 @@
   if (newlimit > (natural) (a->high)) {
     if (extend) {
-      natural extend_by = lisp_heap_gc_threshold;
+      inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT));
+      natural extend_by = inhibit ? 0 : lisp_heap_gc_threshold;
       do {
         if (resize_dynamic_heap(a->active, (newlimit-oldlimit)+extend_by)) {