projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Allow safety information on calls in Cmm files
[ghc-hetmet.git]
/
rts
/
Printer.c
diff --git
a/rts/Printer.c
b/rts/Printer.c
index
7364edd
..
2a0346b
100644
(file)
--- a/
rts/Printer.c
+++ b/
rts/Printer.c
@@
-138,7
+138,7
@@
printClosure( StgClosure *obj )
StgWord i, j;
#ifdef PROFILING
StgWord i, j;
#ifdef PROFILING
- debugBelch("%s(", info->prof.closure_desc);
+ debugBelch("%s(", GET_PROF_DESC(info));
debugBelch("%s", obj->header.prof.ccs->cc->label);
#else
debugBelch("CONSTR(");
debugBelch("%s", obj->header.prof.ccs->cc->label);
#else
debugBelch("CONSTR(");
@@
-174,7
+174,7
@@
printClosure( StgClosure *obj )
case THUNK_STATIC:
/* ToDo: will this work for THUNK_STATIC too? */
#ifdef PROFILING
case THUNK_STATIC:
/* ToDo: will this work for THUNK_STATIC too? */
#ifdef PROFILING
- printThunkObject((StgThunk *)obj,info->prof.closure_desc);
+ printThunkObject((StgThunk *)obj,GET_PROF_DESC(info));
#else
printThunkObject((StgThunk *)obj,"THUNK");
#endif
#else
printThunkObject((StgThunk *)obj,"THUNK");
#endif
@@
-1164,7
+1164,7
@@
void prettyPrintClosure_ (StgClosure *obj)
con_info = get_con_itbl (obj);
/* obtain the name of the constructor */
con_info = get_con_itbl (obj);
/* obtain the name of the constructor */
- descriptor = con_info->con_desc;
+ descriptor = GET_CON_DESC(con_info);
debugBelch ("(%s", descriptor);
debugBelch ("(%s", descriptor);