From: sewardj <unknown>
Date: Wed, 12 Jan 2000 10:30:09 +0000 (+0000)
Subject: [project @ 2000-01-12 10:30:09 by sewardj]
X-Git-Tag: Approximately_9120_patches~5313
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5ec16c8d1a558cd29876625b715d72c453da0e3b;p=ghc-hetmet.git

[project @ 2000-01-12 10:30:09 by sewardj]
Link nameInd to "_indirect".  Haven't a clue what this is for but it
seems necessary.
---

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index 44362c3..ef5ba39 100644
--- a/ghc/interpreter/link.c
+++ b/ghc/interpreter/link.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.34 $
- * $Date: 2000/01/11 17:09:38 $
+ * $Revision: 1.35 $
+ * $Date: 2000/01/12 10:30:09 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -523,7 +523,7 @@ Int what; {
            linkPreludeCM();
            linkPreludeNames();
            name(nameNil).stgVar
-              = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZMZN_closure"));
+              = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZMZN_static_closure"));
            name(nameCons).stgVar 
               = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZC_closure"));
 #endif
@@ -564,6 +564,10 @@ Int what; {
                typeArrow = addPrimTycon(findText("(->)"),
                                         pair(STAR,pair(STAR,STAR)),
                                         2,DATATYPE,NIL);
+
+               pFun(nameInd, "_indirect");
+               name(nameInd).number = DFUNNAME;
+
            } else {
 
                modulePrelude = newModule(textPrelude);