diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-15 17:12:24 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-19 14:36:08 +0100 |
| commit | 5490e71be49131108d849ffe02867acf189a9e19 (patch) | |
| tree | b42783cda76476f2fbbd193e5dbed59014dedc09 /rts/Stats.c | |
| parent | ee44e19f20395596fc34f2bce5763fb16032dbd4 (diff) | |
| download | haskell-5490e71be49131108d849ffe02867acf189a9e19.tar.gz | |
Add getGCStatsEnabled function.
Diffstat (limited to 'rts/Stats.c')
| -rw-r--r-- | rts/Stats.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/Stats.c b/rts/Stats.c index 5605810ba2..b12cb769f7 100644 --- a/rts/Stats.c +++ b/rts/Stats.c @@ -922,6 +922,11 @@ extern HsInt64 getAllocations( void ) /* EZY: I'm not convinced I got all the casting right. */ +extern rtsBool getGCStatsEnabled( void ) +{ + return RtsFlags.GcFlags.giveStats != NO_GC_STATS; +} + extern void getGCStats( GCStats *s ) { nat total_collections = 0; |