-- RTBases.Mesa
-- last edited May 20, 1982 10:09 am By Paul Rovner

DIRECTORY
  RTQuanta USING[QuantumCount, QuantumIndex],
  RTBasic USING[Base];

RTBases: DEFINITIONS
= BEGIN
  OPEN RTQuanta, RTBasic;

  BaseOverhead: CARDINAL = 1;  -- change to AltoDefs.PageSize when map used for NIL chek

    -- built-in Bases
  baseRoot: Base;

-- Exported by AllocBaseImpl
  GetQuanta: PROC[base: Base, nQ: QuantumCount]
        RETURNS[q: QuantumIndex, firstQuantum: BOOLEAN];

  GetSubspaceQuanta: PROC[nQ: QuantumCount] RETURNS[QuantumIndex];

  PutQuanta: PROC[base: Base, q: QuantumIndex, nQ: QuantumCount];

  MakeAnHonestWoman: PROC;

  GetDQIS: PROC RETURNS[QuantumCount];  -- for performance monitoring
  
END.