diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 09:58:35 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-21 10:00:16 +0100 |
commit | bbb5843bff9f9664869ac6eca58dbc07dbc69c36 (patch) | |
tree | 3c61daa95b8a95951d1cf901a1b486024d301ea5 /rts/sm/Storage.h | |
parent | bb120dfda517b43e050fb628c7729469f4bc1f07 (diff) | |
download | haskell-bbb5843bff9f9664869ac6eca58dbc07dbc69c36.tar.gz |
Fix a discrepancy between two calculations of which generation to collect
The calculation should be done in one place, of course.
Diffstat (limited to 'rts/sm/Storage.h')
-rw-r--r-- | rts/sm/Storage.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/Storage.h b/rts/sm/Storage.h index 9dffc18f2d..b87a32ce09 100644 --- a/rts/sm/Storage.h +++ b/rts/sm/Storage.h @@ -92,8 +92,8 @@ lnat countNurseryBlocks ( void ); lnat updateNurseriesStats (void); lnat countLargeAllocated (void); -lnat countOccupied (bdescr *bd); -lnat calcNeeded (void); +lnat countOccupied (bdescr *bd); +lnat calcNeeded (rtsBool force_major, lnat *blocks_needed); lnat gcThreadLiveWords (nat i, nat g); lnat gcThreadLiveBlocks (nat i, nat g); |