mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-08 18:40:23 +02:00
Code Activity

Add some asserts to mmc

Browse source
This commit is contained in:
Andy Wingo 2025-07-07 16:37:39 +02:00
parent d34dd9a644
commit f58424ec52
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mmc.c
View file

@ -470,12 +470,14 @@ trace_root(struct gc_root root, struct gc_heap *heap,
trace_remembered_edge, heap, worker); trace_remembered_edge, heap, worker);
break; break;
case GC_ROOT_KIND_HEAP_PINNED_ROOTS: case GC_ROOT_KIND_HEAP_PINNED_ROOTS:
GC_ASSERT(!heap_nofl_space(heap)->evacuating);
gc_trace_heap_pinned_roots(root.heap->roots, gc_trace_heap_pinned_roots(root.heap->roots,
tracer_visit_pinned_root, tracer_visit_pinned_root,
trace_conservative_edges_wrapper, trace_conservative_edges_wrapper,
heap, worker); heap, worker);
break; break;
case GC_ROOT_KIND_MUTATOR_PINNED_ROOTS: case GC_ROOT_KIND_MUTATOR_PINNED_ROOTS:
GC_ASSERT(!heap_nofl_space(heap)->evacuating);
gc_trace_mutator_pinned_roots(root.mutator->roots, gc_trace_mutator_pinned_roots(root.mutator->roots,
tracer_visit_pinned_root, tracer_visit_pinned_root,
trace_conservative_edges_wrapper, trace_conservative_edges_wrapper,