projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-05-03 12:33:50 by simonpj]
[ghc-hetmet.git]
/
ghc
/
rts
/
Linker.c
diff --git
a/ghc/rts/Linker.c
b/ghc/rts/Linker.c
index
2271906
..
6589c2d
100644
(file)
--- a/
ghc/rts/Linker.c
+++ b/
ghc/rts/Linker.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.36 2001/04/02 07:22:50 qrczak Exp $
+ * $Id: Linker.c,v 1.39 2001/04/24 15:49:19 qrczak Exp $
*
* (c) The GHC Team, 2000
*
*
* (c) The GHC Team, 2000
*
@@
-68,7
+68,14
@@
typedef struct _RtsSymbolVal {
#define Maybe_ForeignObj
#define Maybe_Stable_Names
#endif
#define Maybe_ForeignObj
#define Maybe_Stable_Names
#endif
-
+
+#if !defined (mingw32_TARGET_OS)
+#define RTS_POSIX_ONLY_SYMBOLS \
+ SymX(stg_sig_install) \
+ Sym(nocldstop)
+#else
+#define RTS_POSIX_ONLY_SYMBOLS
+#endif
#define RTS_SYMBOLS \
SymX(MainRegTable) \
#define RTS_SYMBOLS \
SymX(MainRegTable) \
@@
-85,6
+92,7
@@
typedef struct _RtsSymbolVal {
Sym(stg_gen_chk) \
SymX(stg_exit) \
SymX(stg_update_PAP) \
Sym(stg_gen_chk) \
SymX(stg_exit) \
SymX(stg_update_PAP) \
+ SymX(stg_ap_1_upd_info) \
SymX(stg_ap_2_upd_info) \
SymX(stg_ap_3_upd_info) \
SymX(stg_ap_4_upd_info) \
SymX(stg_ap_2_upd_info) \
SymX(stg_ap_3_upd_info) \
SymX(stg_ap_4_upd_info) \
@@
-203,8
+211,6
@@
typedef struct _RtsSymbolVal {
SymX(defaultsHook) \
SymX(PreTraceHook) \
SymX(PostTraceHook) \
SymX(defaultsHook) \
SymX(PreTraceHook) \
SymX(PostTraceHook) \
- SymX(stg_sig_install) \
- Sym(nocldstop) \
SymX(createAdjustor) \
SymX(rts_mkChar) \
SymX(rts_mkInt) \
SymX(createAdjustor) \
SymX(rts_mkChar) \
SymX(rts_mkInt) \
@@
-245,7
+251,7
@@
typedef struct _RtsSymbolVal {
#ifndef SUPPORT_LONG_LONGS
#define RTS_LONG_LONG_SYMS /* nothing */
#else
#ifndef SUPPORT_LONG_LONGS
#define RTS_LONG_LONG_SYMS /* nothing */
#else
-#define RTS_LONG_LONG_SYMS \
+#define RTS_LONG_LONG_SYMS \
SymX(stg_gtWord64) \
SymX(stg_geWord64) \
SymX(stg_eqWord64) \
SymX(stg_gtWord64) \
SymX(stg_geWord64) \
SymX(stg_eqWord64) \
@@
-289,6
+295,7
@@
typedef struct _RtsSymbolVal {
#define Sym(vvv) extern void (vvv);
#define SymX(vvv) /**/
RTS_SYMBOLS
#define Sym(vvv) extern void (vvv);
#define SymX(vvv) /**/
RTS_SYMBOLS
+RTS_POSIX_ONLY_SYMBOLS
#undef Sym
#undef SymX
#undef Sym
#undef SymX
@@
-305,6
+312,7
@@
RTS_SYMBOLS
static RtsSymbolVal rtsSyms[] = {
RTS_SYMBOLS
RTS_LONG_LONG_SYMS
static RtsSymbolVal rtsSyms[] = {
RTS_SYMBOLS
RTS_LONG_LONG_SYMS
+ RTS_POSIX_ONLY_SYMBOLS
{ 0, 0 } /* sentinel */
};
{ 0, 0 } /* sentinel */
};