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/interp.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/interp.c')
| -rw-r--r-- | byterun/interp.c | 1 |
1 files changed, 1 insertions, 0 deletions
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 */ |