summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Gröber <dxld@darkboxed.org>2019-07-08 16:01:15 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-02-17 11:21:10 -0500
commit7bca0e545998f737c6f6eff08b2c2c38d7558976 (patch)
tree51b96d5692c2f9e4f5a86b3b4bc2db0eb18a151a
parentc4ad915089c440ea35e8727dec9133f4aefcb8c9 (diff)
downloadhaskell-7bca0e545998f737c6f6eff08b2c2c38d7558976.tar.gz
rts: TraverseHeap: Update some comments
data_out was renamed to child_data at some point
-rw-r--r--rts/TraverseHeap.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/TraverseHeap.c b/rts/TraverseHeap.c
index 20fecfb816..55334e4104 100644
--- a/rts/TraverseHeap.c
+++ b/rts/TraverseHeap.c
@@ -708,10 +708,10 @@ callReturnAndPopStackElement(traverseState *ts)
* If the unprocessed object was stored in the stack (posTypeFresh), the
* this object is returned as-is. Otherwise Test if the topmost stack
* element indicates that more objects are left,
- * and if so, retrieve the first object and store its pointer to *c. Also,
+ * and if so, retrieve the next object and store its pointer to *c. Also,
* set *cp and *data appropriately, both of which are stored in the stack
- * element. The topmost stack element then is overwritten so as for it to now
- * denote the next object.
+ * element. The topmost stack element is then overwritten so it denotes the
+ * next object.
*
* If the topmost stack element indicates no more objects are left, pop
* off the stack element until either an object can be retrieved or
@@ -1211,7 +1211,7 @@ traverseWorkStack(traverseState *ts, visitClosure_cb visit_cb)
// c = Current closure (possibly tagged)
// cp = Current closure's Parent (NOT tagged)
// data = current closures' associated data (NOT tagged)
- // data_out = data to associate with current closure's children
+ // child_data = data to associate with current closure's children
loop:
traversePop(ts, &c, &cp, &data, &sep);