/* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.1 2002/11/17 15:27:08 panne Exp $
*
- * (c) The GHC Team, 2002
+ * (c) The GHC Team, 2005
*
* RTS entry points as mandated by the FFI addendum to the Haskell 98 report
*
#include "HsFFI.h"
#include "Rts.h"
-void
-hs_init(int *argc, char **argv[])
-{
- /* ToDo: Implement! */
-}
-
-void
-hs_exit(void)
-{
- /* ToDo: Implement! */
-}
+// hs_init and hs_exit are defined in RtsStartup.c
void
hs_set_argv(int argc, char *argv[])
{
- /* ToDo: Implement! */
+ setProgArgv(argc,argv);
}
void
}
void
-hs_free_stable_ptr(HsStablePtr *sp)
+hs_free_stable_ptr(HsStablePtr sp)
{
/* The cast is for clarity only, both HsStablePtr and StgStablePtr are
typedefs for void*. */
}
void
-hs_free_fun_ptr(HsFunPtr *fp)
+hs_free_fun_ptr(HsFunPtr fp)
{
/* I simply *love* all these similar names... */
freeHaskellFunctionPtr(fp);