-- File: PerfStructures.mesa
-- Edited by Sandman on September 19, 1980  7:44 AM

DIRECTORY
  Inline USING [LongNumber],
  ControlDefs USING [
    FrameHandle, GlobalFrameHandle, NullFrame, NullGlobalFrame, WordPC],
  PSBDefs USING [ProcessHandle];

PerfStructures: DEFINITIONS =
  BEGIN

  FrameHandle: TYPE = ControlDefs.FrameHandle;
  GlobalFrameHandle: TYPE = ControlDefs.GlobalFrameHandle;
  NullGlobalFrame: GlobalFrameHandle = ControlDefs.NullGlobalFrame;
  NullFrame: FrameHandle = ControlDefs.NullFrame;
  RealPC: TYPE = ControlDefs.WordPC;

  LongNumber: TYPE = Inline.LongNumber;

  PsbIndex: TYPE = PSBDefs.ProcessHandle;
  PsbHandle: TYPE = PSBDefs.ProcessHandle;
  NullPsbHandle: PsbHandle = NIL;
  IndexToHandle: PROCEDURE [i: PsbIndex] RETURNS [PsbHandle] = INLINE {RETURN[i]};
  HandleToIndex: PROCEDURE [h: PsbHandle] RETURNS [PsbIndex] = INLINE {RETURN[h]};

  END.