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-12-10 17:59:54 by sof]
[ghc-hetmet.git]
/
ghc
/
rts
/
Linker.c
diff --git
a/ghc/rts/Linker.c
b/ghc/rts/Linker.c
index
153b2bc
..
a82babc
100644
(file)
--- a/
ghc/rts/Linker.c
+++ b/
ghc/rts/Linker.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.75 2001/12/10 17:55:40 sewardj Exp $
+ * $Id: Linker.c,v 1.76 2001/12/10 17:59:54 sof Exp $
*
* (c) The GHC Team, 2000, 2001
*
*
* (c) The GHC Team, 2000, 2001
*
@@
-151,6
+151,11
@@
typedef struct _RtsSymbolVal {
Sym(__umoddi3)
#endif
Sym(__umoddi3)
#endif
+#ifndef SMP
+# define MAIN_CAP_SYM SymX(MainCapability)
+#else
+# define MAIN_CAP_SYM
+#endif
#define RTS_SYMBOLS \
Maybe_ForeignObj \
#define RTS_SYMBOLS \
Maybe_ForeignObj \
@@
-174,7
+179,7
@@
typedef struct _RtsSymbolVal {
SymX(stg_gen_chk) \
SymX(stg_yield_to_interpreter) \
SymX(ErrorHdrHook) \
SymX(stg_gen_chk) \
SymX(stg_yield_to_interpreter) \
SymX(ErrorHdrHook) \
- SymX(MainCapability) \
+ MAIN_CAP_SYM \
SymX(MallocFailHook) \
SymX(NoRunnableThreadsHook) \
SymX(OnExitHook) \
SymX(MallocFailHook) \
SymX(NoRunnableThreadsHook) \
SymX(OnExitHook) \