Oubli d'un "Pop_root" dans make_vect.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1260 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1997-02-06 10:34:03 +00:00 · 1997-02-06 10:34:03 +00:00 · a3a9207a6f
parent 6389c34a64
commit a3a9207a6f
1 changed files with 1 additions and 0 deletions
--- a/asmrun/array.c
+++ b/asmrun/array.c
@ -107,6 +107,7 @@ value make_array(init)
      for (i = 0; i < size; i++) {
        Store_double_field(res, i, Double_val(Field(init, i)));
      }
+      Pop_roots();
      return res;
    }
  }