SafeStorageOps.mesa
Copyright © 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
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]
];
Called by the modeller or Cedar loader after loading a bcd.
CopyTypesAndLiterals:
PROC[bcd: BcdDefs.BcdBase,
mi: BcdDefs.ModuleIndex, old, new: PrincOps.GlobalFrameHandle
];
Called by CopyNew
AcquireBasicLiterals:
PROC[aType: SafeStorage.Type
--CODE[AtomRec]--];
For system initialization.
Called once AFTER the allocator and ATOM machinery have been initialized.
END.