Changeset 13272


Ignore:
Timestamp:
Dec 9, 2009, 11:24:27 AM (10 years ago)
Author:
gb
Message:

Since pure area may contain pointers (at least to managed_static_area),
it may need to be relocated on startup.

File:
1 edited

Legend:

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

    r13267 r13272  
    343343       
    344344      case AREA_READONLY:
     345        if (bias &&
     346            (managed_static_area->active != managed_static_area->low)) {
     347          UnProtectMemory(a->low, a->active-a->low);
     348          relocate_area_contents(a, bias);
     349          ProtectMemory(a->low, a->active-a->low);
     350        }
    345351        readonly_area = a;
    346352        add_area_holding_area_lock(a);
Note: See TracChangeset for help on using the changeset viewer.