X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinker.c;h=a82babce5242c6da41bb8b3353ba63613354cc7d;hb=9428b42b8e4b21493055b54f176cffa0a5b879b6;hp=aed20eef6a71eeb1af5a00c4b0bea555f940b892;hpb=0671ef05dd65137d501cb97f0e42be3b78d4004d;p=ghc-hetmet.git

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index aed20ee..a82babc 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.73 2001/11/08 12:46:31 simonmar Exp $
+ * $Id: Linker.c,v 1.76 2001/12/10 17:59:54 sof Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -151,6 +151,11 @@ typedef struct _RtsSymbolVal {
       Sym(__umoddi3)
 #endif
 
+#ifndef SMP
+# define MAIN_CAP_SYM SymX(MainCapability)
+#else
+# define MAIN_CAP_SYM
+#endif
 
 #define RTS_SYMBOLS				\
       Maybe_ForeignObj				\
@@ -162,6 +167,7 @@ typedef struct _RtsSymbolVal {
       SymX(__stg_chk_1)				\
       Sym(stg_enterStackTop)			\
       SymX(stg_gc_d1)				\
+      SymX(stg_gc_l1)				\
       SymX(__stg_gc_enter_1)			\
       SymX(stg_gc_f1)				\
       SymX(stg_gc_noregs)			\
@@ -173,7 +179,7 @@ typedef struct _RtsSymbolVal {
       SymX(stg_gen_chk)				\
       SymX(stg_yield_to_interpreter)		\
       SymX(ErrorHdrHook)			\
-      SymX(MainCapability)			\
+      MAIN_CAP_SYM                              \
       SymX(MallocFailHook)			\
       SymX(NoRunnableThreadsHook)		\
       SymX(OnExitHook)				\
@@ -255,6 +261,7 @@ typedef struct _RtsSymbolVal {
       SymX(rts_getInt32)			\
       SymX(rts_getPtr)				\
       SymX(rts_getStablePtr)			\
+      SymX(rts_getThreadId)			\
       SymX(rts_getWord)				\
       SymX(rts_getWord32)			\
       SymX(rts_mkAddr)				\