<> <> DIRECTORY BcdDefs USING[BcdBase, ModuleIndex], PrincOps USING[GlobalFrameHandle], SafeStorage USING[Type]; SafeStorageOps: DEFINITIONS = BEGIN <> 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]; <> <> AcquireBasicLiterals: PROC[aType: SafeStorage.Type--CODE[AtomRec]--]; <> END.