From 62cf64aa86d5613b08149aa4eb2b50f56dcde5b3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 8 Dec 2016 14:58:17 +0100
Subject: [PATCH] terminate-process: windows HANDLE isn't fixnum

---
 src/c/unixsys.d | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 18b67f914..09f42bddb 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -312,7 +312,8 @@ ecl_waitpid(cl_object pid, cl_object wait)
       if (!Null(pid)) {
         int ret;
 #if defined(ECL_MS_WINDOWS_HOST)
-        ret = TerminateProcess(ecl_fixnum(pid), -1);
+        HANDLE *ph = (HANDLE*)ecl_foreign_data_pointer_safe(pid);
+        ret = TerminateProcess(ph, -1);
         error_encountered = (ret == 0);
 #else
         ret = kill(ecl_fixnum(pid), Null(force) ? SIGTERM : SIGKILL);