eliminate a warning

[ghc-hetmet.git] / ghc / rts / HsFFI.c

diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index 47a0495..350bcfb 100644 (file)
--- a/ghc/rts/HsFFI.c
+++ b/ghc/rts/HsFFI.c
@@ -1,7 +1,6 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.1 2002/11/17 15:27:08 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
  *
@@ -10,22 +9,12 @@
 #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! */
+    setProgArgv(argc,argv);
 }
 
 void
@@ -36,7 +25,7 @@ hs_perform_gc(void)
 }
 
 void
-hs_free_stable_ptr(HsStablePtr *sp)
+hs_free_stable_ptr(HsStablePtr sp)
 {
     /* The cast is for clarity only, both HsStablePtr and StgStablePtr are
        typedefs for void*. */
@@ -44,7 +33,7 @@ hs_free_stable_ptr(HsStablePtr *sp)
 }
 
 void
-hs_free_fun_ptr(HsFunPtr *fp)
+hs_free_fun_ptr(HsFunPtr fp)
 {
     /* I simply *love* all these similar names... */
     freeHaskellFunctionPtr(fp);