Fix unwinding of C -> Haskell FFI calls with -threaded (2nd try)
[ghc.git] / rts / RtsMessages.c
index d976760..053805e 100644 (file)
@@ -8,6 +8,7 @@
 
 #include "PosixSource.h"
 #include "Rts.h"
+#include "RtsUtils.h"
 
 #include "eventlog/EventLog.h"
 
@@ -132,9 +133,6 @@ isGUIApp(void)
 }
 #endif
 
-#define xstr(s) str(s)
-#define str(s) #s
-
 void GNU_ATTRIBUTE(__noreturn__)
 rtsFatalInternalErrorFn(const char *s, va_list ap)
 {