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:
c064c9e
)
[project @ 2004-09-13 17:10:48 by sof]
author
sof
<unknown>
Mon, 13 Sep 2004 17:10:48 +0000
(17:10 +0000)
committer
sof
<unknown>
Mon, 13 Sep 2004 17:10:48 +0000
(17:10 +0000)
printClosure(): handle MVARs
ghc/rts/Printer.c
patch
|
blob
|
history
diff --git
a/ghc/rts/Printer.c
b/ghc/rts/Printer.c
index
0f65ac9
..
c72b33a
100644
(file)
--- a/
ghc/rts/Printer.c
+++ b/
ghc/rts/Printer.c
@@
-351,6
+351,13
@@
printClosure( StgClosure *obj )
}
#endif
+ 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);
+ break;
+ }
+
case MUT_VAR:
{
StgMutVar* mv = (StgMutVar*)obj;