fix bug in GetLastError/SetLastError patch

diff --git a/rts/Schedule.c b/rts/Schedule.c
index a7a0f33..b405759 100644 (file)
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -643,7 +643,7 @@ run_thread:
     t->saved_errno = errno;
 #if mingw32_HOST_OS
     // Similarly for Windows error code
     t->saved_errno = errno;
 #if mingw32_HOST_OS
     // Similarly for Windows error code

-    SetLastError(t->saved_winerror);
+    t->saved_winerror = GetLastError();

 #endif
 
 #if defined(THREADED_RTS)
 #endif
 
 #if defined(THREADED_RTS)