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 /rts/Printer.c | |
| 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
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 11 |
1 files changed, 10 insertions, 1 deletions
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]; |