-- File: VMStorage.mesa
-- Last edited by Levin:  26-Nov-80 15:54:01

VMStorage: DEFINITIONS =

  BEGIN


  -- Node-Level Allocator --

  shortTerm, longTerm: MDSZone;


  -- Page-Level Allocator --

  AllocatePage: PROCEDURE RETURNS [POINTER];
  -- returns the address of a 1-page buffer in main memory.

  FreePage: PROCEDURE [p: POINTER];
  -- releases the 1-page buffer beginning at main memory address 'p'.

  InitializeStorage: PRIVATE PROCEDURE;
  -- initializes the main memory allocator.  Note that this is a private procedure, and
  -- therefore should be called only by knowledgeable clients (i.e., the VM level).

  FinalizeStorage: PRIVATE PROCEDURE;
  -- finalizes the main memory allocator.  Note that this is a private procedure, and
  -- therefore should be called only by knowledgeable clients (i.e., the VM level).

  END.