<> <> <> DIRECTORY Allocator USING[NHeaderP], SafeStorage USING[ReclamationReason]; Collector: DEFINITIONS = BEGIN Disposition: TYPE = MACHINE DEPENDENT {continue(0), reclaimIt(1), finalizeIt(2)}; InternalReclaim: PROC[reason: SafeStorage.ReclamationReason, suspendMe: BOOL]; Reclaim: PROC[nhp: Allocator.NHeaderP]; EstablishTAndSProc: PROC [proc: PROC]; END.