From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 13 Sep 2010 10:52:35 +0000 (+0000)
Subject: make stg_arg_bitmaps public, and available via the GHCi linker (#3672)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=abe2139ead3ec4aac34fee740eff89f1c50ccb56

make stg_arg_bitmaps public, and available via the GHCi linker (#3672)
---

diff --git a/includes/rts/storage/InfoTables.h b/includes/rts/storage/InfoTables.h
index 8d51428..cbfb032 100644
--- a/includes/rts/storage/InfoTables.h
+++ b/includes/rts/storage/InfoTables.h
@@ -290,6 +290,9 @@ typedef struct {
 #endif
 } StgFunInfoTable;
 
+// canned bitmap for each arg type, indexed by constants in FunTypes.h
+extern StgWord stg_arg_bitmaps[];
+
 /* -----------------------------------------------------------------------------
    Return info tables
    -------------------------------------------------------------------------- */
diff --git a/rts/Apply.h b/rts/Apply.h
index 70faed4..1c0b162 100644
--- a/rts/Apply.h
+++ b/rts/Apply.h
@@ -23,7 +23,4 @@ extern RTS_PRIVATE StgWord stg_stack_save_entries[];
 extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
 #endif
 
-// canned bitmap for each arg type
-extern RTS_PRIVATE StgWord stg_arg_bitmaps[];
-
 #endif /* APPLY_H */
diff --git a/rts/Linker.c b/rts/Linker.c
index 63d89e0..de2009f 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -966,6 +966,7 @@ typedef struct _RtsSymbolVal {
       SymI_HasProto(stg_writeTVarzh)			\
       SymI_HasProto(stg_yieldzh)                        \
       SymI_NeedsProto(stg_interp_constr_entry)          \
+      SymI_HasProto(stg_arg_bitmaps)                    \
       SymI_HasProto(alloc_blocks_lim)                   \
       SymI_HasProto(g0)                                 \
       SymI_HasProto(allocate)                           \