From: sewardj <unknown>
Date: Tue, 23 May 2000 11:45:14 +0000 (+0000)
Subject: [project @ 2000-05-23 11:45:14 by sewardj]
X-Git-Tag: Approximately_9120_patches~4406
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ef675dbd34a1ccd27ecaa1549a845ec40a6157fd;p=ghc-hetmet.git

[project @ 2000-05-23 11:45:14 by sewardj]
Fix bug in diet_hep_initialise to do with argc/argv handling.
---

diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 0bd8b11..fb3f722 100644
--- a/ghc/interpreter/hugs.c
+++ b/ghc/interpreter/hugs.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.73 $
- * $Date: 2000/05/12 13:41:59 $
+ * $Revision: 1.74 $
+ * $Date: 2000/05/23 11:45:14 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -148,7 +148,7 @@ void diet_hep_initialise ( void* cstackbase )
     List   modConIds; /* :: [CONID] */
     Bool   prelOK;
     String s;
-    String fakeargv[1] = { "diet_hep" };
+    String fakeargv[2] = { "diet_hep", NULL };
 
     if (diet_hep_initialised) return;
     diet_hep_initialised = 1;
@@ -159,7 +159,7 @@ void diet_hep_initialise ( void* cstackbase )
 
     /* The following copied from interpreter() */
     setBreakAction ( HugsIgnoreBreak );
-    modConIds = initialize(1,fakeargv);
+    modConIds = initialize(0,fakeargv);
     assert(isNull(modConIds));
     setBreakAction ( HugsIgnoreBreak );
     prelOK    = loadThePrelude();