-- file SakuraDebugTable.Mesa
-- last modified by Satterthwaite, September 22, 1980  12:38 PM
-- last edit by Suzuki, 27-Jul-81 13:46:13

DIRECTORY
  PPLeaves: TYPE USING [TransferMode, TypeClass],
  SakuraTree: TYPE USING [NodeName];

SakuraDebugTable: DEFINITIONS =
  BEGIN OPEN Tree: SakuraTree, PPLeaves;

  CSRptr: TYPE = LONG BASE POINTER TO CompStrRecord;

  CompStrDesc: TYPE = RECORD[offset, length: CARDINAL];

  CompStrRecord: TYPE = RECORD [
    stringOffset: CSRptr RELATIVE POINTER TO StringBody,
    NodePrintName: ARRAY Tree.NodeName OF CompStrDesc,
    TypePrintName: ARRAY TypeClass OF CompStrDesc,
    ModePrintName: ARRAY TransferMode OF CompStrDesc];

  END.