Hi all, Before this patch the compiler errored out when printing a value of type StgWord32 with a "%d" format specifier.
Erik -- ---------------------------------------------------------------------- Erik de Castro Lopo http://www.mega-nerd.com/
>From e8b26fdfb6cea7d2a32f96fa07bca6fe623b174e Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo <[email protected]> Date: Sat, 21 May 2011 11:20:43 +1000 Subject: [PATCH] Fix RTS compiler error when DEBUG is defined. --- rts/Trace.c | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/rts/Trace.c b/rts/Trace.c index fb8e922..a8519c9 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -267,16 +267,16 @@ 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 %u of type %u\n", (uint32_t) capset, (uint32_t) other); break; case EVENT_CAPSET_DELETE: // (capset) - debugBelch("deleted capset %d\n", capset); + debugBelch("deleted capset %u\n", (uint32_t) capset); break; case EVENT_CAPSET_ASSIGN_CAP: // (capset, capno) - debugBelch("assigned cap %d to capset %d\n", other, capset); + debugBelch("assigned cap %u to capset %u\n", (uint32_t) other, (uint32_t) capset); break; case EVENT_CAPSET_REMOVE_CAP: // (capset, capno) - debugBelch("removed cap %d from capset %d\n", other, capset); + debugBelch("removed cap %u from capset %u\n", (uint32_t) other, (uint32_t) capset); break; } RELEASE_LOCK(&trace_utx); -- 1.7.2.5
_______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
