Fix string leak, re issue #670

trealla-prolog · Feb 14, 2025 · 2d81f7e · 2d81f7e
1 parent 4f3c806
commit 2d81f7e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/query.c b/src/query.c
@@ -909,13 +909,13 @@ static bool resume_any_choices(const query *q, const frame *f)
 
 static void trim_frame(query *q, const frame *f)
 {
-#if 0
 	for (unsigned i = 0; i < f->actual_slots; i++) {
 		slot *e = GET_SLOT(f, i);
 		cell *c = &e->c;
 		unshare_cell(c);
+		c->tag = TAG_EMPTY;
+		c->flags = 0;
 	}
-#endif
 
 	q->st.sp -= f->actual_slots;
 	q->st.fp--;