<> <> DIRECTORY Allocator USING[NHeaderP], Collector USING[Disposition], SafeStorage USING[Type], RTTypesBasicPrivate USING[TMapStiStd, TMapTiTd], ZCT USING[ZeroCountTable]; StorageTraps: DEFINITIONS = BEGIN OPEN SafeStorage; <> <> FreeTrap: PROC[nhp: Allocator.NHeaderP] RETURNS[success: BOOL]; AllocateTrap: PROC[size: CARDINAL, type: Type] RETURNS[REF]; <<>> <> AssignRefTrap: PROC[refNew: REF, ptrRef: LONG POINTER TO REF]; DisableMicrocodeTrap: PROC[zct: ZCT.ZeroCountTable]; EnableMicrocodeTrap: PROC[zct: ZCT.ZeroCountTable] RETURNS[ucVersion: NAT _ 0]; ReclaimableRefTrap: PROC[nhp: Allocator.NHeaderP] RETURNS[Collector.Disposition]; ReclaimedRefTrap: PROC[ref: REF ANY] RETURNS[REF ANY]; CreateRefTrap: PROC[nhp: Allocator.NHeaderP]; <<>> <> <> <> <> <> GetCanonicalReferentTypeTrap: PROC[ref: REF ANY] RETURNS[type: Type]; <> <> <> CheckForNarrowRefFault: PROC[ref: REF ANY, targetType: Type] RETURNS[REF ANY]; <> RaiseNarrowFault: PROC; -- from StorageTrapsImpl <> ProcCheck: PROC[proc: PROC ANY RETURNS ANY] RETURNS[PROC ANY RETURNS ANY]; <> <> MapStiStd: RTTypesBasicPrivate.TMapStiStd; <> MapTiTd: RTTypesBasicPrivate.TMapTiTd; <> END.