From cca6aea5b9512ab2b50231dae9763392cc706add Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 12 Apr 2005 12:24:27 +0000
Subject: [PATCH] [project @ 2005-04-12 12:24:27 by simonmar] - emit a debug
 message when we're yielding at shut down time

---
 ghc/rts/Task.c |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index 76ea891..06eab69 100644
--- a/ghc/rts/Task.c
+++ b/ghc/rts/Task.c
@@ -78,10 +78,11 @@ stopTaskManager (void)
 	    IF_DEBUG(scheduler, sched_belch("all tasks stopped"));
 	    return;
 	}
+	IF_DEBUG(scheduler, sched_belch("yielding"));
 	prodWorker();
 	yieldThread();
     }
-    IF_DEBUG(scheduler, sched_belch("%d tasks still running, exiting anyway", tasksRunning));
+    errorBelch("%d tasks still running, exiting anyway", tasksRunning);
 
     /* 
        OLD CODE follows:
@@ -200,9 +201,6 @@ taskStop (void)
     }
     ASSERT(task_info->id == id);
 
-    task_info->stopped = rtsTrue;
-    tasksRunning--;
-
     stat_getTimes(&currentElapsedTime, &currentUserTime, &elapsedGCTime);
     
     task_info->mut_time = 
@@ -212,6 +210,9 @@ taskStop (void)
 
     if (task_info->mut_time < 0.0)  { task_info->mut_time = 0.0;  }
     if (task_info->mut_etime < 0.0) { task_info->mut_etime = 0.0; }
+
+    task_info->stopped = rtsTrue;
+    tasksRunning--;
 }
 
 void
-- 
1.7.10.4