X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsMessages.c;h=1242d886eb301460152e65d4dc736ae91ffdfbeb;hb=3eacdc7faf0d0e87a7201253f9f12c1fb4db7249;hp=9f36e2e97d201393be5116bb79c601c49fb3f827;hpb=a2a6d28ccbdbbf21a09b2975347f681755ddf7f0;p=ghc-hetmet.git

diff --git a/ghc/rts/RtsMessages.c b/ghc/rts/RtsMessages.c
index 9f36e2e..1242d88 100644
--- a/ghc/rts/RtsMessages.c
+++ b/ghc/rts/RtsMessages.c
@@ -107,6 +107,9 @@ isGUIApp()
 }
 #endif
 
+#define xstr(s) str(s)
+#define str(s) #s
+
 void
 rtsFatalInternalErrorFn(char *s, va_list ap)
 {
@@ -135,7 +138,8 @@ rtsFatalInternalErrorFn(char *s, va_list ap)
      }
      vfprintf(stderr, s, ap);
      fprintf(stderr, "\n");
-     fprintf(stderr, "    Please report this as a compiler bug.  See:\n    http://www.haskell.org/ghc/reportabug\n");
+     fprintf(stderr, "    (GHC version %s for %s)\n", ProjectVersion, xstr(HostPlatform_TYPE));
+     fprintf(stderr, "    Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug\n");
      fflush(stderr);
   }