(****************************************
*                                       *
*     MODULA-2 Multi-Pass Compiler      *
*     ****************************      *
*                                       *
*       VAX/VMS Implementation          *
*                                       *
*                                       *
*     MVCErrors:                        *
*                                       *
*     error message handling used by    *
*     used by all passes.               *
*                                       * 
*                                       *
*     Version 3.1 of  1-FEB-1983        *
*                                       *
*                                       *
*                                       *
****************************************)

(****************************************
* Updates: see implementation module    *
****************************************)

DEFINITION MODULE MVCErrors;   (* VAX:  M. Mall *)

  EXPORT QUALIFIED HaltMessage, InsertError, GetError;

  PROCEDURE HaltMessage (num: CARDINAL);
  (* displays message given by num and HALT's compiler *)

  PROCEDURE InsertError (num, line, pos: CARDINAL);
  (* records an error in an internal error list *)

  PROCEDURE GetError(VAR line, pos: CARDINAL; VAR text: ARRAY OF CHAR);
  (* returns one error after another from the error *)
  (* list, if no more errors then line = 0          *)

END MVCErrors.