-- File DBHeapStorage.mesa
-- Last edited by
--   MBrown on February 28, 1981  5:37 PM
--   Cattell on August 24, 1982 10:49 am

  DIRECTORY
    Heap,
    Storage;

DBHeapStorage: DEFINITIONS
  IMPORTS
    Heap,
    Storage
  = BEGIN

  GetTheMDSZone: PROCEDURE RETURNS[MDSZone] = INLINE {
    RETURN[Heap.systemMDSZone] };

  Node: PROC [size: CARDINAL] RETURNS [POINTER];

  Free: PROC [object: POINTER];

  String: PROC [nchars: CARDINAL] RETURNS [STRING] = INLINE {
    RETURN[Storage.String[nchars]] };

  FreeString: PROC [s: STRING] = INLINE {
    Storage.FreeString[s] };

END.--DBHeapStorage


CHANGE LOG

Created by MBrown on February 27, 1981  8:36 PM

Changed by MBrown on February 28, 1981  5:37 PM
-- Pilot version.