StorageAccounting.mesa
Copyright © 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
DIRECTORY
PrincOps USING[PsbIndex];
StorageAccounting: DEFINITIONS
= BEGIN
Types
PSBIMap: TYPE = RECORD[
elements: SEQUENCE maxLength: [0..LAST[PrincOps.PsbIndex]+1] OF CellCount
];
CellCount: TYPE = RECORD[total, current: LONG INTEGER];
Constants
defaultCollectionInterval: LONG CARDINAL = 40000B;
Variables
nWordsRequested: INT;
nWordsAllocated: INT;
SUMnWordsAllocated: INT;
nWordsReclaimed: INT;
nObjectsCreated: INT;
nObjectsReclaimed: INT;
MapPsbiToWordsAllocated: LONG POINTER TO PSBIMap;
CollectionInterval: INT;
SuspensionThreshold: INT;
Procs
ResetNWordsAllocated: PROC;
ResetTotalNWordsAllocatedOnly: PROC;
ConsiderCollection: PROC[requestedWords, suppliedWords: LONG CARDINAL];
END.