Print the prog name in errorBelch() even if prog_argv is not set yet

This means we get the prog name in error messages from the flag parser

diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c
index ef5c5a2..e2a30a6 100644 (file)
--- a/rts/RtsMessages.c
+++ b/rts/RtsMessages.c
@@ -187,7 +187,7 @@ rtsErrorMsgFn(const char *s, va_list ap)
 #endif
   {
      /* don't fflush(stdout); WORKAROUND bug in Linux glibc */
 #endif
   {
      /* don't fflush(stdout); WORKAROUND bug in Linux glibc */

-     if (prog_argv != NULL && prog_name != NULL) {
+     if (prog_name != NULL) {

        fprintf(stderr, "%s: ", prog_name);
      }
      vfprintf(stderr, s, ap);
        fprintf(stderr, "%s: ", prog_name);
      }
      vfprintf(stderr, s, ap);