projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
clean up Coercion kinding functions, rename coercionKindTyConApp
[ghc-hetmet.git]
/
rts
/
Printer.c
diff --git
a/rts/Printer.c
b/rts/Printer.c
index
8290d22
..
83afd48
100644
(file)
--- a/
rts/Printer.c
+++ b/
rts/Printer.c
@@
-133,8
+133,6
@@
printClosure( StgClosure *obj )
case CONSTR:
case CONSTR_1_0: case CONSTR_0_1:
case CONSTR_1_1: case CONSTR_0_2: case CONSTR_2_0:
case CONSTR:
case CONSTR_1_0: case CONSTR_0_1:
case CONSTR_1_1: case CONSTR_0_2: case CONSTR_2_0:
- case CONSTR_INTLIKE:
- case CONSTR_CHARLIKE:
case CONSTR_STATIC:
case CONSTR_NOCAF_STATIC:
{
case CONSTR_STATIC:
case CONSTR_NOCAF_STATIC:
{
@@
-381,7
+379,7
@@
printClosure( StgClosure *obj )
case TSO:
debugBelch("TSO(");
case TSO:
debugBelch("TSO(");
- debugBelch("%d (%p)",((StgTSO*)obj)->id, (StgTSO*)obj);
+ debugBelch("%lu (%p)",(unsigned long)(((StgTSO*)obj)->id), (StgTSO*)obj);
debugBelch(")\n");
break;
debugBelch(")\n");
break;
@@
-657,8
+655,6
@@
static char *closure_type_names[] = {
"CONSTR_2",
"CONSTR_1",
"CONSTR_0",
"CONSTR_2",
"CONSTR_1",
"CONSTR_0",
- "CONSTR_INTLIKE",
- "CONSTR_CHARLIKE",
"CONSTR_STATIC",
"CONSTR_NOCAF_STATIC",
"FUN",
"CONSTR_STATIC",
"CONSTR_NOCAF_STATIC",
"FUN",