From 81af806b823c3dd633a7c102b1fa6afbf89f16ef Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 12 Sep 2008 11:25:44 +0000
Subject: [PATCH] Fix crash in biographical heap profiling (#2576)
---
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 f537e2b9a3c4..9b42fc12be99 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;
--
GitLab