[project @ 2000-03-10 18:28:26 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / link.h

diff --git a/ghc/interpreter/link.h b/ghc/interpreter/link.h
index ce766b4..d8d149c 100644 (file)
--- a/ghc/interpreter/link.h
+++ b/ghc/interpreter/link.h
@@ -1,7 +1,10 @@
 
 extern Cell conCons;
 
-extern Name nameRunIO;
+extern Name nameShow;
+extern Name namePutStr;
+extern Name nameRunIO_toplevel;
+
 
 /* The following data constructors are used to box unboxed
  * arguments and are treated differently by the code generator.
@@ -28,16 +31,15 @@ extern Name nameMkPrimByteArray;
 extern Name nameMkRef;                  
 extern Name nameMkPrimMutableArray;     
 extern Name nameMkPrimMutableByteArray; 
+extern Name nameMkThreadId;  
+extern Name nameMkPrimMVar;  
 #ifdef PROVIDE_FOREIGN
 extern Name nameMkForeign;   
 #endif
 #ifdef PROVIDE_WEAK
 extern Name nameMkWeak;
 #endif
-#ifdef PROVIDE_CONCURRENT
-extern Name nameMkThreadId;  
-extern Name nameMkMVar;  
-#endif
+
 
 /* For every primitive type provided by the runtime system,
  * we construct a Haskell type using a declaration of the form:
@@ -57,16 +59,14 @@ extern Type typePrimMutableByteArray;
 extern Type typeFloat;
 extern Type typeDouble;
 extern Type typeStable;
+extern Type typeThreadId;
+extern Type typeMVar;
 #ifdef PROVIDE_WEAK
 extern Type typeWeak;
 #endif
 #ifdef PROVIDE_FOREIGN
 extern Type typeForeign;
 #endif
-#ifdef PROVIDE_CONCURRENT
-extern Type typeThreadId;
-extern Type typeMVar;
-#endif
 
 /* And a smaller number of types defined in plain Haskell */
 extern Type typeList;
@@ -92,9 +92,7 @@ extern Name nameSel;
 extern Name nameEq;     
 extern Name namePMFail;
 extern Name nameEqChar;
-extern Name nameEqInt;
 extern Name nameEqInteger;
-extern Name nameEqDouble;
 extern Name namePmInt;
 extern Name namePmInteger;
 extern Name namePmDouble;
@@ -102,7 +100,6 @@ extern Name namePmLe;
 extern Name namePmSubtract;
 extern Name namePmFromInteger;
 extern Name nameMkIO;
-extern Name nameRunST;
 extern Name nameUnpackString;
 extern Name namePrimSeq;
 extern Name nameMap;