-- file DebugTable.Mesa
-- last modified by Satterthwaite, October 10, 1978  11:46 AM

DIRECTORY
  Symbols: FROM "symbols" USING [TransferMode, TypeClass],
  Tree: FROM "tree" USING [NodeName];

DebugTable: DEFINITIONS =
  BEGIN

  CSRptr: TYPE = 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 Symbols.TypeClass OF CompStrDesc,
    ModePrintName: ARRAY Symbols.TransferMode OF CompStrDesc];

  END.