int*_of_string: echouer si la chaine contient des chiffres illegaux dans la base courante (PR#178)

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

1 files changed, 2 insertions, 2 deletions

diff --git a/byterun/ints.c b/byterun/ints.c
index 687662081..c86d13398 100644
--- a/byterun/ints.c
+++ b/byterun/ints.c
@@ -68,7 +68,7 @@ static long parse_long(char * p)
   if (d < 0) failwith("int_of_string");
   for (p++, res = d; /*nothing*/; p++) {
     d = parse_digit(p);
-    if (d < 0) break;
+    if (d < 0 || d >= base) break;
     res = base * res + d;
   }
   if (*p != 0) failwith("int_of_string");
@@ -406,7 +406,7 @@ value int64_of_string(value s)          /* ML */
   p = parse_sign_and_base(String_val(s), &base, &sign);
   for (res = 0; /*nothing*/; p++) {
     d = parse_digit(p);
-    if (d < 0) break;
+    if (d < 0 || d >= base) break;
     res = base * res + d;
   }
   if (*p != 0) failwith("int_of_string");