summaryrefslogtreecommitdiff
path: root/rts/RetainerProfile.c
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2014-10-20 15:57:13 -0700
committerEdward Z. Yang <ezyang@cs.stanford.edu>2014-10-20 16:28:42 -0700
commit89a8d817f0c2951ec305c286a526205d06bf9221 (patch)
tree5295cab951600148bd83f1cae0ae5250816dc257 /rts/RetainerProfile.c
parent0202b7cefbaf76dc53d43562dbc84a52debe2eb2 (diff)
downloadhaskell-89a8d817f0c2951ec305c286a526205d06bf9221.tar.gz
Revert "Rename _closure to _static_closure, apply naming consistently."
This reverts commit 35672072b4091d6f0031417bc160c568f22d0469. Conflicts: compiler/main/DriverPipeline.hs
Diffstat (limited to 'rts/RetainerProfile.c')
-rw-r--r--rts/RetainerProfile.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 86d20a8c68..bfc96247aa 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1748,7 +1748,7 @@ retainRoot(void *user STG_UNUSED, StgClosure **tl)
c = UNTAG_CLOSURE(*tl);
maybeInitRetainerSet(c);
- if (c != stg_END_TSO_QUEUE_closure && isRetainer(c)) {
+ if (c != &stg_END_TSO_QUEUE_closure && isRetainer(c)) {
retainClosure(c, c, getRetainerFrom(c));
} else {
retainClosure(c, c, CCS_SYSTEM);