diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-05-31 09:47:59 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-05-31 10:52:54 +0100 |
| commit | aa538c1db99be4efb2724bb8c4a378b9d68a28ec (patch) | |
| tree | 66ac9dcaefe05b91dc6a35cdf3a75ed3929e57c0 | |
| parent | d77cec05ebc9abe62b8af990b519fc9f36684239 (diff) | |
| download | haskell-aa538c1db99be4efb2724bb8c4a378b9d68a28ec.tar.gz | |
fix format specs on 64-bit builds
| -rw-r--r-- | rts/Trace.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index e472c5ade7..58f77edd4d 100644 --- 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) - debugBelch("created capset %d of type %d\n", capset, other); + debugBelch("created capset %lu of type %d\n", (lnat)capset, other); 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) - 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) - 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); |