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

        }.

