From 6f44f99a4d26ea518a109b073dca7b72bd551a6f Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 3 Oct 2004 16:37:42 +0000
Subject: [PATCH 1/1] [project @ 2004-10-03 16:37:42 by panne] Warning police

---
 ghc/rts/Schedule.c |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index fb0b19e..04e9f1f 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -3421,7 +3421,6 @@ void
 printAllThreads(void)
 {
   StgTSO *t;
-  void *label;
 
 # if defined(GRAN)
   char time_string[TIME_STR_LEN], node_str[NODE_STR_LEN];
@@ -3442,8 +3441,10 @@ printAllThreads(void)
   for (t = all_threads; t != END_TSO_QUEUE; t = t->global_link) {
     debugBelch("\tthread %d @ %p ", t->id, (void *)t);
 #if defined(DEBUG)
-    label = lookupThreadLabel(t->id);
-    if (label) debugBelch("[\"%s\"] ",(char *)label);
+    {
+      void *label = lookupThreadLabel(t->id);
+      if (label) debugBelch("[\"%s\"] ",(char *)label);
+    }
 #endif
     printThreadStatus(t);
     debugBelch("\n");
-- 
1.7.10.4