-- 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.