mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-14 00:40:47 -07:00
Code Issues Projects Releases Packages Wiki Activity

ECL_STACK_FRAME_VARARGS_BEGIN: fix off-by-one error

Browse source 
We allocate arguments on a heap when number of them exceeds
ECL_C_ARGUMENTS_LIMIT. Was:

  if (narg <  ECL_C_ARGUMENTS_LIMIT) ... else ..

should be

  if (narg <= ECL_C_ARGUMENTS_LIMIT) ... else ..

It is a partial fix for #513 (solves a segfault).
This commit is contained in:
Daniel Kochmański 2019-07-02 10:52:56 +02:00
parent faca0641f9
commit 5986aee429
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/h/internal.h
View file

@ -182,7 +182,7 @@ extern cl_object si_constant_form_value _ECL_ARGS((cl_narg narg, cl_object form,
frame->frame.t = t_frame; \
frame->frame.env = env; \
frame->frame.size = narg; \
if (narg < ECL_C_ARGUMENTS_LIMIT) { \
if (narg <= ECL_C_ARGUMENTS_LIMIT) { \
cl_object *p = frame->frame.base = env->values; \
va_list args; \
va_start(args, lastarg); \