diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-09-09 09:32:17 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-09-09 09:32:17 +0000 |
| commit | 9a9803e8dc80ba41bd3e2d31228e64fa6b61060e (patch) | |
| tree | 7a31b6abc9b585771bd88df29e8502bb0e5da31b /rts/RaiseAsync.h | |
| parent | b25c93f1c914d81d77aeafeb49263f29bed128aa (diff) | |
| download | haskell-9a9803e8dc80ba41bd3e2d31228e64fa6b61060e.tar.gz | |
Omit visibility pragmas on Windows (fixes warnings/validate failures)
Diffstat (limited to 'rts/RaiseAsync.h')
| -rw-r--r-- | rts/RaiseAsync.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/rts/RaiseAsync.h b/rts/RaiseAsync.h index 52a0aa4bf0..96eb96e10b 100644 --- a/rts/RaiseAsync.h +++ b/rts/RaiseAsync.h @@ -9,12 +9,13 @@ #ifndef RAISEASYNC_H #define RAISEASYNC_H -#pragma GCC visibility push(hidden) - #define THROWTO_SUCCESS 0 #define THROWTO_BLOCKED 1 #ifndef CMINUSMINUS + +BEGIN_RTS_PRIVATE + void throwToSingleThreaded (Capability *cap, StgTSO *tso, StgClosure *exception); @@ -66,9 +67,9 @@ interruptible(StgTSO *t) } } -#endif /* CMINUSMINUS */ +END_RTS_PRIVATE -#pragma GCC visibility pop +#endif /* CMINUSMINUS */ #endif /* RAISEASYNC_H */ |