diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2019-09-13 00:07:28 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2019-09-22 15:18:10 +0200 |
commit | 7f10cc2ddb32ab363b7131ec0450536908af701a (patch) | |
tree | baa60f4749723e4d1ecaaa74a8ccc0be8f787d62 | |
parent | a813778062652584e38d2ed52a9bdeda83758247 (diff) | |
download | haskell-7f10cc2ddb32ab363b7131ec0450536908af701a.tar.gz |
rts: RetainerProfile: Explain retainVisitClosure return values
[ci skip]
-rw-r--r-- | rts/RetainerProfile.c | 6 |
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 } /** |