diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2009-06-13 17:06:22 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2009-06-13 17:06:22 +0000 |
| commit | 96fff1ba94bd3a21da3fa797816bd6e82e4148ba (patch) | |
| tree | d915fc419e2b14b02802acbc4507b97d9ba2360c | |
| parent | 85df606a23117641682e19f3851099134e5f77a4 (diff) | |
| download | haskell-96fff1ba94bd3a21da3fa797816bd6e82e4148ba.tar.gz | |
Exports a few rts things we need for cmm code in external packages
In particular we need alloc_blocks and alloc_blocks_lim for MAYBE_GC.
The gmp cmm primops also use stg_ARR_WORDS_info.
| -rw-r--r-- | rts/Linker.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 68bd5864a1..17c5c3bc18 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -771,6 +771,7 @@ typedef struct _RtsSymbolVal { SymI_HasProto(stg_MVAR_DIRTY_info) \ SymI_HasProto(stg_IND_STATIC_info) \ SymI_HasProto(stg_INTLIKE_closure) \ + SymI_HasProto(stg_ARR_WORDS_info) \ SymI_HasProto(stg_MUT_ARR_PTRS_DIRTY_info) \ SymI_HasProto(stg_MUT_ARR_PTRS_FROZEN_info) \ SymI_HasProto(stg_MUT_ARR_PTRS_FROZEN0_info) \ @@ -845,6 +846,9 @@ typedef struct _RtsSymbolVal { SymI_HasProto(xorIntegerzh_fast) \ SymI_HasProto(yieldzh_fast) \ SymI_NeedsProto(stg_interp_constr_entry) \ + SymI_HasProto(alloc_blocks) \ + SymI_HasProto(alloc_blocks_lim) \ + SymI_HasProto(allocateLocal) \ SymI_HasProto(allocateExec) \ SymI_HasProto(freeExec) \ SymI_HasProto(getAllocations) \ |