projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 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.
/* 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 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_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:
/* 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 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_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;
/* 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 nameEq;
extern Name namePMFail;
extern Name nameEqChar;
-extern Name nameEqInt;
extern Name nameEqInteger;
extern Name nameEqInteger;
-extern Name nameEqDouble;
extern Name namePmInt;
extern Name namePmInteger;
extern Name namePmDouble;
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 namePmSubtract;
extern Name namePmFromInteger;
extern Name nameMkIO;
-extern Name nameRunST;
extern Name nameUnpackString;
extern Name namePrimSeq;
extern Name nameMap;
extern Name nameUnpackString;
extern Name namePrimSeq;
extern Name nameMap;