summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen.Lippmeier@anu.edu.au <unknown>2009-11-17 05:06:48 +0000
committerBen.Lippmeier@anu.edu.au <unknown>2009-11-17 05:06:48 +0000
commit158e71360bfad8b8ee037e0f6ab81a6e8ced2e03 (patch)
treee77f49145c4ada49f1b4933c5d0115c442ebff07
parent0a290a2a34e86bed7dcfdd774fbf66c86c906914 (diff)
downloadhaskell-158e71360bfad8b8ee037e0f6ab81a6e8ced2e03.tar.gz
Windows DLLs: disable extra shutdownHaskell() when unloading the RTS DLL
-rw-r--r--rts/RtsDllMain.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/rts/RtsDllMain.c b/rts/RtsDllMain.c
index 250b63ea68..3e5af6864e 100644
--- a/rts/RtsDllMain.c
+++ b/rts/RtsDllMain.c
@@ -30,7 +30,11 @@ DllMain ( HINSTANCE hInstance
* you pass to the RTS.
*/
switch (reason) {
- case DLL_PROCESS_DETACH: shutdownHaskell();
+
+ // shutdownHaskelAndExit() is already being called,
+ // so I don't think we need this. BL 2009/11/17
+
+ //case DLL_PROCESS_DETACH: shutdownHaskell();
}
return TRUE;
}