(* 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:22 PDT 1994 by heydon                   *)

MODULE JunoCompileErr;

IMPORT JunoAST;

PROCEDURE Raise(msg: TEXT; ast: JunoAST.T) RAISES {Error} =
  VAR err := NEW(ErrVal, msg := msg); BEGIN
    IF ast # NIL THEN
      (* find predecessor; crash if predecessor undefined *)
      WHILE ast.bp # JunoAST.End DO ast := ast.bp END;
    END;
    err.ast := ast;
    RAISE Error(err)
  END Raise;

BEGIN END JunoCompileErr.