From 9f627b3122604910e99641159f711efc5345eb9f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 12 Apr 2005 23:14:32 +0000
Subject: [PATCH] [project @ 2005-04-12 23:14:32 by sof] tidy up prev commit;
 mingw doesn't support these two symbols

---
 ghc/rts/Linker.c |   13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

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			\
-- 
1.7.10.4