From: Ian Lynagh <igloo@earth.li>
Date: Wed, 18 Feb 2009 23:56:20 +0000 (+0000)
Subject: Fix an off-by-one; fixes the second bug in trac #3001
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=77b7c34fa24860c91f56250defa91b2d1a7a1c00

Fix an off-by-one; fixes the second bug in trac #3001
---

diff --git a/rts/LdvProfile.h b/rts/LdvProfile.h
index d85b95c..5380c92 100644
--- a/rts/LdvProfile.h
+++ b/rts/LdvProfile.h
@@ -27,7 +27,7 @@ extern void LdvCensusKillAll ( void );
 #define LDV_FILL_SLOP(from, howManyBackwards)	\
   if (era > 0) {				\
     int i;					\
-    for (i = 0;i < (howManyBackwards); i++)	\
+    for (i = 1;i <= (howManyBackwards); i++)	\
       ((StgWord *)(from))[-i] = 0;		\
   }