Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 46809fa916
Fetching contributors…

Cannot retrieve contributors at this time

44 lines (36 sloc) 0.923 kb
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 2005
*
* RTS entry points as mandated by the FFI section of the Haskell report
*
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
#include "HsFFI.h"
#include "Rts.h"
#include "Stable.h"
// hs_init and hs_exit are defined in RtsStartup.c
void
hs_set_argv(int argc, char *argv[])
{
setProgArgv(argc,argv);
}
void
hs_perform_gc(void)
{
/* Hmmm, the FFI spec is a bit vague, but it seems to imply a major GC... */
performMajorGC();
}
void
hs_free_stable_ptr(HsStablePtr sp)
{
/* The cast is for clarity only, both HsStablePtr and StgStablePtr are
typedefs for void*. */
freeStablePtr((StgStablePtr)sp);
}
void
hs_free_fun_ptr(HsFunPtr fp)
{
/* I simply *love* all these similar names... */
freeHaskellFunctionPtr(fp);
}
Jump to Line
Something went wrong with that request. Please try again.