summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-01-29 12:45:59 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-01-29 12:45:59 +0000
commitd480a72588fc62e36dda58089abcbd82d51fa3b8 (patch)
tree173bd5337bf6a0925fc613a94fee45d87d511f46 /rts
parente576ba5d31fbae54c43e88316fb0dbdba9cbd4ff (diff)
downloadhaskell-d480a72588fc62e36dda58089abcbd82d51fa3b8.tar.gz
fix bug in GetLastError/SetLastError patch
Diffstat (limited to 'rts')
-rw-r--r--rts/Schedule.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c
index a7a0f33872..b4057591da 100644
--- 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
- SetLastError(t->saved_winerror);
+ t->saved_winerror = GetLastError();
#endif
#if defined(THREADED_RTS)