projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Always use -funbox-strict-fields for Binary
[ghc-hetmet.git]
/
rts
/
Printer.c
diff --git
a/rts/Printer.c
b/rts/Printer.c
index
8290d22
..
36fdf7b
100644
(file)
--- a/
rts/Printer.c
+++ b/
rts/Printer.c
@@
-381,7
+381,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;