Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

* eval.c (Fbacktrace): Don't assume nargs fits in int.

Browse source
This commit is contained in:
Paul Eggert 2011-03-27 01:29:39 -07:00
parent eb4d412de8
commit a3eed4788d
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ChangeLog
View file

@ -1,5 +1,7 @@
2011-03-27 Paul Eggert <eggert@cs.ucla.edu>
* eval.c (Fbacktrace): Don't assume nargs fits in int.
* syntax.c (scan_sexps_forward): Avoid pointer wraparound.
* xterm.c (x_make_frame_visible, same_x_server): Redo to avoid overflow

5
src/eval.c
View file

@ -3298,7 +3298,6 @@ Output stream used is value of `standard-output'. */)
(void)
{
register struct backtrace *backlist = backtrace_list;
register int i;
Lisp_Object tail;
Lisp_Object tem;
struct gcpro gcpro1;
@ -3325,9 +3324,10 @@ Output stream used is value of `standard-output'. */)
write_string ("(", -1);
if (backlist->nargs == (size_t) MANY)
{
int i;
for (tail = *backlist->args, i = 0;
!NILP (tail);
tail = Fcdr (tail), i++)
tail = Fcdr (tail), i = 1)
{
if (i) write_string (" ", -1);
Fprin1 (Fcar (tail), Qnil);
@ -3335,6 +3335,7 @@ Output stream used is value of `standard-output'. */)
}
else
{
size_t i;
for (i = 0; i < backlist->nargs; i++)
{
if (i) write_string (" ", -1);