Fix: bug dans le calcul de la longueur max d'une chaine.

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

1 files changed, 1 insertions, 1 deletions

diff --git a/byterun/str.c b/byterun/str.c
index 59d314043..d634d1fa7 100644
--- a/byterun/str.c
+++ b/byterun/str.c
@@ -41,7 +41,7 @@ value create_string(len)        /* ML */
      value len;
 {
   mlsize_t size = Long_val(len);
-  if (size > Max_wosize * sizeof(value) - 2) invalid_argument("String.create");
+  if (size > Bsize_wsize (Max_wosize) - 1) invalid_argument("String.create");
   return alloc_string(size);
 }