projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b89ad0e
)
[project @ 2004-10-03 16:37:42 by panne]
author
panne
<unknown>
Sun, 3 Oct 2004 16:37:42 +0000
(16:37 +0000)
committer
panne
<unknown>
Sun, 3 Oct 2004 16:37:42 +0000
(16:37 +0000)
Warning police
ghc/rts/Schedule.c
patch
|
blob
|
history
diff --git
a/ghc/rts/Schedule.c
b/ghc/rts/Schedule.c
index
fb0b19e
..
04e9f1f
100644
(file)
--- a/
ghc/rts/Schedule.c
+++ b/
ghc/rts/Schedule.c
@@
-3421,7
+3421,6
@@
void
printAllThreads(void)
{
StgTSO *t;
printAllThreads(void)
{
StgTSO *t;
- void *label;
# if defined(GRAN)
char time_string[TIME_STR_LEN], node_str[NODE_STR_LEN];
# 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)
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");
#endif
printThreadStatus(t);
debugBelch("\n");