mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

* eval.c (funcall_lambda): Rename local to avoid shadowing.

Browse source
This commit is contained in:
Paul Eggert 2011-04-02 22:44:38 -07:00
parent b895abced9
commit e610eacace
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/ChangeLog
View file

@ -1,5 +1,7 @@
2011-04-03 Paul Eggert <eggert@cs.ucla.edu>
* eval.c (funcall_lambda): Rename local to avoid shadowing.
* alloc.c (mark_object_loop_halt, mark_object): Use size_t, not int.
Otherwise, GCC 4.6.0 optimizes the loop check away since the check
can always succeed if overflow has undefined behavior.

12
src/eval.c
View file

@ -3206,26 +3206,26 @@ funcall_lambda (Lisp_Object fun, size_t nargs,
optional = 1;
else
{
Lisp_Object val;
Lisp_Object arg;
if (rest)
{
val = Flist (nargs - i, &arg_vector[i]);
arg = Flist (nargs - i, &arg_vector[i]);
i = nargs;
}
else if (i < nargs)
val = arg_vector[i++];
arg = arg_vector[i++];
else if (!optional)
xsignal2 (Qwrong_number_of_arguments, fun, make_number (nargs));
else
val = Qnil;
arg = Qnil;
/* Bind the argument. */
if (!NILP (lexenv) && SYMBOLP (next))
/* Lexically bind NEXT by adding it to the lexenv alist. */
lexenv = Fcons (Fcons (next, val), lexenv);
lexenv = Fcons (Fcons (next, arg), lexenv);
else
/* Dynamically bind NEXT. */
specbind (next, val);
specbind (next, arg);
}
}