diff options
author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:14 +0000 |
---|---|---|
committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:14 +0000 |
commit | f15f4f3ed83532c1571014bb35aa7cc2fd424686 (patch) | |
tree | 6c5e13cfa5c79b1ad64a61c704731ee496f19046 /bytecomp/bytepackager.ml | |
parent | a533618a7a7ba017905240a19db99a417573a83c (diff) | |
download | ocaml-f15f4f3ed83532c1571014bb35aa7cc2fd424686.tar.gz |
PR6695: Make sure the compiler only uses ASCII string functions.
This should cover all places involving filenames in the compiler.
There are a few more paths still using Latin-1 in other ways,
e.g. in ocamldoc.
From: Peter Zotov <whitequark@whitequark.org>
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15727 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/bytepackager.ml')
-rw-r--r-- | bytecomp/bytepackager.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/bytepackager.ml b/bytecomp/bytepackager.ml index 05ebac9aad..d8493ab322 100644 --- a/bytecomp/bytepackager.ml +++ b/bytecomp/bytepackager.ml @@ -96,7 +96,7 @@ type pack_member = let read_member_info file = ( let name = - String.capitalize(Filename.basename(chop_extensions file)) in + String.capitalize_ascii(Filename.basename(chop_extensions file)) in let kind = if Filename.check_suffix file ".cmo" then begin let ic = open_in_bin file in @@ -261,7 +261,7 @@ let package_files ppf initial_env files targetfile = files in let prefix = chop_extensions targetfile in let targetcmi = prefix ^ ".cmi" in - let targetname = String.capitalize(Filename.basename prefix) in + let targetname = String.capitalize_ascii(Filename.basename prefix) in try let coercion = Typemod.package_units initial_env files targetcmi targetname in |