Copyright (C) 1993, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
Last modified on Tue May 10 09:06:23 PDT 1994 by heydon
INTERFACE JunoCompileErr;
IMPORT JunoAST;
TYPE
ErrVal = OBJECT
msg: TEXT;
ast: JunoAST.T;
END;
EXCEPTION Error(ErrVal);
Procedures may raise the exception Error to indicate that a compilation
error has occurred. The ErrVal
contains the text of the error message and
the bad AST node of the original AST.
PROCEDURE Raise(msg: TEXT; ast: JunoAST.T) RAISES {Error};
Raise Error
with an error value whose message is msg
and whose error
AST is the earliest AST reachable from ast
by following back pointers.
END JunoCompileErr.