diff options
| -rw-r--r-- | asmcomp/compilenv.ml | 2 | ||||
| -rw-r--r-- | driver/compile.ml | 4 | ||||
| -rw-r--r-- | driver/optcompile.ml | 4 | ||||
| -rw-r--r-- | otherlibs/dynlink/dynlink.ml | 2 | ||||
| -rw-r--r-- | tools/ocamldep.mll | 2 | ||||
| -rw-r--r-- | toplevel/expunge.ml | 2 | ||||
| -rw-r--r-- | typing/env.ml | 2 |
7 files changed, 9 insertions, 9 deletions
diff --git a/asmcomp/compilenv.ml b/asmcomp/compilenv.ml index 5c0636f22..20f99cda6 100644 --- a/asmcomp/compilenv.ml +++ b/asmcomp/compilenv.ml @@ -100,7 +100,7 @@ let global_approx global_ident = let (approx, crc) = try let filename = - find_in_path !load_path (lowercase modname ^ ".cmx") in + find_in_path !load_path (String.uncapitalize modname ^ ".cmx") in let (ui, crc) = read_unit_info filename in if ui.ui_name <> modname then raise(Error(Illegal_renaming(modname, filename))); diff --git a/driver/compile.ml b/driver/compile.ml index 1b445255d..9e8d5724c 100644 --- a/driver/compile.ml +++ b/driver/compile.ml @@ -92,7 +92,7 @@ let parse_file inputfile parse_fun ast_magic = let interface sourcefile = init_path(); let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in let sg = Typemod.transl_signature (initial_env()) ast in @@ -109,7 +109,7 @@ let print_if flag printer arg = let implementation sourcefile = init_path(); let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppo") in let ast = parse_file inputfile Parse.implementation ast_impl_magic_number in let objfile = prefixname ^ ".cmo" in diff --git a/driver/optcompile.ml b/driver/optcompile.ml index 7d5b83620..49d826c16 100644 --- a/driver/optcompile.ml +++ b/driver/optcompile.ml @@ -88,7 +88,7 @@ let parse_file inputfile parse_fun ast_magic = let interface sourcefile = let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppi") in let ast = parse_file inputfile Parse.interface ast_intf_magic_number in let sg = Typemod.transl_signature (initial_env()) ast in @@ -104,7 +104,7 @@ let print_if flag printer arg = let implementation sourcefile = let prefixname = Filename.chop_extension sourcefile in - let modulename = capitalize(Filename.basename prefixname) in + let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = preprocess sourcefile (prefixname ^ ".ppo") in let ast = parse_file inputfile Parse.implementation ast_impl_magic_number in let (str, sg, finalenv) = Typemod.type_structure (initial_env()) ast in diff --git a/otherlibs/dynlink/dynlink.ml b/otherlibs/dynlink/dynlink.ml index 2d71d077c..04cd29c5f 100644 --- a/otherlibs/dynlink/dynlink.ml +++ b/otherlibs/dynlink/dynlink.ml @@ -61,7 +61,7 @@ let add_available_units units = (* Read the CRC of an interface from its .cmi file *) let digest_interface unit loadpath = - let filename = Misc.find_in_path loadpath (Misc.lowercase unit ^ ".cmi") in + let filename = Misc.find_in_path loadpath (String.uncapitalize unit ^ ".cmi") in let ic = open_in_bin filename in try let buffer = String.create (String.length Config.cmi_magic_number) in diff --git a/tools/ocamldep.mll b/tools/ocamldep.mll index 08455940b..e422cac07 100644 --- a/tools/ocamldep.mll +++ b/tools/ocamldep.mll @@ -97,7 +97,7 @@ let load_path = ref [""] let opt_flag = ref true let find_dependency modname (byt_deps, opt_deps) = - let name = Misc.lowercase modname in + let name = String.uncapitalize modname in try let filename = Misc.find_in_path !load_path (name ^ ".mli") in let basename = Filename.chop_suffix filename ".mli" in diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml index 2de01aff2..c6864b6e6 100644 --- a/toplevel/expunge.ml +++ b/toplevel/expunge.ml @@ -37,7 +37,7 @@ let main () = (fun exn -> to_keep := StringSet.add exn !to_keep) Runtimedef.builtin_exceptions; for i = 3 to Array.length Sys.argv - 1 do - to_keep := StringSet.add (capitalize Sys.argv.(i)) !to_keep + to_keep := StringSet.add (String.capitalize Sys.argv.(i)) !to_keep done; let ic = open_in_bin input_name in let pos_trailer = diff --git a/typing/env.ml b/typing/env.ml index cf8825b4e..d52e42464 100644 --- a/typing/env.ml +++ b/typing/env.ml @@ -105,7 +105,7 @@ let find_pers_struct name = with Not_found -> let (ps, crc) = read_pers_struct name - (find_in_path !load_path (lowercase name ^ ".cmi")) in + (find_in_path !load_path (String.uncapitalize name ^ ".cmi")) in Hashtbl.add persistent_structures name ps; imported_units := (name, crc) :: !imported_units; ps |