X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.c;h=73a3427d7eb2838f5b443b6370de7411849ebea3;hb=a60af39758448f92d8eaa3b62072f9adcdbbee9d;hp=564a20f019cb1582b6c01e285bac7dbd475cd11c;hpb=e4fdc426413d178c86d3ba93702aad5eb17734bf;p=ghc-hetmet.git

diff --git a/rts/Capability.c b/rts/Capability.c
index 564a20f..73a3427 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -677,7 +677,7 @@ shutdownCapability (Capability *cap, Task *task)
             for (t = cap->spare_workers; t != NULL; t = t->next) {
                 if (!osThreadIsAlive(t->id)) {
                     debugTrace(DEBUG_sched, 
-                               "worker thread %p has died unexpectedly", t->id);
+                               "worker thread %p has died unexpectedly", (void *)t->id);
                         if (!prev) {
                             cap->spare_workers = t->next;
                         } else {