diff options
author | Javran Cheng <Javran.c@gmail.com> | 2015-05-06 07:47:20 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2015-05-06 07:50:49 -0500 |
commit | 477f514f6ebcf783810da93e2191e4b6ea65559b (patch) | |
tree | 937142e105718d77b9a7c404cd538e3dd9e78f55 /rts/ProfHeap.c | |
parent | 03c4893e355948fe865bc52c744359c42e4b06d7 (diff) | |
download | haskell-477f514f6ebcf783810da93e2191e4b6ea65559b.tar.gz |
rts: add "-no-rtsopts-suggestions" option
Depends on D767
Setting this flag prevents RTS from giving RTS suggestions like "Use
`+RTS -Ksize -RTS' to increase it."
According to the comment @rwbarton made in #9579, sometimes "+RTS"
suggestions don't make sense (e.g. when the program is precompiled and
installed through package managers), we can encourage people to
distribute binaries with either "-no-rtsopts-suggestions" or "-rtsopts".
Reviewed By: erikd, austin
Differential Revision: https://phabricator.haskell.org/D809
GHC Trac Issues: #9579
Diffstat (limited to 'rts/ProfHeap.c')
-rw-r--r-- | rts/ProfHeap.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index ba1adcd5d0..25112a7e1e 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -280,12 +280,14 @@ nextEra( void ) era++; if (era == max_era) { - if (rtsConfig.rts_opts_enabled == RtsOptsAll) { - errorBelch("maximum number of censuses reached;\n" - "use +RTS -i to reduce"); - } else { - errorBelch("maximum number of censuses reached;\n" - "Relink with -rtsopts and use `+RTS -i` to reduce"); + errorBelch("Maximum number of censuses reached."); + if (rtsConfig.rts_opts_suggestions == rtsTrue) { + if (rtsConfig.rts_opts_enabled == RtsOptsAll) { + errorBelch("Use `+RTS -i' to reduce censuses."); + } else { + errorBelch("Relink with -rtsopts and " + "use `+RTS -i' to reduce censuses."); + } } stg_exit(EXIT_FAILURE); } |