Changeset 15841
- Timestamp:
- Jun 17, 2013, 5:07:46 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gb-egc/lisp-kernel/pmcl-kernel.c
r15831 r15841 684 684 685 685 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; 687 688 688 689 BytePtr old_markbits = (BytePtr)dynamic_mark_ref_bits, … … 696 697 a->ndnodes += new_dnodes; 697 698 a->low = new_low; 699 a->refidx -= nidx; 698 700 low_markable_address = new_low; 699 701 lisp_global(HEAP_START) = (LispObj)new_low; … … 799 801 a->high -= delta; 800 802 a->ndnodes = area_dnode(a->high, a->low); 803 if (heap_dirty_limit > a->high) { 804 heap_dirty_limit = a->high; 805 } 801 806 a->hardlimit = a->high; 802 807 uncommit_pages(a->high, delta);
Note: See TracChangeset
for help on using the changeset viewer.