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