Changeset 6540

Timestamp:

May 12, 2007, 5:56:35 AM (18 years ago)

Author:

Gary Byers

Message:

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

File:

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

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

@@ -78 +78 @@
   if (newlimit > (natural) (a->high)) {
     if (extend) {
-      natural extend_by = lisp_heap_gc_threshold;
+      signed_natural 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)) {