From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 19 Feb 2009 11:34:18 +0000 (+0000)
Subject: Export blockUserSignals and unblockUserSignals (needed for #2870)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=70b761657f7707075302d7fa9f1ddba41247539e

Export blockUserSignals and unblockUserSignals (needed for #2870)
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 474cd81..dc0d344 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -493,7 +493,9 @@ typedef struct _RtsSymbolVal {
 
 #if !defined(mingw32_HOST_OS)
 #define RTS_USER_SIGNALS_SYMBOLS \
-   SymI_HasProto(setIOManagerPipe)
+   SymI_HasProto(setIOManagerPipe) \
+   SymI_NeedsProto(blockUserSignals) \
+   SymI_NeedsProto(unblockUserSignals)
 #else
 #define RTS_USER_SIGNALS_SYMBOLS     \
    SymI_HasProto(sendIOManagerEvent) \