[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 (file)
--- 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)                 \