-- file DebugTable.Mesa
-- last modified by Bruce, Aug 28, 1980 5:47 PM

DIRECTORY
  Symbols: FROM "symbols" USING [TransferMode, TypeClass],
  Tree: FROM "tree" USING [NodeName];
  
DebugTable: DEFINITIONS =
  BEGIN
  
  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];
    
  END.