DIRECTORY
BcdDefs USING[BcdBase, ModuleIndex],
PrincOps USING[GlobalFrameHandle],
SafeStorage USING[Type];
SafeStorageOps: DEFINITIONS =
BEGIN
Called by the modeller or Cedar loader after loading a bcd.
AcquireTypesAndLiterals:
PROC[
bcd: BcdDefs.BcdBase,
moduleToGFH: PROC[BcdDefs.ModuleIndex] RETURNS[PrincOps.GlobalFrameHandle],
setType: PROC[PrincOps.GlobalFrameHandle, SafeStorage.Type]
];
CopyTypesAndLiterals:
PROC [
bcd: BcdDefs.BcdBase, mi: BcdDefs.ModuleIndex, old, new: PrincOps.GlobalFrameHandle];
Called by CopyNew
For system initialization
AcquireBasicLiterals:
PROC[aType: SafeStorage.Type
--CODE[AtomRec]--];
Called once AFTER the allocator and ATOM machinery have been initialized.
END.