Changeset 15841

Timestamp:

Jun 17, 2013, 5:07:46 AM (6 years ago)

Author:

gb

Message:

Adjust tenured_area->refidx if lowering heap start for static conses. If shrinking heap, maybe lowe heap_dirty_limit.

File:

• branches/gb-egc/lisp-kernel/pmcl-kernel.c (modified) (3 diffs)

branches/gb-egc/lisp-kernel/pmcl-kernel.c

@@ -684 +684 @@
 
   if (new_dnodes) {
-    natural n = (new_dnodes+7)>>3;
+    natural n = (new_dnodes+7)>>3,
+      nidx = ((((new_dnodes+255)>>8)+7)>>3)>>node_shift;
 
     BytePtr old_markbits = (BytePtr)dynamic_mark_ref_bits,
@@ -696 +697 @@
     a->ndnodes += new_dnodes;
     a->low = new_low;
+    a->refidx -= nidx;
     low_markable_address = new_low;
     lisp_global(HEAP_START) = (LispObj)new_low;
@@ -799 +801 @@
   a->high -= delta;
   a->ndnodes = area_dnode(a->high, a->low);
+  if (heap_dirty_limit > a->high) {
+    heap_dirty_limit = a->high;
+  }
   a->hardlimit = a->high;
   uncommit_pages(a->high, delta);