1 /* -----------------------------------------------------------------------------
2 * $Id: HsFFI.c,v 1.2 2003/01/28 16:30:06 simonmar Exp $
4 * (c) The GHC Team, 2002
6 * RTS entry points as mandated by the FFI addendum to the Haskell 98 report
8 * ---------------------------------------------------------------------------*/
13 // hs_init and hs_exit are defined in RtsStartup.c
16 hs_set_argv(int argc, char *argv[])
25 /* Hmmm, the FFI spec is a bit vague, but it seems to imply a major GC... */
30 hs_free_stable_ptr(HsStablePtr *sp)
32 /* The cast is for clarity only, both HsStablePtr and StgStablePtr are
33 typedefs for void*. */
34 freeStablePtr((StgStablePtr)sp);
38 hs_free_fun_ptr(HsFunPtr *fp)
40 /* I simply *love* all these similar names... */
41 freeHaskellFunctionPtr(fp);