X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsMessages.c;h=ef5c5a226cbcdcce199297e894bfd363c7b6470a;hb=3a886477def20cfaaacb87a784917b5c6a3238b0;hp=53a910e7567d0366ce46b8c55b1c9f5c339367b1;hpb=ab1e183aa7801f9260a9cbb6edbd553cf8249b25;p=ghc-hetmet.git

diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c
index 53a910e..ef5c5a2 100644
--- a/rts/RtsMessages.c
+++ b/rts/RtsMessages.c
@@ -10,6 +10,8 @@
 #include "Rts.h"
 
 #include <stdio.h>
+#include <string.h>
+#include <errno.h>
 
 #ifdef HAVE_WINDOWS_H
 #include <windows.h>
@@ -126,7 +128,7 @@ isGUIApp(void)
 #define xstr(s) str(s)
 #define str(s) #s
 
-void
+void GNU_ATTRIBUTE(__noreturn__)
 rtsFatalInternalErrorFn(const char *s, va_list ap)
 {
 #if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS)
@@ -237,7 +239,12 @@ rtsSysErrorMsgFn(const char *s, va_list ap)
 	}
 	vfprintf(stderr, s, ap);
 	if (syserr) {
+#if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS)
+            // Win32 error messages have a terminating \n
+	    fprintf(stderr, ": %s", syserr);
+#else
 	    fprintf(stderr, ": %s\n", syserr);
+#endif
 	} else {
 	    fprintf(stderr, "\n");
 	}