X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSchedule.c;h=bbc6a8b5a8c632960cbdf6e3e143c467cfd78180;hb=c137ecd7e6e83d0f9c39b15ccdb9f2355f243c91;hp=0ff9bbe1a0b356ca9d7412985e3a9f4accba009f;hpb=c9b3d15f0a52f13764185b63c4eea4cfc9149b9d;p=ghc-hetmet.git

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 0ff9bbe..bbc6a8b 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -4498,7 +4498,7 @@ sched_belch(char *s, ...)
     va_list ap;
     va_start(ap,s);
 #ifdef THREADED_RTS
-    debugBelch("sched (task %p, pid %d): ", (void *)(unsigned long)(unsigned int)osThreadId(), getpid());
+    debugBelch("sched (task %p): ", (void *)(unsigned long)(unsigned int)osThreadId());
 #elif defined(PARALLEL_HASKELL)
     debugBelch("== ");
 #else