diff options
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]; |