diff options
Diffstat (limited to 'driver/opterrors.ml')
| -rw-r--r-- | driver/opterrors.ml | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/driver/opterrors.ml b/driver/opterrors.ml deleted file mode 100644 index a59e6f265e..0000000000 --- a/driver/opterrors.ml +++ /dev/null @@ -1,71 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id$ *) - -(* WARNING: if you change something in this file, you must look at - errors.ml to see if you need to make the same changes there. -*) - -open Format - -(* Report an error *) - -let report_error ppf exn = - let report ppf = function - | Lexer.Error(err, l) -> - Location.print ppf l; - Lexer.report_error ppf err - | Syntaxerr.Error err -> - Syntaxerr.report_error ppf err - | Pparse.Error -> - fprintf ppf "Preprocessor error" - | Env.Error err -> - Env.report_error ppf err - | Ctype.Tags(l, l') -> fprintf ppf - "In this program,@ variant constructors@ `%s and `%s@ \ - have the same hash value.@ Change one of them." l l' - | Typecore.Error(loc, err) -> - Location.print ppf loc; Typecore.report_error ppf err - | Typetexp.Error(loc, err) -> - Location.print ppf loc; Typetexp.report_error ppf err - | Typedecl.Error(loc, err) -> - Location.print ppf loc; Typedecl.report_error ppf err - | Typeclass.Error(loc, err) -> - Location.print ppf loc; Typeclass.report_error ppf err - | Includemod.Error err -> - Includemod.report_error ppf err - | Typemod.Error(loc, err) -> - Location.print ppf loc; Typemod.report_error ppf err - | Translcore.Error(loc, err) -> - Location.print ppf loc; Translcore.report_error ppf err - | Translclass.Error(loc, err) -> - Location.print ppf loc; Translclass.report_error ppf err - | Translmod.Error(loc, err) -> - Location.print ppf loc; Translmod.report_error ppf err - | Compilenv.Error code -> - Compilenv.report_error ppf code - | Asmgen.Error code -> - Asmgen.report_error ppf code - | Asmlink.Error code -> - Asmlink.report_error ppf code - | Asmlibrarian.Error code -> - Asmlibrarian.report_error ppf code - | Asmpackager.Error code -> - Asmpackager.report_error ppf code - | Sys_error msg -> - fprintf ppf "I/O error: %s" msg - | Warnings.Errors (n) -> - fprintf ppf "@.Error: %d error-enabled warnings occurred." n - | x -> fprintf ppf "@]"; raise x in - - fprintf ppf "@[%a@]@." report exn |