X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FTask.c;h=94705d5372a6ad804dc21a9b810703b0f153b6cc;hb=2db3d8c5641cd35b70da34e0b1da4629c62b694a;hp=c72053899511d3678169bc5ba9b5933994119157;hpb=324e96d2ebfcb113cd97c43ef043d591ef87de71;p=ghc-hetmet.git

diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index c720538..94705d5 100644
--- a/ghc/rts/Task.c
+++ b/ghc/rts/Task.c
@@ -156,7 +156,7 @@ startTaskManager( nat maxCount,
   taskCount = 0;
 }
 
-void
+rtsBool
 startTask ( void (*taskStart)(void) )
 {
   int r;
@@ -171,13 +171,13 @@ startTask ( void (*taskStart)(void) )
 			       rts_n_waiting_tasks););
     // the task will run as soon as a capability is available,
     // so there's no need to wake it.
-    return;
+    return rtsFalse;
   }
 
   /* If the task limit has been reached, just return. */
   if (maxTasks > 0 && taskCount == maxTasks) {
     IF_DEBUG(scheduler,fprintf(stderr,"scheduler: startTask: task limit (%d) reached, not creating new one.\n",maxTasks));
-    return;
+    return rtsFalse;
   }
   
 
@@ -188,7 +188,7 @@ startTask ( void (*taskStart)(void) )
   taskCount++;
 
   IF_DEBUG(scheduler,fprintf(stderr,"scheduler: startTask: new task %ld (total_count: %d; waiting: %d)\n", tid, taskCount, rts_n_waiting_tasks););
-  return;
+  return rtsTrue;
 }
 
 
@@ -200,7 +200,7 @@ stopTaskManager ()
 }
 
 void
-resetTaskManagerAfterFork ()
+resetTaskManagerAfterFork ( void )
 {
 	rts_n_waiting_tasks = 0;
 	taskCount = 0;