Un Pop_roots oublie.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1426 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1997-03-21 10:46:09 +00:00 · 1997-03-21 10:46:09 +00:00 · ec2ab0e1b1
parent cb7a4f3472
commit ec2ab0e1b1
1 changed files with 1 additions and 0 deletions
--- a/otherlibs/win32unix/windir.c
+++ b/otherlibs/win32unix/windir.c
@ -38,6 +38,7 @@ value win_findfirst(name)             /* ML */
  v = alloc_tuple(2);
  Field(v,0) = valname;
  Field(v,1) = Val_int(h);
+  Pop_roots();
  return v;
 }