diff options
| author | Takano Akio <tak@anoak.io> | 2017-11-23 12:17:24 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-23 12:19:06 -0500 |
| commit | 5e356276efffa40e82c89628fbdf1a38ca489216 (patch) | |
| tree | d3533b19cac6cf432a70c48c80da9ee899200ddb | |
| parent | ad57e28909e00d90239678a621fac7c452ece9e4 (diff) | |
| download | haskell-5e356276efffa40e82c89628fbdf1a38ca489216.tar.gz | |
rts/Printer: add closure name entries for small arrays (Fixes #14513)
Test Plan: ./validate
Reviewers: bgamari, erikd, simonmar
Reviewed By: bgamari
Subscribers: rwbarton, thomie
GHC Trac Issues: #14513
Differential Revision: https://phabricator.haskell.org/D4226
| -rw-r--r-- | includes/rts/storage/ClosureTypes.h | 1 | ||||
| -rw-r--r-- | rts/Printer.c | 11 |
2 files changed, 11 insertions, 1 deletions
diff --git a/includes/rts/storage/ClosureTypes.h b/includes/rts/storage/ClosureTypes.h index 240982ca85..443efed5f1 100644 --- a/includes/rts/storage/ClosureTypes.h +++ b/includes/rts/storage/ClosureTypes.h @@ -15,6 +15,7 @@ * If you add or delete any closure types, don't forget to update the following, * - the closure flags table in rts/ClosureFlags.c * - isRetainer in rts/RetainerProfile.c + * - the closure_type_names list in rts/Printer.c */ /* Object tag 0 raises an internal error */ diff --git a/rts/Printer.c b/rts/Printer.c index f077814ba9..904f23acba 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -820,7 +820,8 @@ void printObj( StgClosure *obj ) /* ----------------------------------------------------------------------------- Closure types - NOTE: must be kept in sync with the closure types in includes/ClosureTypes.h + NOTE: must be kept in sync with the closure types in + includes/rts/storage/ClosureTypes.h -------------------------------------------------------------------------- */ const char *closure_type_names[] = { @@ -883,9 +884,17 @@ const char *closure_type_names[] = { [CATCH_RETRY_FRAME] = "CATCH_RETRY_FRAME", [CATCH_STM_FRAME] = "CATCH_STM_FRAME", [WHITEHOLE] = "WHITEHOLE", + [SMALL_MUT_ARR_PTRS_CLEAN] = "SMALL_MUT_ARR_PTRS_CLEAN", + [SMALL_MUT_ARR_PTRS_DIRTY] = "SMALL_MUT_ARR_PTRS_DIRTY", + [SMALL_MUT_ARR_PTRS_FROZEN0] = "SMALL_MUT_ARR_PTRS_FROZEN0", + [SMALL_MUT_ARR_PTRS_FROZEN] = "SMALL_MUT_ARR_PTRS_FROZEN", [COMPACT_NFDATA] = "COMPACT_NFDATA" }; +#if N_CLOSURE_TYPES != 64 +#error Closure types changed: update Printer.c! +#endif + const char * info_type(const StgClosure *closure){ return closure_type_names[get_itbl(closure)->type]; |