From: rrt <unknown>
Date: Wed, 15 Aug 2001 10:16:46 +0000 (+0000)
Subject: [project @ 2001-08-15 10:16:46 by rrt]
X-Git-Tag: Approximately_9120_patches~1236
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8956807f82b44e1584570c7511e0c62dee216ee9;p=ghc-hetmet.git

[project @ 2001-08-15 10:16:46 by rrt]
argc and argv no longer need faking; System.lhs copes
---

diff --git a/ghc/lib/std/cbits/ilxstubs.c b/ghc/lib/std/cbits/ilxstubs.c
index d1f64ba..3f0aac8 100644
--- a/ghc/lib/std/cbits/ilxstubs.c
+++ b/ghc/lib/std/cbits/ilxstubs.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GHC Team 2001
  *
- * $Id: ilxstubs.c,v 1.3 2001/08/15 09:23:25 rrt Exp $
+ * $Id: ilxstubs.c,v 1.4 2001/08/15 10:16:46 rrt Exp $
  *
  * ILX stubs for external function calls
  */
@@ -34,22 +34,6 @@
 ../PrelTopHandler.lhs:77:foreign import ccall "stackOverflow" unsafe
 ../PrelTopHandler.lhs:80:foreign import ccall "stg_exit" unsafe */
 
-/* Fake this for now, as a DLL can't refer to main() */
-int argc = 0;
-char **argv = NULL;
-
-int
-prog_argc_addr(void)
-{
-  return &argc;
-}
-
-char ***
-prog_argv_addr(void)
-{
-  return &argv;
-}
-
 void
 stg_exit(I_ n)
 {