-- Copyright (C) 1986  by Xerox Corporation. All rights reserved. 
-- SpecialCRuntime.mesa
-- NFS   27-May-86 11:37:42

DIRECTORY
  Environment USING [PageCount];
SpecialCRuntime: DEFINITIONS = {

  SetHeapDelete: PROCEDURE [deleteHeap: BOOLEAN] 
    RETURNS [oldDeleteHeap: BOOLEAN];

  GetHeapDelete: PROCEDURE RETURNS [deleteHeap: BOOLEAN];

  SetUnusedSpaceCheck: PROCEDURE [checkSpace: BOOLEAN]
    RETURNS [oldCheckSpace: BOOLEAN];

  GetUnusedSpaceCheck: PROCEDURE RETURNS [checkSpace: BOOLEAN];

  --Min. No. of pages to make a file for global arrays.
  arraySpaceThreshold: Environment.PageCount;

  heapSize: Environment.PageCount;  -- Initial size of library heaps.

  SetDataSwapUnitSize: PROCEDURE [size: CARDINAL] RETURNS [oldSize: CARDINAL];

  SetCodeSwapUnitSize: PROCEDURE [size: CARDINAL] RETURNS [oldSize: CARDINAL];

  GetDataSwapUnitSize: PROCEDURE RETURNS [size: CARDINAL];

  GetCodeSwapUnitSize: PROCEDURE RETURNS [size: CARDINAL];
  
  SetLogging: PROCEDURE [
    newLogging: BOOLEAN] RETURNS[oldLogging: BOOLEAN];
  
  GetLogging: PROCEDURE RETURNS[isLogging: BOOLEAN];

  }.