rts: Fix joinOSThread on Windowswip/joinOSThread

Previously we were treating the thread ID as a HANDLE, but it is not. We
must first OpenThread.

1 files changed, 6 insertions, 1 deletions

diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c
index 07b0e3f034..46e363b3ab 100644
--- a/rts/win32/OSThreads.c
+++ b/rts/win32/OSThreads.c
@@ -447,7 +447,12 @@ interruptOSThread (OSThreadId id)
 void
 joinOSThread (OSThreadId id)
 {
-    int ret = WaitForSingleObject(id, INFINITE);
+    HANDLE hdl;
+    if (!(hdl = OpenThread(SYNCHRONIZE,FALSE,id))) {
+        sysErrorBelch("interruptOSThread: OpenThread");
+        stg_exit(EXIT_FAILURE);
+    }
+    int ret = WaitForSingleObject(hdl, INFINITE);
     if (ret != WAIT_OBJECT_0) {
         sysErrorBelch("joinOSThread: error %d", ret);
     }