Changeset 15841


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gb-egc/lisp-kernel/pmcl-kernel.c

    r15831 r15841  
    684684
    685685  if (new_dnodes) {
    686     natural n = (new_dnodes+7)>>3;
     686    natural n = (new_dnodes+7)>>3,
     687      nidx = ((((new_dnodes+255)>>8)+7)>>3)>>node_shift;
    687688
    688689    BytePtr old_markbits = (BytePtr)dynamic_mark_ref_bits,
     
    696697    a->ndnodes += new_dnodes;
    697698    a->low = new_low;
     699    a->refidx -= nidx;
    698700    low_markable_address = new_low;
    699701    lisp_global(HEAP_START) = (LispObj)new_low;
     
    799801  a->high -= delta;
    800802  a->ndnodes = area_dnode(a->high, a->low);
     803  if (heap_dirty_limit > a->high) {
     804    heap_dirty_limit = a->high;
     805  }
    801806  a->hardlimit = a->high;
    802807  uncommit_pages(a->high, delta);
Note: See TracChangeset for help on using the changeset viewer.