summaryrefslogtreecommitdiff
path: root/rts/sm/Storage.h
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2012-08-21 09:58:35 +0100
committerSimon Marlow <marlowsd@gmail.com>2012-08-21 10:00:16 +0100
commitbbb5843bff9f9664869ac6eca58dbc07dbc69c36 (patch)
tree3c61daa95b8a95951d1cf901a1b486024d301ea5 /rts/sm/Storage.h
parentbb120dfda517b43e050fb628c7729469f4bc1f07 (diff)
downloadhaskell-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.h4
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);