From e30a37bc7bdb88e8a92696747b40a1f692284e0d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 2 Nov 2005 12:23:58 +0000
Subject: [PATCH] [project @ 2005-11-02 12:23:58 by simonmar] add an ASSERT

---
 ghc/rts/GC.c |    1 +
 1 file changed, 1 insertion(+)

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", 
-- 
1.7.10.4