+/* -----------------------------------------------------------------------------
+ * $Id: RtsDllMain.c,v 1.1 1999/09/16 08:29:01 sof Exp $
+ *
+ * (c) The GHC Team 1999-1900
+ *
+ * Entry point for RTS-in-a-DLL
+ *
+ * ---------------------------------------------------------------------------*/
+
+#include "Rts.h"
+#include "RtsAPI.h"
+
+#ifdef HAVE_WINDOWS_H
+#include <windows.h>
+#endif
+
+/* I'd be mildly surprised if this wasn't defined, but still. */
+#ifdef ENABLE_WIN32_DLL_SUPPORT
+
+BOOL
+WINAPI
+DllMain ( HINSTANCE hInstance
+ , DWORD reason
+ , LPVOID reserved
+ )
+{
+ /*
+ * Note: the DllMain() doesn't call startupHaskell() for you,
+ * that is the task of users of the RTS. The reason is
+ * that *you* want to be able to control the arguments
+ * you pass to the RTS.
+ */
+ switch (reason) {
+ case DLL_PROCESS_DETACH: shutdownHaskell();
+ }
+ return TRUE;
+}
+
+#endif /* ENABLE_WIN32_DLL_SUPPORT */