diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2018-05-03 10:43:38 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2018-05-11 04:02:03 -0700 |
| commit | cb5c2fe875965b7aedbc189012803fc62e48fb3f (patch) | |
| tree | bc5d65def3de1b2a08b569f9661a0db602a719ac /rts/RtsMessages.c | |
| parent | 40a76c99624ae82e960bad0f1c832ddec4aece16 (diff) | |
| download | haskell-cb5c2fe875965b7aedbc189012803fc62e48fb3f.tar.gz | |
Fix unwinding of C -> Haskell FFI calls with -threaded
See the new note.
Test Plan:
manual testing with patched gdb
Reviewers: bgamari, simonmar, erikd
Subscribers: rwbarton, thomie, carter
Differential Revision: https://phabricator.haskell.org/D4666
Diffstat (limited to 'rts/RtsMessages.c')
| -rw-r--r-- | rts/RtsMessages.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c index d976760242..053805e763 100644 --- a/rts/RtsMessages.c +++ b/rts/RtsMessages.c @@ -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) { |