eliminate a warning

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

diff --git a/ghc/rts/HsFFI.c b/ghc/rts/HsFFI.c
index ec8f520..350bcfb 100644 (file)
--- a/ghc/rts/HsFFI.c
+++ b/ghc/rts/HsFFI.c
@@ -1,7 +1,6 @@
 /* -----------------------------------------------------------------------------
- * $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
  *
@@ -15,8 +14,7 @@
 void
 hs_set_argv(int argc, char *argv[])
 {
-    prog_argc = argc;
-    prog_argv = argv;
+    setProgArgv(argc,argv);
 }
 
 void