Changeset 8616


Ignore:
Timestamp:
Feb 28, 2008, 4:54:50 PM (12 years ago)
Author:
gb
Message:

set HEAP_START, HEAP_END earlier

Location:
trunk/source/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/image.c

    r8547 r8616  
    319319        break;
    320320      case AREA_DYNAMIC:
    321         lisp_global(HEAP_START) = ptr_to_lispobj(a->low);
    322         lisp_global(HEAP_END) = ptr_to_lispobj(a->high);
    323321        if (bias) {
    324322          relocate_area_contents(a, bias);
  • trunk/source/lisp-kernel/pmcl-kernel.c

    r8575 r8616  
    800800  a->softprot = NULL;
    801801  a->hardprot = NULL;
     802  lisp_global(HEAP_START) = ptr_to_lispobj(a->low);
     803  lisp_global(HEAP_END) = ptr_to_lispobj(a->high);
    802804  ensure_gc_structures_writable();
    803805  return a;
Note: See TracChangeset for help on using the changeset viewer.