diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2018-02-20 13:18:52 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-02-25 16:25:19 -0500 |
| commit | cb89ba88d42ab77f9e20d722ec1ab40ec6f8e703 (patch) | |
| tree | ca13b9d9fd2ec37d1a109482257a93572d284c24 /rts/RetainerProfile.c | |
| parent | be498a24250f637471426989b3bdf5f1b18e47bb (diff) | |
| download | haskell-cb89ba88d42ab77f9e20d722ec1ab40ec6f8e703.tar.gz | |
RTS: Remove unused retainer schemes
Reviewers: bgamari, erikd, simonmar
Reviewed By: simonmar
Subscribers: rwbarton, thomie, carter
GHC Trac Issues: #11777
Differential Revision: https://phabricator.haskell.org/D4427
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 4badbfe925..cad3bb40ef 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1143,16 +1143,7 @@ getRetainerFrom( StgClosure *c ) { ASSERT(isRetainer(c)); -#if defined(RETAINER_SCHEME_INFO) - // Retainer scheme 1: retainer = info table - return get_itbl(c); -#elif defined(RETAINER_SCHEME_CCS) - // Retainer scheme 2: retainer = cost centre stack return c->header.prof.ccs; -#elif defined(RETAINER_SCHEME_CC) - // Retainer scheme 3: retainer = cost centre - return c->header.prof.ccs->cc; -#endif } /* ----------------------------------------------------------------------------- |