From: simonmar <unknown>
Date: Tue, 28 Jan 2003 16:23:53 +0000 (+0000)
Subject: [project @ 2003-01-28 16:23:53 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1229
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5d0ccfe99f2b3daebff76d6edf65f7484d1cf801;p=ghc-hetmet.git

[project @ 2003-01-28 16:23:53 by simonmar]
Initialise prog_argc, prog_argv and rts_argc to sensible zero values
just in case hs_init() is called without passing any arguments in.
---

diff --git a/ghc/rts/RtsFlags.c b/ghc/rts/RtsFlags.c
index 8373322..789d73d 100644
--- a/ghc/rts/RtsFlags.c
+++ b/ghc/rts/RtsFlags.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.64 2003/01/23 12:13:12 simonmar Exp $
+ * $Id: RtsFlags.c,v 1.65 2003/01/28 16:23:53 simonmar Exp $
  *
  * (c) The AQUA Project, Glasgow University, 1994-1997
  * (c) The GHC Team, 1998-1999
@@ -45,9 +45,9 @@ extern struct RTS_FLAGS RtsFlags;
 /*
  * Split argument lists
  */
-int     prog_argc; /* an "int" so as to match normal "argc" */
+int     prog_argc = 0; /* an "int" so as to match normal "argc" */
 char  **prog_argv = NULL;
-int     rts_argc;  /* ditto */
+int     rts_argc = 0;  /* ditto */
 char   *rts_argv[MAX_RTS_ARGS];
 
 //@node Constants, Static function decls, Includes