From 5ec16c8d1a558cd29876625b715d72c453da0e3b Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 12 Jan 2000 10:30:09 +0000
Subject: [PATCH] [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.

---
 ghc/interpreter/link.c |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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);
-- 
1.7.10.4