diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-18 23:56:20 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-18 23:56:20 +0000 |
| commit | 77b7c34fa24860c91f56250defa91b2d1a7a1c00 (patch) | |
| tree | c6a06c1bb0be95601a10c7f28618920d8f81d236 /rts/LdvProfile.h | |
| parent | d8664a2ebeed9d9c7a468cf36cc53eb4f531114b (diff) | |
| download | haskell-77b7c34fa24860c91f56250defa91b2d1a7a1c00.tar.gz | |
Fix an off-by-one; fixes the second bug in trac #3001
Diffstat (limited to 'rts/LdvProfile.h')
| -rw-r--r-- | rts/LdvProfile.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/LdvProfile.h b/rts/LdvProfile.h index d85b95cd6a..5380c92f56 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; \ } |