Commit 5ec16c8d authored by sewardj's avatar sewardj
Browse files

[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.
parent 41ab0a82
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
* included in the distribution. * included in the distribution.
* *
* $RCSfile: link.c,v $ * $RCSfile: link.c,v $
* $Revision: 1.34 $ * $Revision: 1.35 $
* $Date: 2000/01/11 17:09:38 $ * $Date: 2000/01/12 10:30:09 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include "prelude.h" #include "prelude.h"
...@@ -523,7 +523,7 @@ Int what; { ...@@ -523,7 +523,7 @@ Int what; {
linkPreludeCM(); linkPreludeCM();
linkPreludeNames(); linkPreludeNames();
name(nameNil).stgVar name(nameNil).stgVar
= mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZMZN_closure")); = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZMZN_static_closure"));
name(nameCons).stgVar name(nameCons).stgVar
= mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZC_closure")); = mkCPtr(lookupOTabName(modulePrelBase, "PrelBase_ZC_closure"));
#endif #endif
...@@ -564,6 +564,10 @@ Int what; { ...@@ -564,6 +564,10 @@ Int what; {
typeArrow = addPrimTycon(findText("(->)"), typeArrow = addPrimTycon(findText("(->)"),
pair(STAR,pair(STAR,STAR)), pair(STAR,pair(STAR,STAR)),
2,DATATYPE,NIL); 2,DATATYPE,NIL);
pFun(nameInd, "_indirect");
name(nameInd).number = DFUNNAME;
} else { } else {
modulePrelude = newModule(textPrelude); modulePrelude = newModule(textPrelude);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment