X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=a9d4a721d37372729cfb7dcca08445938e834cd4;hb=4179e02ec7ec7aea79273cdcc166123c2ddd2063;hp=281cb65e482238968c68a023d6ba8a358d7fd533;hpb=d572aed64d9c40dcc38a49b09d18f301555e4efb;p=ghc-hetmet.git

diff --git a/rts/Threads.c b/rts/Threads.c
index 281cb65..a9d4a72 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -698,7 +698,7 @@ printThreadBlockage(StgTSO *tso)
     break;
 #if defined(mingw32_HOST_OS)
     case BlockedOnDoProc:
-    debugBelch("is blocked on proc (request: %ld)", tso->block_info.async_result->reqID);
+    debugBelch("is blocked on proc (request: %u)", tso->block_info.async_result->reqID);
     break;
 #endif
   case BlockedOnDelay: