From: sewardj <unknown>
Date: Tue, 11 Jan 2000 17:09:38 +0000 (+0000)
Subject: [project @ 2000-01-11 17:09:38 by sewardj]
X-Git-Tag: Approximately_9120_patches~5315
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=38ddf533bb61c3d3f1789545712f7f3b3eae0cd9;p=ghc-hetmet.git

[project @ 2000-01-11 17:09:38 by sewardj]
Connect PrelBase.[] to PrelBase_ZMZN_closure, and (:) likewise.
---

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index 3444cd4..44362c3 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.33 $
- * $Date: 2000/01/11 15:40:57 $
+ * $Revision: 1.34 $
+ * $Date: 2000/01/11 17:09:38 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -512,18 +512,24 @@ Int what; {
         case MARK    : 
                        break;
 
-        case POSTPREL: 
+        case POSTPREL: {
+           Module modulePrelBase = findModule(findText("PrelBase"));
+           assert(nonNull(modulePrelBase));
 #if 1
-	  fprintf(stderr, "linkControl(POSTPREL)\n");
+	   fprintf(stderr, "linkControl(POSTPREL)\n");
 #if 1
-          setCurrModule(modulePrelude);
-          linkPreludeTC();
-          linkPreludeCM();
-          linkPreludeNames();
+           setCurrModule(modulePrelude);
+           linkPreludeTC();
+           linkPreludeCM();
+           linkPreludeNames();
+           name(nameNil).stgVar
+              = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZMZN_closure"));
+           name(nameCons).stgVar 
+              = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZC_closure"));
 #endif
 #endif
-          break;
-
+           break;
+        }
         case PREPREL : 
 
            if (combined) {