-- file DebugTable.Mesa
-- last modified by Satterthwaite, 23-Oct-81 14:25:36
-- last modified by Russ Atkinson, 14-Oct-80 16:14:46

DIRECTORY
  Symbols: TYPE USING [TransferMode, TypeClass],
  Tree: TYPE USING [NodeName];

DebugTable: DEFINITIONS = {

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

  }.