From: Simon Marlow <marlowsd@gmail.com>
Date: Sat, 28 Mar 2009 19:13:55 +0000 (+0000)
Subject: export sysErrorBelch
X-Git-Tag: 2009-06-25~182
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6d13a90527ff607bd969a0f9af70a32c3316ae9b;p=ghc-hetmet.git

export sysErrorBelch
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 8acf818..d41ede6 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -609,6 +609,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(barf)				\
       SymI_HasProto(debugBelch)				\
       SymI_HasProto(errorBelch)				\
+      SymI_HasProto(sysErrorBelch)                      \
       SymI_HasProto(asyncExceptionsBlockedzh_fast)	\
       SymI_HasProto(blockAsyncExceptionszh_fast)	\
       SymI_HasProto(catchzh_fast)			\