/* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.3 2004/04/12 16:26:41 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
*
void
hs_set_argv(int argc, char *argv[])
{
- prog_argc = argc;
- prog_argv = argv;
+ setProgArgv(argc,argv);
}
void