mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 04:10:18 -08:00
Code Issues Projects Releases Wiki Activity

* coding.c (make_subsidiaries): Don't assume string length fits in int.

Browse source
This commit is contained in:
Paul Eggert 2011-06-19 11:44:09 -07:00
parent 35016e9a4e
commit 1bfdaf108f
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/coding.c
View file

@ -9442,7 +9442,7 @@ static Lisp_Object
make_subsidiaries (Lisp_Object base)
{
Lisp_Object subsidiaries;
int base_name_len = SBYTES (SYMBOL_NAME (base));
ptrdiff_t base_name_len = SBYTES (SYMBOL_NAME (base));
char *buf = (char *) alloca (base_name_len + 6);
int i;
@ -9450,7 +9450,7 @@ make_subsidiaries (Lisp_Object base)
subsidiaries = Fmake_vector (make_number (3), Qnil);
for (i = 0; i < 3; i++)
{
memcpy (buf + base_name_len, suffixes[i], strlen (suffixes[i]) + 1);
strcpy (buf + base_name_len, suffixes[i]);
ASET (subsidiaries, i, intern (buf));
}
return subsidiaries;