From e9723139769a4df610fadba0fdeecab298c1c17e Mon Sep 17 00:00:00 2001
From: Alain Frisch <alain@frisch.fr>
Date: Tue, 3 Sep 2013 13:10:56 +0000
Subject: #6146: emulate Unix.kill with signal = Sys.sigkill under Windows.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14059 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/win32unix/createprocess.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'otherlibs/win32unix/createprocess.c')

diff --git a/otherlibs/win32unix/createprocess.c b/otherlibs/win32unix/createprocess.c
index 4e32cb19c..0e1e37a24 100644
--- a/otherlibs/win32unix/createprocess.c
+++ b/otherlibs/win32unix/createprocess.c
@@ -82,3 +82,8 @@ static int win_has_console(void)
     return 1;
   }
 }
+
+CAMLprim value win_terminate_process(value v_pid)
+{
+  return (Val_bool(TerminateProcess((HANDLE) Long_val(v_pid), 0)));
+}
-- 
cgit v1.2.3-70-g09d2