From: sof <unknown>
Date: Thu, 14 Feb 2002 07:39:16 +0000 (+0000)
Subject: [project @ 2002-02-14 07:39:16 by sof]
X-Git-Tag: Approximately_9120_patches~64
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2efe6e310bf6a73133f7dd9cc53ceffcab77ad27;p=ghc-hetmet.git

[project @ 2002-02-14 07:39:16 by sof]
wibble
---

diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index bf20e99..4086127 100644
--- a/ghc/rts/Task.c
+++ b/ghc/rts/Task.c
@@ -135,7 +135,8 @@ stopTaskManager ()
 /************ THREADS version *****************/
 
 void
-startTaskManager( nat maxCount, void (*taskStart)(void) )
+startTaskManager( nat maxCount,
+		  void (*taskStart)(void) STG_UNUSED )
 {
   /* In the threaded case, maxCount is used to limit the
      the creation of worker tasks. Tasks are created lazily, i.e.,
@@ -152,8 +153,6 @@ startTask ( void (*taskStart)(void) )
   int r;
   OSThreadId tid;
   
-  /* Locks assumed: rts_mutex */
-  
   /* If more than one worker thread is known to be blocked waiting
      on thread_ready_cond, signal it rather than creating a new one.
   */