Skip to content
Snippets Groups Projects
Commit acaf240f authored by Simon Marlow's avatar Simon Marlow Committed by pcapriotti
Browse files

fprintCCS_stderr: untag the exception (#7319) 

MERGED from commit 467e1a62
parent 809e6933
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
rts/Profiling.c
+ 1
− 1
View file @ acaf240f
...@@ -1067,7 +1067,7 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) ...@@ -1067,7 +1067,7 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso)
{ {
char *desc; char *desc;
StgInfoTable *info; StgInfoTable *info;
info = get_itbl(exception); info = get_itbl(UNTAG_CLOSURE(exception));
switch (info->type) { switch (info->type) {
case CONSTR: case CONSTR:
case CONSTR_1_0: case CONSTR_1_0:
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment