From: panne <unknown>
Date: Sun, 3 Oct 2004 16:37:42 +0000 (+0000)
Subject: [project @ 2004-10-03 16:37:42 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~1542
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6f44f99a4d26ea518a109b073dca7b72bd551a6f

[project @ 2004-10-03 16:37:42 by panne]
Warning police
---

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");