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

[ghc-hetmet.git] / rts / LdvProfile.h

diff --git a/rts/LdvProfile.h b/rts/LdvProfile.h
index d85b95c..5380c92 100644 (file)
--- 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;             \
   }