diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-11-08 17:06:33 +0000 |
| commit | a048d42b10feaffe3e5ee8e891e15e8b59407e56 (patch) | |
| tree | 54ee79580060b51bc44d39f513ce63d9b8f3c4c4 /parsing | |
| parent | bad71c148081a820604b9901300a5b8e2b730a95 (diff) | |
Ajout du module Formatmsg pour rediriger les messages du systeme vers stdout ou stderr suivant le contexte
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2486 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/lexer.mll | 2 | ||||
| -rw-r--r-- | parsing/location.ml | 2 | ||||
| -rw-r--r-- | parsing/syntaxerr.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/parsing/lexer.mll b/parsing/lexer.mll index cbdc6c7d4..cda668d7b 100644 --- a/parsing/lexer.mll +++ b/parsing/lexer.mll @@ -148,7 +148,7 @@ and comment_start_pos = ref [] (* Error report *) -open Format +open Formatmsg let report_error = function Illegal_character -> diff --git a/parsing/location.ml b/parsing/location.ml index a0a52bfc0..1bdc67f13 100644 --- a/parsing/location.ml +++ b/parsing/location.ml @@ -90,7 +90,7 @@ let rec highlight_locations loc1 loc2 = (* Print the location in some way or another *) -open Format +open Formatmsg let reset () = num_loc_lines := 0 diff --git a/parsing/syntaxerr.ml b/parsing/syntaxerr.ml index 5b37456a1..919e820f7 100644 --- a/parsing/syntaxerr.ml +++ b/parsing/syntaxerr.ml @@ -13,7 +13,7 @@ (* Auxiliary type for reporting syntax errors *) -open Format +open Formatmsg type error = Unclosed of Location.t * string * Location.t * string |