projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update submodules
[ghc-hetmet.git]
/
rts
/
Trace.c
diff --git
a/rts/Trace.c
b/rts/Trace.c
index
e472c5a
..
70f4a39
100644
(file)
--- a/
rts/Trace.c
+++ b/
rts/Trace.c
@@
-267,16
+267,18
@@
void traceCapsetModify_ (EventTypeNum tag,
tracePreface();
switch (tag) {
case EVENT_CAPSET_CREATE: // (capset, capset_type)
tracePreface();
switch (tag) {
case EVENT_CAPSET_CREATE: // (capset, capset_type)
- debugBelch("created capset %d of type %d\n", capset, other);
+ debugBelch("created capset %lu of type %d\n", (lnat)capset, (int)other);
break;
case EVENT_CAPSET_DELETE: // (capset)
break;
case EVENT_CAPSET_DELETE: // (capset)
- debugBelch("deleted capset %d\n", capset);
+ debugBelch("deleted capset %lu\n", (lnat)capset);
break;
case EVENT_CAPSET_ASSIGN_CAP: // (capset, capno)
break;
case EVENT_CAPSET_ASSIGN_CAP: // (capset, capno)
- debugBelch("assigned cap %d to capset %d\n", other, capset);
+ debugBelch("assigned cap %lu to capset %lu\n",
+ (lnat)other, (lnat)capset);
break;
case EVENT_CAPSET_REMOVE_CAP: // (capset, capno)
break;
case EVENT_CAPSET_REMOVE_CAP: // (capset, capno)
- debugBelch("removed cap %d from capset %d\n", other, capset);
+ debugBelch("removed cap %lu from capset %lu\n",
+ (lnat)other, (lnat)capset);
break;
}
RELEASE_LOCK(&trace_utx);
break;
}
RELEASE_LOCK(&trace_utx);