From: simonmar@microsoft.com <unknown>
Date: Tue, 27 Nov 2007 16:07:17 +0000 (+0000)
Subject: count the number of todo blocks, and add a trace
X-Git-Tag: Before_cabalised-GHC~279
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=02038ff3db11048d90f59b9c05bc188180e0db39

count the number of todo blocks, and add a trace
---

diff --git a/rts/sm/GCUtils.c b/rts/sm/GCUtils.c
index 441bb3e..6341067 100644
--- a/rts/sm/GCUtils.c
+++ b/rts/sm/GCUtils.c
@@ -17,6 +17,7 @@
 #include "GC.h"
 #include "GCUtils.h"
 #include "Printer.h"
+#include "Trace.h"
 
 #ifdef THREADED_RTS
 SpinLock gc_alloc_block_sync;
@@ -57,6 +58,7 @@ grab_todo_block (step_workspace *ws)
     if (stp->todos) {
 	bd = stp->todos;
 	stp->todos = bd->link;
+        stp->n_todos--;
 	bd->link = NULL;
     }	
     RELEASE_SPIN_LOCK(&stp->sync_todo);
@@ -70,6 +72,8 @@ push_todo_block (bdescr *bd, step *stp)
     ACQUIRE_SPIN_LOCK(&stp->sync_todo);
     bd->link = stp->todos;
     stp->todos = bd;
+    stp->n_todos++;
+    trace(TRACE_gc, "step %d, n_todos: %d", stp->abs_no, stp->n_todos);
     RELEASE_SPIN_LOCK(&stp->sync_todo);
 }