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. ¸SafeStorageOps.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Paul Rovner, July 7, 1983 10:05 am Russ Atkinson (RRA) February 1, 1985 12:30:39 pm PST Beach, February 23, 1985 9:39:34 am PST Doug Wyatt, February 24, 1985 8:40:44 pm PST Called by the modeller or Cedar loader after loading a bcd. Called by CopyNew For system initialization. Called once AFTER the allocator and ATOM machinery have been initialized. Êý˜codešœ™Kšœ Ïmœ1™