-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.c
24 lines (21 loc) · 806 Bytes
/
Main.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team 2009
*
* The C main() function for a standalone Haskell program.
*
* Note that this is not part of the RTS. It calls into the RTS to get things
* going. It is compiled to a separate Main.o which is linked into every
* standalone Haskell program that uses a Haskell Main.main function
* (as opposed to a mixed Haskell C program using a C main function).
*
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
#include "Rts.h"
#include "RtsMain.h"
/* Similarly, we can refer to the ZCMain_main_closure here */
extern StgClosure ZCMain_main_closure;
int main(int argc, char *argv[])
{
return hs_main(argc, argv, &ZCMain_main_closure);
}