-- PPDebugTable.Mesa
-- Russ Atkinson, August 6, 1982 11:10 am

DIRECTORY
PPLeaves USING [TransferMode, TypeClass],
PPTree USING [NodeName];

PPDebugTable: CEDAR DEFINITIONS =
BEGIN OPEN Tree: PPTree, PPLeaves;

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

END.