-- file ErrorTable.Mesa -- last modified by Satterthwaite, October 18, 1978 4:46 PM DIRECTORY Log: FROM "log" USING [ErrorCode], Tree: FROM "tree" USING [NodeName]; ErrorTable: DEFINITIONS = BEGIN CSRptr: TYPE = BASE POINTER TO CompStrRecord; CompStrDesc: TYPE = RECORD[offset, length: CARDINAL]; CompStrRecord: TYPE = RECORD [ stringOffset: CSRptr RELATIVE POINTER TO StringBody, OpName: ARRAY Tree.NodeName[assignx..uparrow] OF CompStrDesc, FnName: ARRAY Tree.NodeName[min..loophole] OF CompStrDesc, ErrorMessages: ARRAY Log.ErrorCode OF CompStrDesc]; END.