diff options
| -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 */ |