From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 23 Oct 2008 15:45:51 +0000 (+0000)
Subject: add an assertion
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a4326c0e87499dd633c55625f325244b1caf337a

add an assertion
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index e17c653..2e9d0dd 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -479,6 +479,7 @@ run_thread:
 
     ASSERT_FULL_CAPABILITY_INVARIANTS(cap,task);
     ASSERT(t->cap == cap);
+    ASSERT(t->bound ? t->bound->cap == cap : 1);
 
     prev_what_next = t->what_next;