shithub: sl

Info  •  Files  •  Log  •  Branches

apply_cl: try forcing sp into a register

--- a/src/flisp.c

+++ b/src/flisp.c

@@ -839,7 +839,8 @@

 static value_t

 apply_cl(int nargs)

 {

-	value_t *top_frame = FL(curr_frame), *sp = FL(sp);

+	value_t *top_frame = FL(curr_frame);

+	register value_t *sp = FL(sp);

 	bool tail;

 	int n;