From 21d1aa951fb778720600416f99cd0581f0d96cfe Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 31 Aug 2004 19:06:29 +0000
Subject: [PATCH] [project @ 2004-08-31 19:06:29 by sof] RTS_SYMBOLS: added
 closure_flags (innards-peeking user code may use this);
 merge to STABLE

---
 ghc/rts/Linker.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)			\
-- 
1.7.10.4