diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-02-11 15:34:57 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-02-11 15:34:57 +0000 |
| commit | 2af2966da98c9c0da9e33c6aead9e1f86f94a362 (patch) | |
| tree | dd79f1aad15ef82ecc39c9812bae2223ba82f6f0 /rts | |
| parent | 24c1c71fc2a6a8d0a90d6ddf3ccf778772ccac7d (diff) | |
| download | haskell-2af2966da98c9c0da9e33c6aead9e1f86f94a362.tar.gz | |
Fix trac #3001: Biographical profiling segfaults
We were zeroing the wrong memory
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Evac.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 1c453fc52e..01cc0d8a36 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -212,7 +212,7 @@ spin: SET_EVACUAEE_FOR_LDV(from, size_to_reserve); // fill the slop if (size_to_reserve - size_to_copy > 0) - LDV_FILL_SLOP(to + size_to_copy, (int)(size_to_reserve - size_to_copy)); + LDV_FILL_SLOP(to + size_to_reserve, (int)(size_to_reserve - size_to_copy)); #endif return rtsTrue; |