From 7aac567ca3c3daae7c738230b1d1b2bdda816b96 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 10 Sep 2008 14:20:42 +0000
Subject: [PATCH] Fix debug message formatting on Windows

---
 rts/Threads.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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:
-- 
1.7.10.4