projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-03-08 02:28:23 by wolfgang]
[ghc-hetmet.git]
/
ghc
/
rts
/
Printer.c
diff --git
a/ghc/rts/Printer.c
b/ghc/rts/Printer.c
index
67ca672
..
0ed5a32
100644
(file)
--- a/
ghc/rts/Printer.c
+++ b/
ghc/rts/Printer.c
@@
-354,14
+354,14
@@
printClosure( StgClosure *obj )
case MVAR:
{
StgMVar* mv = (StgMVar*)obj;
case MVAR:
{
StgMVar* mv = (StgMVar*)obj;
- debugBelch("MVAR(head=%p, link=%p, tail=%p, value=%p)\n", mv->head, mv->mut_link, mv->tail, mv->value);
+ debugBelch("MVAR(head=%p, tail=%p, value=%p)\n", mv->head, mv->tail, mv->value);
break;
}
case MUT_VAR:
{
StgMutVar* mv = (StgMutVar*)obj;
break;
}
case MUT_VAR:
{
StgMutVar* mv = (StgMutVar*)obj;
- debugBelch("MUT_VAR(var=%p, link=%p)\n", mv->var, mv->mut_link);
+ debugBelch("MUT_VAR(var=%p)\n", mv->var);
break;
}
break;
}