diff options
| author | simonmar <unknown> | 2001-12-03 14:34:45 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-12-03 14:34:45 +0000 |
| commit | f430648866f9ae9cfa5b0bc498b2a20a301511fb (patch) | |
| tree | 0479064227b51dc3aeadf2643b07f47ef3617d74 | |
| parent | 3178cb8bf5907b4c42fd3b643fc2dd073c2cd2e4 (diff) | |
| download | haskell-f430648866f9ae9cfa5b0bc498b2a20a301511fb.tar.gz | |
[project @ 2001-12-03 14:34:45 by simonmar]
Set the default heap profiling interval to something more sensible
(100ms).
| -rw-r--r-- | ghc/rts/RtsFlags.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/RtsFlags.c b/ghc/rts/RtsFlags.c index 5424572224..24a44338e5 100644 --- a/ghc/rts/RtsFlags.c +++ b/ghc/rts/RtsFlags.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsFlags.c,v 1.54 2001/11/28 14:55:34 simonmar Exp $ + * $Id: RtsFlags.c,v 1.55 2001/12/03 14:34:45 simonmar Exp $ * * (c) The AQUA Project, Glasgow University, 1994-1997 * (c) The GHC Team, 1998-1999 @@ -250,7 +250,7 @@ void initRtsFlagsDefaults(void) #ifdef PROFILING RtsFlags.ProfFlags.doHeapProfile = rtsFalse; - RtsFlags.ProfFlags.profileInterval = 20; + RtsFlags.ProfFlags.profileInterval = 100; RtsFlags.ProfFlags.showCCSOnException = rtsFalse; RtsFlags.ProfFlags.maxRetainerSetSize = 8; RtsFlags.ProfFlags.modSelector = NULL; @@ -435,7 +435,7 @@ usage_text[] = { "", " -R<size> Set the maximum retainer set size (default: 8)", "", -" -i<msec> Time between heap samples (msec, default: 20)", +" -i<msec> Time between heap samples (msec, default: 100)", "", " -xc Show current cost centre stack on raising an exception", # endif |