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];
}.