<> <> <> <> <> <> <<>> <> 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]; <> latency: CARDINAL; -- milliseconds of latency backgroundCollectorProcess: PROCESS; -- the collector process END.