arch/mir/util/mir_exn.ml

   1 (*
   2  * Normal MIR exceptions.
   3  *
   4  * ----------------------------------------------------------------
   5  *
   6  * @begin[license]
   7  * Copyright (C) 2001 Jason Hickey, Caltech
   8  *
   9  * This program is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU General Public License
  11  * as published by the Free Software Foundation; either version 2
  12  * of the License, or (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22  *
  23  * Author: Jason Hickey
  24  * @email{jyh@cs.caltech.edu}
  25  * @end[license]
  26  *)
  27 open Mir
  28
  29 (*
  30  * Exception values.
  31  *)
  32 type mir_error =
  33    UnboundVar of var
  34  | UnboundType of ty_var
  35  | ArityMismatch of int * int
  36  | StringError of string
  37  | StringIntError of string * int
  38  | StringVarError of string * var
  39  | StringAtomError of string * atom
  40  | StringTypeError of string * ty
  41  | StringIntTypeError of string * int * ty
  42  | StringFormatError of string * (Format.formatter -> unit)
  43  | StringAtomClassError of string * atom_class
  44  | ImplicitCoercion of atom
  45  | ImplicitCoercion2 of atom_class * atom_class
  46  | NotImplemented of string
  47  | InternalError of string
  48
  49 (*!
  50  * @docoff
  51  *
  52  * -*-
  53  * Local Variables:
  54  * Caml-master: "compile"
  55  * End:
  56  * -*-
  57  *)