From abe2139ead3ec4aac34fee740eff89f1c50ccb56 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 13 Sep 2010 10:52:35 +0000 Subject: [PATCH] make stg_arg_bitmaps public, and available via the GHCi linker (#3672) --- includes/rts/storage/InfoTables.h | 3 +++ rts/Apply.h | 3 --- rts/Linker.c | 1 + 3 files changed, 4 insertions(+), 3 deletions(-) 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) \ -- 1.7.10.4