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

2 files changed, 31 insertions, 21 deletions

diff --git a/rts/hooks/OutOfHeap.c b/rts/hooks/OutOfHeap.c
index bb8752846f..5e68750d71 100644
--- a/rts/hooks/OutOfHeap.c
+++ b/rts/hooks/OutOfHeap.c
@@ -13,17 +13,24 @@
 void
 OutOfHeapHook (W_ request_size, W_ heap_size) /* both sizes in bytes */
 {
-  (void)request_size;   /* keep gcc -Wall happy */
-  if (heap_size > 0) {
-      errorBelch("Heap exhausted;\n"
-                 "Current maximum heap size is %" FMT_Word
-                 " bytes (%" FMT_Word " MB);\n"
-                 "%s `+RTS -M<size>' to increase it.",
-                 heap_size, heap_size / (1024*1024),
-                 ((rtsConfig.rts_opts_enabled == RtsOptsAll)
-                  ? "use"
-                  : "relink with -rtsopts and use"));
-  } else {
-      errorBelch("out of memory");
-  }
+    (void)request_size;   /* keep gcc -Wall happy */
+    if (heap_size > 0) {
+        errorBelch("Heap exhausted;");
+        errorBelch("Current maximum heap size is %" FMT_Word
+                   " bytes (%" FMT_Word " MB).",
+                   heap_size, heap_size / (1024*1024));
+
+        if (rtsConfig.rts_opts_suggestions == rtsTrue) {
+
+            if (rtsConfig.rts_opts_enabled == RtsOptsAll) {
+                errorBelch("Use `+RTS -M<size>' to increase it.");
+            } else {
+                errorBelch("Relink with -rtsopts and "
+                           "use `+RTS -M<size>' to increase it.");
+            }
+
+        }
+    } else {
+        errorBelch("Out of memory.\n");
+    }
 }
diff --git a/rts/hooks/StackOverflow.c b/rts/hooks/StackOverflow.c
index 1ae8603eec..602700ad77 100644
--- a/rts/hooks/StackOverflow.c
+++ b/rts/hooks/StackOverflow.c
@@ -14,12 +14,15 @@
 void
 StackOverflowHook (W_ stack_size)    /* in bytes */
 {
-    fprintf(stderr,
-            "Stack space overflow: current size %" FMT_Word " bytes.\n"
-            "%s `+RTS -Ksize -RTS' to increase it.\n",
-            stack_size,
-            ((rtsConfig.rts_opts_enabled == RtsOptsAll)
-             ? "Use"
-             : "Relink with -rtsopts and use")
-            );
+    errorBelch("Stack space overflow: current size %" FMT_Word " bytes.",
+               stack_size);
+
+    if (rtsConfig.rts_opts_suggestions == rtsTrue) {
+        if (rtsConfig.rts_opts_enabled == RtsOptsAll) {
+            errorBelch("Use `+RTS -Ksize -RTS' to increase it.");
+        } else {
+            errorBelch("Relink with -rtsopts and "
+                       "use `+RTS -Ksize -RTS' to increase it.");
+        }
+    }
 }