Commit abe2139e authored by Simon Marlow's avatar Simon Marlow
Browse files

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

parent 3ffd4023
...@@ -290,6 +290,9 @@ typedef struct { ...@@ -290,6 +290,9 @@ typedef struct {
#endif #endif
} StgFunInfoTable; } StgFunInfoTable;
// canned bitmap for each arg type, indexed by constants in FunTypes.h
extern StgWord stg_arg_bitmaps[];
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
Return info tables Return info tables
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
......
...@@ -23,7 +23,4 @@ extern RTS_PRIVATE StgWord stg_stack_save_entries[]; ...@@ -23,7 +23,4 @@ extern RTS_PRIVATE StgWord stg_stack_save_entries[];
extern RTS_PRIVATE StgFun *stg_stack_save_entries[]; extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
#endif #endif
// canned bitmap for each arg type
extern RTS_PRIVATE StgWord stg_arg_bitmaps[];
#endif /* APPLY_H */ #endif /* APPLY_H */
...@@ -966,6 +966,7 @@ typedef struct _RtsSymbolVal { ...@@ -966,6 +966,7 @@ typedef struct _RtsSymbolVal {
SymI_HasProto(stg_writeTVarzh) \ SymI_HasProto(stg_writeTVarzh) \
SymI_HasProto(stg_yieldzh) \ SymI_HasProto(stg_yieldzh) \
SymI_NeedsProto(stg_interp_constr_entry) \ SymI_NeedsProto(stg_interp_constr_entry) \
SymI_HasProto(stg_arg_bitmaps) \
SymI_HasProto(alloc_blocks_lim) \ SymI_HasProto(alloc_blocks_lim) \
SymI_HasProto(g0) \ SymI_HasProto(g0) \
SymI_HasProto(allocate) \ SymI_HasProto(allocate) \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment