[ivy]<Satterthwaite>Mimosa>DebugTable.mesa!1

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