diff options
Diffstat (limited to 'bytecomp')
| -rw-r--r-- | bytecomp/bytelibrarian.ml | 2 | ||||
| -rw-r--r-- | bytecomp/bytelink.ml | 2 | ||||
| -rw-r--r-- | bytecomp/printinstr.ml | 2 | ||||
| -rw-r--r-- | bytecomp/printlambda.ml | 2 | ||||
| -rw-r--r-- | bytecomp/simplif.ml | 1 | ||||
| -rw-r--r-- | bytecomp/symtable.ml | 2 | ||||
| -rw-r--r-- | bytecomp/translclass.ml | 2 | ||||
| -rw-r--r-- | bytecomp/translcore.ml | 2 |
8 files changed, 7 insertions, 8 deletions
diff --git a/bytecomp/bytelibrarian.ml b/bytecomp/bytelibrarian.ml index 200e0dc14..b5a1e8941 100644 --- a/bytecomp/bytelibrarian.ml +++ b/bytecomp/bytelibrarian.ml @@ -82,7 +82,7 @@ let create_archive file_list lib_name = remove_file lib_name; raise x -open Format +open Formatmsg let report_error = function File_not_found name -> diff --git a/bytecomp/bytelink.ml b/bytecomp/bytelink.ml index ea78706bf..20b836d89 100644 --- a/bytecomp/bytelink.ml +++ b/bytecomp/bytelink.ml @@ -517,7 +517,7 @@ let link objfiles = (* Error report *) -open Format +open Formatmsg let report_error = function File_not_found name -> diff --git a/bytecomp/printinstr.ml b/bytecomp/printinstr.ml index efebb828e..e883d15c5 100644 --- a/bytecomp/printinstr.ml +++ b/bytecomp/printinstr.ml @@ -13,7 +13,7 @@ (* Pretty-print lists of instructions *) -open Format +open Formatmsg open Lambda open Instruct diff --git a/bytecomp/printlambda.ml b/bytecomp/printlambda.ml index cdf4be787..e2e530003 100644 --- a/bytecomp/printlambda.ml +++ b/bytecomp/printlambda.ml @@ -11,7 +11,7 @@ (* $Id$ *) -open Format +open Formatmsg open Asttypes open Primitive open Types diff --git a/bytecomp/simplif.ml b/bytecomp/simplif.ml index 87a6735c9..98391b87f 100644 --- a/bytecomp/simplif.ml +++ b/bytecomp/simplif.ml @@ -82,7 +82,6 @@ let rec eliminate_ref id = function (* Simplification of lets *) -open Format let simplify_lambda lam = (* First pass: count the occurrences of all identifiers *) let occ = Hashtbl.create 83 in diff --git a/bytecomp/symtable.ml b/bytecomp/symtable.ml index b64b1fe3b..6dcec6afe 100644 --- a/bytecomp/symtable.ml +++ b/bytecomp/symtable.ml @@ -292,7 +292,7 @@ let filter_global_map p gmap = (* Error report *) -open Format +open Formatmsg let report_error = function Undefined_global s -> diff --git a/bytecomp/translclass.ml b/bytecomp/translclass.ml index fd2501330..c65bf53ab 100644 --- a/bytecomp/translclass.ml +++ b/bytecomp/translclass.ml @@ -314,7 +314,7 @@ let class_stub = (* Error report *) -open Format +open Formatmsg let report_error = function Illegal_class_expr -> diff --git a/bytecomp/translcore.ml b/bytecomp/translcore.ml index 15395e210..a8427cdf4 100644 --- a/bytecomp/translcore.ml +++ b/bytecomp/translcore.ml @@ -602,7 +602,7 @@ let transl_exception id path decl = (* Error report *) -open Format +open Formatmsg let report_error = function Illegal_letrec_pat -> |