X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FHsFFI.c;h=c84be4ae7e3ca5479edbe50e3951647682d85d69;hb=182b16bccea2eab1a8af93a6246db3d391e436c7;hp=47a049569046e370ff0b44d90698cc1fd71356ad;hpb=7e63e7e6b78e8d8d719668e568b704eb3e97337f;p=ghc-hetmet.git

diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index 47a0495..c84be4a 100644
--- a/ghc/rts/HsFFI.c
+++ b/ghc/rts/HsFFI.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.1 2002/11/17 15:27:08 panne Exp $
+ * $Id: HsFFI.c,v 1.2 2003/01/28 16:30:06 simonmar Exp $
  *
  * (c) The GHC Team, 2002
  *
@@ -10,22 +10,13 @@
 #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! */
+    prog_argc = argc;
+    prog_argv = argv;
 }
 
 void