-- file ErrorTable.Mesa
-- last modified by Satterthwaite, 23-Oct-81 14:25:08
-- last modified by Russ Atkinson, 14-Oct-80 16:09:46

DIRECTORY
  Log: TYPE USING [ErrorCode],
  Tree: TYPE USING [NodeName];

ErrorTable: DEFINITIONS = {

  CSRptr: TYPE = LONG 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..nil] OF CompStrDesc,
    ErrorMessages: ARRAY Log.ErrorCode OF CompStrDesc];

  }.