From f20fe8deeee0353f8cdb27ca8031dd38b4b44ed1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 6 Mar 2009 15:51:24 +0000 Subject: Make LDV_FILL_SLOP use a forwards loop rather than a backwards loop --- rts/LdvProfile.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'rts/LdvProfile.h') diff --git a/rts/LdvProfile.h b/rts/LdvProfile.h index 5380c92f56..c61b0102e7 100644 --- a/rts/LdvProfile.h +++ b/rts/LdvProfile.h @@ -24,11 +24,11 @@ extern void LdvCensusKillAll ( void ); // Invoked when: // 1) Hp is incremented and exceeds HpLim (in Updates.hc). // 2) copypart() is called (in GC.c). -#define LDV_FILL_SLOP(from, howManyBackwards) \ +#define LDV_FILL_SLOP(from, howMany) \ if (era > 0) { \ int i; \ - for (i = 1;i <= (howManyBackwards); i++) \ - ((StgWord *)(from))[-i] = 0; \ + for (i = 0;i < (howMany); i++) \ + ((StgWord *)(from))[i] = 0; \ } // Informs the LDV profiler that closure c has just been evacuated. -- cgit v1.2.1