diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:03:21 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:03:21 +0000 |
| commit | 7d69381138a235e8c99b1a07c16f6b73c27ab25e (patch) | |
| tree | 3c6ec898294f25e06406b60a4b55963686edd46f /byterun/floats.c | |
| parent | 9810128491db663e17d8b9ea0d33e799213a1c02 (diff) | |
interp: ASSIGN met () dans l'accu
floats: petite rectif dans format_float.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@617 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/floats.c')
| -rw-r--r-- | byterun/floats.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/byterun/floats.c b/byterun/floats.c index 53ac9528f..8a3f81fbf 100644 --- a/byterun/floats.c +++ b/byterun/floats.c @@ -101,7 +101,7 @@ value format_float(fmt, arg) /* ML */ char * dest; value res; - prec = 64; + prec = MAX_DIGITS; for (p = String_val(fmt); *p != 0; p++) { if (*p >= '0' && *p <= '9') { i = atoi(p) + MAX_DIGITS; |