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 /toplevel/expunge.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 'toplevel/expunge.ml')
| -rw-r--r-- | toplevel/expunge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/expunge.ml b/toplevel/expunge.ml index a893c60ddc..9496d56b27 100644 --- a/toplevel/expunge.ml +++ b/toplevel/expunge.ml @@ -44,7 +44,7 @@ let main () = let input_name = Sys.argv.(1) in let output_name = Sys.argv.(2) in for i = (if negate then 4 else 3) to Array.length Sys.argv - 1 do - to_keep := StringSet.add (String.capitalize Sys.argv.(i)) !to_keep + to_keep := StringSet.add (String.capitalize_ascii Sys.argv.(i)) !to_keep done; let ic = open_in_bin input_name in Bytesections.read_toc ic; |