From: sof <unknown>
Date: Tue, 12 Apr 2005 23:14:32 +0000 (+0000)
Subject: [project @ 2005-04-12 23:14:32 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~749
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9f627b3122604910e99641159f711efc5345eb9f;p=ghc-hetmet.git

[project @ 2005-04-12 23:14:32 by sof]
tidy up prev commit; mingw doesn't support these two symbols
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index d49c814..b0c3b56 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -317,6 +317,14 @@ typedef struct _RtsSymbolVal {
 # define MAIN_CAP_SYM
 #endif
 
+#if !defined(mingw32_HOST_OS)
+#define RTS_USER_SIGNALS_SYMBOLS \
+   SymX(startSignalHandler) \
+   SymX(setIOManagerPipe)
+#else
+#define RTS_USER_SIGNALS_SYMBOLS /* nothing */
+#endif
+
 #ifdef TABLES_NEXT_TO_CODE
 #define RTS_RET_SYMBOLS /* nothing */
 #else
@@ -522,9 +530,7 @@ typedef struct _RtsSymbolVal {
       SymX(run_queue_hd)			\
       SymX(__hscore_get_saved_termios)		\
       SymX(__hscore_set_saved_termios)		\
-      SymX(setIOManagerPipe)			\
       SymX(setProgArgv)				\
-      SymX(startSignalHandler)			\
       SymX(startupHaskell)			\
       SymX(shutdownHaskell)			\
       SymX(shutdownHaskellAndExit)		\
@@ -592,7 +598,8 @@ typedef struct _RtsSymbolVal {
       SymX(word2Integerzh_fast)			\
       SymX(writeTVarzh_fast)			\
       SymX(xorIntegerzh_fast)			\
-      SymX(yieldzh_fast)
+      SymX(yieldzh_fast)                        \
+      RTS_USER_SIGNALS_SYMBOLS
 
 #ifdef SUPPORT_LONG_LONGS
 #define RTS_LONG_LONG_SYMS			\