diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-09-13 10:52:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-09-13 10:52:35 +0000 |
| commit | abe2139ead3ec4aac34fee740eff89f1c50ccb56 (patch) | |
| tree | 14fbc7ebaa54217754eaf75ce650323ed81d08de | |
| parent | 3ffd40236667db932969f9fd1f30ed410cf12b2b (diff) | |
| download | haskell-abe2139ead3ec4aac34fee740eff89f1c50ccb56.tar.gz | |
make stg_arg_bitmaps public, and available via the GHCi linker (#3672)
| -rw-r--r-- | includes/rts/storage/InfoTables.h | 3 | ||||
| -rw-r--r-- | rts/Apply.h | 3 | ||||
| -rw-r--r-- | 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 8d51428550..cbfb0327c2 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 70faed4cb9..1c0b1623d9 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 63d89e07b8..de2009f0cc 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) \ |