diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2015-11-07 09:39:05 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2015-11-07 09:39:05 +0000 |
| commit | ce1f1607ed7f8fedd2f63c8610cafefd59baaf32 (patch) | |
| tree | 718641160c3d93a2ca974deec1e228cb09e1a97e /rts/RtsSymbols.c | |
| parent | a58eeb7febd67c93dab82de7049ef1dcdecd34e9 (diff) | |
| download | haskell-ce1f1607ed7f8fedd2f63c8610cafefd59baaf32.tar.gz | |
Make GHCi & TH work when the compiler is built with -prof
Summary:
Amazingly, there were zero changes to the byte code generator and very
few changes to the interpreter - mainly because we've used good
abstractions that hide the differences between profiling and
non-profiling. So that bit was pleasantly straightforward, but there
were a pile of other wibbles to get the whole test suite through.
Note that a compiler built with -prof is now like one built with
-dynamic, in that to use TH you have to build the code the same way.
For dynamic, we automatically enable -dynamic-too when TH is required,
but we don't have anything equivalent for profiling, so you have to
explicitly use -prof when building code that uses TH with a profiled
compiler. For this reason Cabal won't work with TH. We don't expect
to ship a profiled compiler, so I think that's OK.
Test Plan: validate with GhcProfiled=YES in validate.mk
Reviewers: goldfire, bgamari, rwbarton, austin, hvr, erikd, ezyang
Reviewed By: ezyang
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1407
GHC Trac Issues: #4837, #545
Diffstat (limited to 'rts/RtsSymbols.c')
| -rw-r--r-- | rts/RtsSymbols.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index 569255094f..3a4355797e 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -641,10 +641,25 @@ SymI_HasProto(stg_INTLIKE_closure) #endif +#if defined(PROFILING) +#define RTS_PROF_SYMBOLS \ + SymI_HasProto(CCS_DONT_CARE) \ + SymI_HasProto(CC_LIST) \ + SymI_HasProto(CC_ID) \ + SymI_HasProto(CCS_LIST) \ + SymI_HasProto(CCS_ID) \ + SymI_HasProto(stg_restore_cccs_info) \ + SymI_HasProto(enterFunCCS) \ + SymI_HasProto(pushCostCentre) \ + SymI_HasProto(era) +#else +#define RTS_PROF_SYMBOLS /* empty */ +#endif #define RTS_SYMBOLS \ Maybe_Stable_Names \ RTS_TICKY_SYMBOLS \ + RTS_PROF_SYMBOLS \ SymI_HasProto(StgReturn) \ SymI_HasProto(stg_gc_noregs) \ SymI_HasProto(stg_ret_v_info) \ |