X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.c;h=a15758c4f1cdb73f2862306f95d3c75de10fa551;hb=fff1f6194c3c39de53cd645bda9865fb131b1c68;hp=8994ad153e47193c171ce87f032fe2ee760a80b0;hpb=2c3e47bb5dc96ed5e0a17f49f8fe8e0abe986dcc;p=ghc-hetmet.git

diff --git a/rts/Task.c b/rts/Task.c
index 8994ad1..a15758c 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -359,6 +359,8 @@ static void *taskId(Task *task)
 #endif
 }
 
+#endif
+
 #if defined(THREADED_RTS)
 
 static void OSThreadProcAttr
@@ -431,6 +433,8 @@ interruptWorkerTask (Task *task)
 
 #endif /* THREADED_RTS */
 
+#ifdef DEBUG
+
 void printAllTasks(void);
 
 void