From e4a88996229ea561d19ba20ef96740efba9eb367 Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Fri, 15 Feb 2008 13:40:17 +0000
Subject: [PATCH] fix off-by-one

---
 rts/sm/Evac.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
1.7.10.4