<> <> DIRECTORY RTQuanta USING[QuantumCount, QuantumIndex], SafeStorage USING[Type]; SafeStoragePrivate: DEFINITIONS = BEGIN OPEN RTQuanta, SafeStorage; <> PrivateHeapZone: UNCOUNTED ZONE; PermanentPageZone: UNCOUNTED ZONE; <> <> <> GetPermanentDataPages: PROC[nPages: CARDINAL, createUniformSwapUnits: BOOL _ TRUE] RETURNS[LONG POINTER]; GetCollectibleQuanta: PROC[desired, needed: QuantumCount] RETURNS[qi: QuantumIndex, qc: QuantumCount]; GetDataPagesForGCTables: PROC RETURNS[LONG POINTER]; NotifyAllocatorReady: PROC; IsAllocatorReady: PROC RETURNS[BOOL]; <> AssignRef: PROC[refNew: REF ANY, ptrRef: LONG POINTER]; AssignRefNew: PROC[refNew: REF ANY, ptrRef: LONG POINTER]; <> NewObject: PROC[type: Type, size: CARDINAL, zone: ZONE _ NIL] RETURNS[REF ANY]; -- CLEARED ValidateRef: PROC [ref: REF ANY]; <> DisableReferenceCounting: PROC; -- TandS will try next time around <> OutOfOverflowTable: ERROR; InvalidRef: ERROR[ref: REF ANY]; InsufficientVM: SIGNAL; END.