(****************************************
*                                       *
*     MODULA-2 Multi-Pass Compiler      *
*     ****************************      *
*                                       *
*       VAX/VMS Implementation          *
*                                       *
*                                       *
*     MVCOperations:                    *
*                                       *
*     Arithmetic operations for         *
*     constant expression evaluation    *
*                                       *
*     Version 3.1 of  1-FEB-1983        *
*                                       *
*                                       *
*                                       *
*     based on PDP11 Implementation     *
*     Version M22 of 06.01.81           *
*                                       *
*     Institut fuer Informatik          *
*     ETH-Zuerich                       *
*     C8092 Zuerich                     *
*                                       *
****************************************)

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

DEFINITION MODULE MVCOperations;        (* LG *)

  (* operations on constant expressions in compiler *)
  (* CAUTION: operations are based on 16-bit arithmetic *)

  FROM MVCompiler IMPORT Stptr, Symbol, Constval;

  EXPORT QUALIFIED RelOp, AddOp, MulOp, NotOp;

  PROCEDURE RelOp(c1,c2: Constval; VAR res: Constval; op: Symbol;
                  tp: Stptr; VAR err: BOOLEAN);
  (* evaluation of a relational operation on constant values *)

  (* reals not implemented *)

  PROCEDURE AddOp(c1,c2: Constval; VAR res: Constval; op: Symbol;
                  VAR tp: Stptr; VAR err: BOOLEAN);
  (* evaluation of additional operations on constant values   *)
  (* return the result value by res and the result type by tp *)
  (* err indicates an overflow error *)

  (* reals not implemented *)

  PROCEDURE MulOp(c1,c2: Constval; VAR res: Constval; op: Symbol;
                  VAR tp: Stptr; VAR err: BOOLEAN);
  (* evaluation of multiplicational operations on constant values *)
  (* return the result value by res and the result type by tp *)
  (* err indicates an overflow or zero-division error *)

  (* reals not implemented *)

  PROCEDURE NotOp(c1: Constval; VAR res: Constval);
  (* evaluation of NOT operation on a constant value *)

END MVCOperations.