From: simonmar <unknown>
Date: Wed, 2 Nov 2005 12:23:58 +0000 (+0000)
Subject: [project @ 2005-11-02 12:23:58 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~89
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e30a37bc7bdb88e8a92696747b40a1f692284e0d

[project @ 2005-11-02 12:23:58 by simonmar]
add an ASSERT
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index c4823bd..06bd785 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -724,6 +724,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
       StgTSO *tso;
       for (task = all_tasks; task != NULL; task = task->all_link) {
 	  if (!task->stopped && task->tso) {
+	      ASSERT(task->tso->bound == task);
 	      tso = (StgTSO *) isAlive((StgClosure *)task->tso);
 	      if (tso == NULL) {
 		  barf("task %p: main thread %d has been GC'd",