1 /* -----------------------------------------------------------------------------
2 * $Id: RtsDllMain.c,v 1.2 2000/04/26 17:27:00 rrt Exp $
4 * (c) The GHC Team 1999-2000
6 * Entry point for RTS-in-a-DLL
8 * ---------------------------------------------------------------------------*/
17 /* I'd be mildly surprised if this wasn't defined, but still. */
18 #ifdef ENABLE_WIN32_DLL_SUPPORT
22 DllMain ( HINSTANCE hInstance
28 * Note: the DllMain() doesn't call startupHaskell() for you,
29 * that is the task of users of the RTS. The reason is
30 * that *you* want to be able to control the arguments
31 * you pass to the RTS.
34 case DLL_PROCESS_DETACH: shutdownHaskell();
39 #endif /* ENABLE_WIN32_DLL_SUPPORT */