Better slot recover on TCOs.

infradig · infradig · commit 02de348581d6 · 2023-11-11T07:48:17.000+10:00
diff --git a/src/query.c b/src/query.c
@@ -834,7 +834,7 @@ static void reuse_frame(query *q, const clause *cl)
 {
 	frame *f = GET_CURR_FRAME();
 	const frame *newf = GET_FRAME(q->st.fp);
-	f->initial_slots = f->actual_slots = cl->nbr_vars;
+	f->initial_slots = f->actual_slots = cl->nbr_vars - cl->nbr_temporaries;
 	f->chgen = ++q->chgen;
 	f->overflow = 0;
 

Original file line number	Diff line number	Diff line change
`@@ -834,7 +834,7 @@ static void reuse_frame(query q, const clause cl)`
`834`	`834`	`{`
`835`	`835`	`frame *f = GET_CURR_FRAME();`
`836`	`836`	`const frame *newf = GET_FRAME(q->st.fp);`
`837`		`- f->initial_slots = f->actual_slots = cl->nbr_vars;`
	`837`	`+ f->initial_slots = f->actual_slots = cl->nbr_vars - cl->nbr_temporaries;`
`838`	`838`	`f->chgen = ++q->chgen;`
`839`	`839`	`f->overflow = 0;`
`840`	`840`