summaryrefslogtreecommitdiffstats
path: root/otherlibs/win32unix/winwait.c
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez-inria.fr>2008-01-11 16:13:18 +0000
committerDamien Doligez <damien.doligez-inria.fr>2008-01-11 16:13:18 +0000
commit9ea5edac9ab0b3860688583a2ff22a9e164be086 (patch)
tree353e23e669026900926bbd60cfc791906887ce63 /otherlibs/win32unix/winwait.c
parentdb2092907f2eddcaf0b72f4bd0f429001364dbe5 (diff)
merge changes 3.10.0 -> 3.10.1
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8768 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/win32unix/winwait.c')
-rw-r--r--otherlibs/win32unix/winwait.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/otherlibs/win32unix/winwait.c b/otherlibs/win32unix/winwait.c
index ad510c4b4..895a6926b 100644
--- a/otherlibs/win32unix/winwait.c
+++ b/otherlibs/win32unix/winwait.c
@@ -63,6 +63,8 @@ CAMLprim value win_waitpid(value vflags, value vpid_req)
}
if (status == STILL_ACTIVE)
return alloc_process_status((HANDLE) 0, 0);
- else
+ else {
+ CloseHandle(pid_req);
return alloc_process_status(pid_req, status);
+ }
}