DIRECTORY PrincOps USING[PsbIndex]; StorageAccounting: DEFINITIONS = BEGIN PSBIMap: TYPE = RECORD[ elements: SEQUENCE maxLength: [0..LAST[PrincOps.PsbIndex]+1] OF CellCount ]; CellCount: TYPE = RECORD[total, current: LONG INTEGER]; defaultCollectionInterval: LONG CARDINAL = 40000B; nWordsRequested: INT; nWordsAllocated: INT; SUMnWordsAllocated: INT; nWordsReclaimed: INT; nObjectsCreated: INT; nObjectsReclaimed: INT; MapPsbiToWordsAllocated: LONG POINTER TO PSBIMap; CollectionInterval: INT; SuspensionThreshold: INT; ResetNWordsAllocated: PROC; ResetTotalNWordsAllocatedOnly: PROC; ConsiderCollection: PROC[requestedWords, suppliedWords: LONG CARDINAL]; END. *StorageAccounting.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Paul Rovner, August 19, 1983 9:54 am Russ Atkinson (RRA) February 1, 1985 12:45:02 pm PST Beach, February 22, 1985 3:35:26 pm PST Doug Wyatt, February 24, 1985 9:01:25 pm PST Types Constants Variables Procs Κ³– "cedar" style˜codešœ™Kšœ Οmœ1™