summaryrefslogtreecommitdiff
path: root/rts/ProfHeap.c
diff options
context:
space:
mode:
authorJavran Cheng <Javran.c@gmail.com>2015-05-06 07:47:20 -0500
committerAustin Seipp <austin@well-typed.com>2015-05-06 07:50:49 -0500
commit477f514f6ebcf783810da93e2191e4b6ea65559b (patch)
tree937142e105718d77b9a7c404cd538e3dd9e78f55 /rts/ProfHeap.c
parent03c4893e355948fe865bc52c744359c42e4b06d7 (diff)
downloadhaskell-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.c14
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);
}