diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2007-12-04 13:38:58 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2007-12-04 13:38:58 +0000 |
| commit | e9a9bf961371899ed6d2bb02be98ab98c6adb5f6 (patch) | |
| tree | 91cd210ff2fd64cced560d5a63f3fbe3317f1e73 /tools | |
| parent | 0593f338d4f9bb9942b6bc69e6786dba45f5d610 (diff) | |
| download | ocaml-e9a9bf961371899ed6d2bb02be98ab98c6adb5f6.tar.gz | |
PR#3114 make all error messages start with a location and "Error: "
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8705 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/ocamldep.ml | 2 | ||||
| -rw-r--r-- | tools/ocamlprof.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml index 3602200476..27c5d7efbc 100644 --- a/tools/ocamldep.ml +++ b/tools/ocamldep.ml @@ -253,7 +253,7 @@ let file_dependencies source_file = let report_err = function | Lexer.Error(err, range) -> fprintf Format.err_formatter "@[%a%a@]@." - Location.print range Lexer.report_error err + Location.print_error range Lexer.report_error err | Syntaxerr.Error err -> fprintf Format.err_formatter "@[%a@]@." Syntaxerr.report_error err diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index 09112efd1f..c66e6722f2 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -476,7 +476,7 @@ let main () = let report_error ppf = function | Lexer.Error(err, range) -> fprintf ppf "@[%a%a@]@." - Location.print range Lexer.report_error err + Location.print_error range Lexer.report_error err | Syntaxerr.Error err -> fprintf ppf "@[%a@]@." Syntaxerr.report_error err |