[ocamlbuild] [FIXED] Use String.max_string_length instead of a wrong constant.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8570 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

ocamlbuild/my_std.ml

@@ -276,7 +276,7 @@ let read_file x =
 let copy_chan ic oc =
   let m = in_channel_length ic in
   let m = (m lsr 12) lsl 12 in
-  let m = max 16384 (min 16777216 m) in
+  let m = max 16384 (min Sys.max_string_length m) in
   let buf = String.create m in
   let rec loop () =
     let len = input ic buf 0 m in