juno-compiler/src/JunoCompileErr.i3


 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.