From ef675dbd34a1ccd27ecaa1549a845ec40a6157fd Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 23 May 2000 11:45:14 +0000
Subject: [PATCH] [project @ 2000-05-23 11:45:14 by sewardj] Fix bug in
diet_hep_initialise to do with argc/argv handling.
---
ghc/interpreter/hugs.c | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 0bd8b114add9..fb3f722c489a 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();
--
GitLab