From: simonmar@microsoft.com <unknown>
Date: Fri, 15 Feb 2008 13:40:17 +0000 (+0000)
Subject: fix off-by-one
X-Git-Tag: Before_cabalised-GHC~245
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e4a88996229ea561d19ba20ef96740efba9eb367

fix off-by-one
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index ee88175..a5919ef 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -59,7 +59,7 @@ alloc_for_copy (nat size, step *stp)
     
     ASSERT(ws->todo_free >= ws->todo_bd->free && ws->todo_free <= ws->todo_lim);
     to = ws->todo_free;
-    if (to + size >= ws->todo_lim) {
+    if (to + size > ws->todo_lim) {
 	to = gc_alloc_todo_block(ws);
     }
     ws->todo_free = to + size;