From: simonmar <unknown>
Date: Wed, 13 Apr 2005 11:11:31 +0000 (+0000)
Subject: [project @ 2005-04-13 11:11:31 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~748
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cf09c189737a98d6310de0b37571a6afd91dfd72;p=ghc-hetmet.git

[project @ 2005-04-13 11:11:31 by simonmar]
Fix assertion
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 0503a1a..b4e6558 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1463,7 +1463,7 @@ scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
 	    } else {
 #if !defined(SMP)
 		ASSERT(g0s0->blocks == cap->r.rCurrentNursery &&
-		       g0s0->blocks == cap->r.rNursery);
+		       g0s0 == cap->r.rNursery);
 		g0s0->blocks = bd;
 #endif
 		cap->r.rNursery->blocks = bd;