on master help sign in
Don't collect the item being inserted.
69c45e2Matus Tejiscak
rts/idris_heap.c+1
@@ -59,6 +59,7 @@ void c_heap_insert_if_needed(VM * vm, CHeap * heap, CHeapItem * item)
59 heap->size += item->size;
59 heap->size += item->size;
60 if (heap->size >= heap->gc_trigger_size)
60 if (heap->size >= heap->gc_trigger_size)
61 {
61 {
62+ item->is_used = true; // don't collect what we're inserting
62 idris_gc(vm);
63 idris_gc(vm);
63 }
64 }
64}
65}