diff options
Diffstat (limited to 'rts/RtsDllMain.c')
| -rw-r--r-- | rts/RtsDllMain.c | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/rts/RtsDllMain.c b/rts/RtsDllMain.c index 06c565588f..6bb3db1bd6 100644 --- a/rts/RtsDllMain.c +++ b/rts/RtsDllMain.c @@ -21,8 +21,8 @@ BOOL WINAPI DllMain ( HINSTANCE hInstance STG_UNUSED , DWORD reason - , LPVOID reserved STG_UNUSED - ) + , LPVOID reserved STG_UNUSED + ) { /* * Note: the DllMain() doesn't call startupHaskell() for you, @@ -31,13 +31,21 @@ DllMain ( HINSTANCE hInstance STG_UNUSED * you pass to the RTS. */ switch (reason) { - + // shutdownHaskelAndExit() is already being called, - // so I don't think we need this. BL 2009/11/17 - + // so I don't think we need this. BL 2009/11/17 + //case DLL_PROCESS_DETACH: shutdownHaskell(); } return TRUE; } #endif + +// Local Variables: +// mode: C +// fill-column: 80 +// indent-tabs-mode: nil +// c-basic-offset: 4 +// buffer-file-coding-system: utf-8-unix +// End: |