shithub: sl

Info  •  Files  •  Log  •  Branches

fix a warning

--- a/src/flisp.c

+++ b/src/flisp.c

@@ -806,7 +806,7 @@

 		memmove(bp+ntot, bp+i, nrestargs*sizeof(value_t));

 	memmove(bp+nreq, args, extr*sizeof(value_t));

 	FL(sp) = bp + nargs;

-	assert(FL(sp)-FL(stack) < FL(nstack)-4);

+	assert((intptr_t)(FL(sp)-FL(stack)) < (intptr_t)FL(nstack)-4);

 	PUSH(s4);

 	PUSH(s3);

 	PUSH(nargs);