From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 9 Oct 2007 14:27:01 +0000 (+0000)
Subject: export n_capabilities, see #1733
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=afb559c1bcb64d407ce81ef3239306a2e650b1a7;hp=5e7d7570fdbd20f3f9113ed439efcb968939a3fc;p=ghc-hetmet.git

export n_capabilities, see #1733
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 496922a..853bf77 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -731,6 +731,7 @@ typedef struct _RtsSymbolVal {
       SymX(rts_stop_next_breakpoint)		\
       SymX(rts_stop_on_exception)		\
       SymX(stopTimer)				\
+      SymX(n_capabilities)			\
       RTS_USER_SIGNALS_SYMBOLS
 
 #ifdef SUPPORT_LONG_LONGS