From: sof <unknown>
Date: Tue, 31 Aug 2004 19:06:29 +0000 (+0000)
Subject: [project @ 2004-08-31 19:06:29 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~1656
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=21d1aa951fb778720600416f99cd0581f0d96cfe;p=ghc-hetmet.git

[project @ 2004-08-31 19:06:29 by sof]
RTS_SYMBOLS: added closure_flags (innards-peeking user code may use this); merge to STABLE
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index dbf560e..24f5d09 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -388,10 +388,11 @@ typedef struct _RtsSymbolVal {
       SymX(barf)				\
       SymX(blockAsyncExceptionszh_fast)		\
       SymX(catchzh_fast)			\
+      SymX(closure_flags)                       \
       SymX(cmp_thread)				\
-      SymX(complementIntegerzh_fast)		\
       SymX(cmpIntegerzh_fast)	        	\
       SymX(cmpIntegerIntzh_fast)	      	\
+      SymX(complementIntegerzh_fast)		\
       SymX(createAdjustor)			\
       SymX(decodeDoublezh_fast)			\
       SymX(decodeFloatzh_fast)			\