Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/aa538c1db99be4efb2724bb8c4a378b9d68a28ec >--------------------------------------------------------------- commit aa538c1db99be4efb2724bb8c4a378b9d68a28ec Author: Simon Marlow <[email protected]> Date: Tue May 31 09:47:59 2011 +0100 fix format specs on 64-bit builds >--------------------------------------------------------------- rts/Trace.c | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/rts/Trace.c b/rts/Trace.c index e472c5a..58f77ed 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); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
