}
#endif
+#define xstr(s) str(s)
+#define str(s) #s
+
void
rtsFatalInternalErrorFn(char *s, va_list ap)
{
}
vfprintf(stderr, s, ap);
fprintf(stderr, "\n");
- fprintf(stderr, " Please report this as a bug to glasgow-haskell-bugs@haskell.org,\n or http://www.sourceforge.net/projects/ghc/\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);
}
- stg_exit(EXIT_INTERNAL_ERROR);
+ abort();
+ // stg_exit(EXIT_INTERNAL_ERROR);
}
void