<> <> <> <> <> <> <> DIRECTORY Allocator USING [NHeaderP], Collector USING [Disposition], SafeStorage USING [Type], RTTypesBasicPrivate USING [TMapStiStd, TMapTiTd], ZCT USING [ZeroCountTable]; StorageTraps: DEFINITIONS = BEGIN <<>> <> <<>> <> FreeTrap: PROC[nhp: Allocator.NHeaderP] RETURNS[success: BOOL]; AllocateTrap: PROC[size: CARDINAL, type: SafeStorage.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: SafeStorage.Type]; <> <> <<>> <> CheckForNarrowRefFault: PROC[ref: REF ANY, targetType: SafeStorage.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.