Use OSThreadProcAttr for workerStart

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 7f59f09..a41dd67 100644 (file)
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1912,7 +1912,7 @@ scheduleWaitThread (StgTSO* tso, /*[out]*/HaskellObj* ret, Capability *cap)
  * ------------------------------------------------------------------------- */
 
 #if defined(THREADED_RTS)
-void
+void OSThreadProcAttr
 workerStart(Task *task)
 {
     Capability *cap;

diff --git a/rts/Schedule.h b/rts/Schedule.h
index 45aa000..6ed7598 100644 (file)
--- a/rts/Schedule.h
+++ b/rts/Schedule.h
@@ -70,7 +70,9 @@ StgWord findRetryFrameHelper (StgTSO *tso);
  * Called from STG :  NO
  * Locks assumed   :  none
  */
-void workerStart(Task *task);
+#if defined(THREADED_RTS)
+void OSThreadProcAttr workerStart(Task *task);
+#endif
 
 #if defined(GRAN)
 void    awaken_blocked_queue(StgBlockingQueueElement *q, StgClosure *node);