rts: TraverseHeap: Allow visit_cb to be NULL

fc4bd556 · Daniel Gröber (dxld) · Marge Bot · 79bb81fe · fc4bd556
Commit fc4bd556 authored Jul 17, 2019 by Daniel Gröber (dxld) Committed by Marge Bot Feb 17, 2021
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

rts/TraverseHeap.c rts/TraverseHeap.c +4 -2

No files found.
--- a/rts/TraverseHeap.c
+++ b/rts/TraverseHeap.c
@@ -1207,8 +1207,10 @@ inner_loop:

    // If this is the first visit to c, initialize its data.
    bool first_visit = traverseMaybeInitClosureData(ts, c);
-    bool traverse_children
-        = visit_cb(c, cp, data, first_visit, &accum, &child_data);
+    bool traverse_children = first_visit;
+    if(visit_cb)
+        traverse_children = visit_cb(c, cp, data, first_visit,
+                                     &accum, &child_data);
    if(!traverse_children)
        goto loop;