Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

count the number of todo blocks, and add a trace

  • Loading branch information...
commit 02038ff3db11048d90f59b9c05bc188180e0db39 1 parent 8425e6e
simonmar@microsoft.com authored
Showing with 4 additions and 0 deletions.
  1. +4 −0 rts/sm/GCUtils.c
View
4 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);
}
Please sign in to comment.
Something went wrong with that request. Please try again.