From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 12 Sep 2008 11:25:44 +0000 (+0000)
Subject: Fix crash in biographical heap profiling (#2576)
X-Git-Tag: 2008-09-12^0
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=refs%2Ftags%2F2008-09-12_2

Fix crash in biographical heap profiling (#2576)
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index f537e2b..9b42fc1 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -212,7 +212,7 @@ spin:
     SET_EVACUAEE_FOR_LDV(from, size_to_reserve);
     // fill the slop
     if (size_to_reserve - size_to_copy > 0)
-	LDV_FILL_SLOP(to + size_to_copy - 1, (int)(size_to_reserve - size_to_copy)); 
+	LDV_FILL_SLOP(to + size_to_copy, (int)(size_to_reserve - size_to_copy));
 #endif
 
     return rtsTrue;