X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=6cb61f4ca68c81134413632710089b39dc83a3f2;hb=754e039a8a15d5774fe73872ff9ac593b46370e0;hp=6ef0a21646dc60a2005b3d5f7eabd85a2d1ac9b2;hpb=b49f7dceb6c2d12c89c947fa0f7f7cb935912de3;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 6ef0a21..6cb61f4 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -423,6 +423,10 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(expf)                                \
       SymI_HasProto(logf)                                \
       SymI_HasProto(sqrtf)                               \
+      SymI_HasProto(erf)                                \
+      SymI_HasProto(erfc)                                \
+      SymI_HasProto(erff)                                \
+      SymI_HasProto(erfcf)                               \
       SymI_HasProto(memcpy)                              \
       SymI_HasProto(rts_InstallConsoleEvent)             \
       SymI_HasProto(rts_ConsoleHandlerDone)              \
@@ -501,8 +505,8 @@ typedef struct _RtsSymbolVal {
 #if !defined(mingw32_HOST_OS)
 #define RTS_USER_SIGNALS_SYMBOLS \
    SymI_HasProto(setIOManagerPipe) \
-   SymI_NeedsProto(blockUserSignals) \
-   SymI_NeedsProto(unblockUserSignals)
+   SymI_HasProto(blockUserSignals) \
+   SymI_HasProto(unblockUserSignals)
 #else
 #define RTS_USER_SIGNALS_SYMBOLS     \
    SymI_HasProto(sendIOManagerEvent) \
@@ -819,6 +823,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(stopTimer)				\
       SymI_HasProto(n_capabilities)			\
       SymI_HasProto(stg_traceCcszh)                     \
+      SymI_HasProto(stg_traceEventzh)                   \
       RTS_USER_SIGNALS_SYMBOLS