From f15f4f3ed83532c1571014bb35aa7cc2fd424686 Mon Sep 17 00:00:00 2001 From: Gabriel Scherer Date: Sun, 21 Dec 2014 11:46:14 +0000 Subject: 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 git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15727 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- bytecomp/bytepackager.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bytecomp/bytepackager.ml') 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 -- cgit v1.2.1