summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-09-13 00:07:28 +0200
committerDaniel Gröber <dxld@darkboxed.org>2019-09-22 15:18:10 +0200
commit7f10cc2ddb32ab363b7131ec0450536908af701a (patch)
treebaa60f4749723e4d1ecaaa74a8ccc0be8f787d62
parenta813778062652584e38d2ed52a9bdeda83758247 (diff)
downloadhaskell-7f10cc2ddb32ab363b7131ec0450536908af701a.tar.gz
rts: RetainerProfile: Explain retainVisitClosure return values
[ci skip]
-rw-r--r--rts/RetainerProfile.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 6f053c09c4..97c4b35a71 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -303,7 +303,7 @@ retainVisitClosure( StgClosure *c, const StgClosure *cp, const stackData data, c
} else {
// This is not the first visit to *c.
if (isMember(r, retainerSetOfc))
- return 0; // no need to process child
+ return 0; // no need to process children
if (s == NULL)
associate(c, addElement(r, retainerSetOfc));
@@ -322,7 +322,7 @@ retainVisitClosure( StgClosure *c, const StgClosure *cp, const stackData data, c
}
if (isRetainer(c))
- return 0; // no need to process child
+ return 0; // no need to process children
// compute c_child_r
out_data->c_child_r = r;
@@ -331,7 +331,7 @@ retainVisitClosure( StgClosure *c, const StgClosure *cp, const stackData data, c
// now, RSET() of all of *c, *cp, and *r is valid.
// (c, c_child_r) are available.
- return 1;
+ return 1; // do process children
}
/**