<> <> <> <> <> <> 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.