summaryrefslogtreecommitdiff
path: root/rts/RtsDllMain.c
blob: c844e6e65dfef6a4fa5ca5705329c11729a16bc6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/* -----------------------------------------------------------------------------
 *
 * (c) The GHC Team 1999-2000
 *
 * Entry point for RTS-in-a-DLL
 *
 * ---------------------------------------------------------------------------*/

#include "PosixSource.h"
#include "Rts.h"
#include "RtsAPI.h"
#include "RtsDllMain.h"

#if defined(HAVE_WINDOWS_H)
#include <windows.h>
#endif

/* I'd be mildly surprised if this wasn't defined, but still. */
#if defined(COMPILING_WINDOWS_DLL)
BOOL
WINAPI
DllMain ( HINSTANCE hInstance STG_UNUSED
        , DWORD reason
        , LPVOID reserved STG_UNUSED
        )
{
  /*
   * 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) {

  // shutdownHaskelAndExit() is already being called,
  //    so I don't think we need this. BL 2009/11/17

  //case DLL_PROCESS_DETACH: shutdownHaskell();
  }
  return true;
}

#endif