add new primop: asyncExceptionsBlocked# :: IO Bool

[ghc-hetmet.git] / rts / Linker.c

diff --git a/rts/Linker.c b/rts/Linker.c
index 27c580b..d1550e1 100644 (file)
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -547,6 +547,7 @@ typedef struct _RtsSymbolVal {
       SymX(barf)                               \
       SymX(debugBelch)                         \
       SymX(errorBelch)                         \
+      SymX(asyncExceptionsBlockedzh_fast)      \
       SymX(blockAsyncExceptionszh_fast)                \
       SymX(catchzh_fast)                       \
       SymX(catchRetryzh_fast)                  \