DebugTable.Mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Satterthwaite, 23-Oct-81 14:25:36
Russ Atkinson (RRA) March 6, 1985 10:12:39 pm PST
DIRECTORY
Symbols
USING [TransferMode, TypeClass],
Tree
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];
}.