1 /* -----------------------------------------------------------------------------
2 * $Id: HsFFI.c,v 1.1 2002/11/17 15:27:08 panne Exp $
4 * (c) The GHC Team, 2002
6 * RTS entry points as mandated by the FFI addendum to the Haskell 98 report
8 * ---------------------------------------------------------------------------*/
14 hs_init(int *argc, char **argv[])
16 /* ToDo: Implement! */
22 /* ToDo: Implement! */
26 hs_set_argv(int argc, char *argv[])
28 /* ToDo: Implement! */
34 /* Hmmm, the FFI spec is a bit vague, but it seems to imply a major GC... */
39 hs_free_stable_ptr(HsStablePtr *sp)
41 /* The cast is for clarity only, both HsStablePtr and StgStablePtr are
42 typedefs for void*. */
43 freeStablePtr((StgStablePtr)sp);
47 hs_free_fun_ptr(HsFunPtr *fp)
49 /* I simply *love* all these similar names... */
50 freeHaskellFunctionPtr(fp);