From: simonmar <unknown>
Date: Thu, 3 Nov 2005 16:47:45 +0000 (+0000)
Subject: [project @ 2005-11-03 16:47:45 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~71
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f6feb336f56311aa0d9ed96418367f7ef339a555;p=ghc-hetmet.git

[project @ 2005-11-03 16:47:45 by simonmar]
adjust type of startSignalHandlers() to make changes to Win32 version
---

diff --git a/ghc/rts/posix/Signals.c b/ghc/rts/posix/Signals.c
index 036411f..b4cc2fd 100644
--- a/ghc/rts/posix/Signals.c
+++ b/ghc/rts/posix/Signals.c
@@ -345,7 +345,7 @@ stg_sig_install(int sig, int spi, StgStablePtr *handler, void *mask)
 
 #if !defined(THREADED_RTS)
 void
-startSignalHandlers(void)
+startSignalHandlers(Capability *cap)
 {
   blockUserSignals();
   
@@ -353,9 +353,8 @@ startSignalHandlers(void)
 
     next_pending_handler--;
 
-    scheduleThread (
-	&MainCapability,
-	createIOThread(&MainCapability, 
+    scheduleThread (cap,
+	createIOThread(cap,
 		       RtsFlags.GcFlags.initialStkSize, 
 		       (StgClosure *) *next_pending_handler));
   }
diff --git a/ghc/rts/posix/Signals.h b/ghc/rts/posix/Signals.h
index 8f5a51b..3c5564b 100644
--- a/ghc/rts/posix/Signals.h
+++ b/ghc/rts/posix/Signals.h
@@ -16,7 +16,8 @@ extern rtsBool anyUserHandlers(void);
 extern StgPtr pending_handler_buf[];
 extern StgPtr *next_pending_handler;
 #define signals_pending() (next_pending_handler != pending_handler_buf)
-void startSignalHandlers(void);
+void startSignalHandlers(Capability *cap);
+
 
 #endif