GENERIC INTERFACECopyright (C) 1991, Digital Equipment Corporation All rights reserved. See the file COPYRIGHT for a full description.M3CBackEnd_Int (IntType);
IMPORT M3AST_AS, M3AST_SM, M3CStdProcs, M3CBackEnd, M3CWordProcs; REVEAL M3AST_SM.Exp_value <: ROOT; TYPE T = M3AST_SM.Exp_value BRANDED OBJECT sm_value: IntType.T END; PROCEDURE New_value(r: IntType.T): T RAISES {}; PROCEDURE StdUnaryOp( f: M3CStdProcs.Func; e: T; VAR (*out*) er: M3AST_SM.Exp_value; it: M3AST_AS.INT_TYPE := NIL; ft: M3AST_AS.FLOAT_TYPE := NIL ): M3CBackEnd.NumStatus RAISES {}; PROCEDURE StdBinaryOp( f: M3CStdProcs.Func; e1, e2: T; VAR (*out*) er: M3AST_SM.Exp_value) : M3CBackEnd.NumStatus RAISES {}; PROCEDURE UnaryOp( op: M3AST_AS.UNARY; e: T; VAR (*out*) er: M3AST_SM.Exp_value) : M3CBackEnd.NumStatus RAISES {}; PROCEDURE BinaryOp( op: M3AST_AS.BINARY; e1, e2: T; VAR (*out*) er: M3AST_SM.Exp_value) : M3CBackEnd.NumStatus RAISES {}; PROCEDURE WordOp( w: M3CWordProcs.T; READONLY args: ARRAY OF M3AST_SM.Exp_value; VAR (* out *) er: M3AST_SM.Exp_value) : M3CBackEnd.NumStatus RAISES {}; END M3CBackEnd_Int.