diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-10-21 16:38:06 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-10-21 16:38:06 -0500 |
| commit | 1d12df3794b4f230d9f1dcca9973a2d9f45fbeed (patch) | |
| tree | 0887da8ff01085b4a4d921e2d8a3d1051e56dac3 /rts/LdvProfile.h | |
| parent | 2dc21b97ffd8e78a177e8b3562ab8f08a566defd (diff) | |
| download | haskell-1d12df3794b4f230d9f1dcca9973a2d9f45fbeed.tar.gz | |
[skip ci] rts: Detabify LdvProfile.h
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/LdvProfile.h')
| -rw-r--r-- | rts/LdvProfile.h | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/rts/LdvProfile.h b/rts/LdvProfile.h index b4418046ba..d58c5fbf57 100644 --- a/rts/LdvProfile.h +++ b/rts/LdvProfile.h @@ -18,16 +18,16 @@ RTS_PRIVATE void LdvCensusForDead ( nat ); RTS_PRIVATE void LdvCensusKillAll ( void ); // Creates a 0-filled slop of size 'howManyBackwards' backwards from the -// address 'from'. +// address 'from'. // -// Invoked when: +// Invoked when: // 1) Hp is incremented and exceeds HpLim (in Updates.hc). // 2) copypart() is called (in GC.c). -#define LDV_FILL_SLOP(from, howMany) \ - if (era > 0) { \ - int i; \ - for (i = 0;i < (howMany); i++) \ - ((StgWord *)(from))[i] = 0; \ +#define LDV_FILL_SLOP(from, howMany) \ + if (era > 0) { \ + int i; \ + for (i = 0;i < (howMany); i++) \ + ((StgWord *)(from))[i] = 0; \ } // Informs the LDV profiler that closure c has just been evacuated. |