[project @ 2002-04-19 10:25:00 by simonmar]

[ghc-hetmet.git] / ghc / rts / Task.c

diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index bf20e99..4086127 100644 (file)
--- 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.
   */