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 | |
| 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
| -rw-r--r-- | byterun/floats.c | 2 | ||||
| -rw-r--r-- | byterun/interp.c | 1 |
2 files changed, 2 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; diff --git a/byterun/interp.c b/byterun/interp.c index f4cb305d3..60d3c6dd7 100644 --- a/byterun/interp.c +++ b/byterun/interp.c @@ -213,6 +213,7 @@ value interprete(prog, prog_size) Next; Instruct(ASSIGN): sp[*pc++] = accu; + accu = Val_unit; Next; /* Access in heap-allocated environment */ |