diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-11-20 12:27:56 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-11-20 12:27:56 +0000 |
| commit | 730e54bbfe37c4eb39d756dd547c085c6b4e7652 (patch) | |
| tree | df4541c1d18843421921fb2f1d7a3b802b579587 /byterun/ints.c | |
| parent | 34b56af525d9a8a1c51b68537189001e2f3e23aa (diff) | |
int_of_string et al: verifier la base sur le premier chiffre (PR#223)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3333 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/ints.c')
| -rw-r--r-- | byterun/ints.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/ints.c b/byterun/ints.c index 2893b6988..3742174b5 100644 --- a/byterun/ints.c +++ b/byterun/ints.c @@ -65,7 +65,7 @@ static long parse_long(char * p) p = parse_sign_and_base(p, &base, &sign); d = parse_digit(p); - if (d < 0) failwith("int_of_string"); + if (d < 0 || d >= base) failwith("int_of_string"); for (p++, res = d; /*nothing*/; p++) { d = parse_digit(p); if (d < 0 || d >= base) break; |