mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Prefer ptrdiff_t to int and avoid integer overflows.

Browse Source 
* fileio.c (make_temp_name):
* font.c (font_parse_family_registry): Avoid integer
overflow on string size calculation.
* data.c (Faset): Likewise for byte index.
This commit is contained in:
Dmitry Antipov 2014-09-13 08:41:54 +04:00
parent 82bb5d8c5b
commit 5599832145
4 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ChangeLog
View File

@ -1,3 +1,11 @@
2014-09-13 Dmitry Antipov <dmantipov@yandex.ru>
Prefer ptrdiff_t to int and avoid integer overflows.
* fileio.c (make_temp_name):
* font.c (font_parse_family_registry): Avoid integer
overflow on string size calculation.
* data.c (Faset): Likewise for byte index.
2014-09-12 Detlev Zundel <dzu@member.fsf.org>
* buffer.c (syms_of_buffer): DEFSYM Qchoice (Bug#18337).
@ -15,7 +23,7 @@
* lread.c (readevalloop_eager_expand_eval): Add GCPRO and fix
bootstrap broken if GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE.
Remove redundant GCPROs around Ffuncall and Fapply calls. This
Remove redundant GCPROs around Ffuncall and Fapply calls. This
is safe because Ffuncall protects all of its arguments by itself.
* charset.c (map_charset_for_dump): Remove redundant GCPRO.
* eval.c (Fapply, apply1, call0, call1, call2, call3, call4, call5)

2
src/data.c
View File

@ -2310,7 +2310,7 @@ bool-vector. IDX starts at 0. */)
{
if (! SINGLE_BYTE_CHAR_P (c))
{
int i;
ptrdiff_t i;
for (i = SBYTES (array) - 1; i >= 0; i--)
if (SREF (array, i) >= 0x80)

2
src/fileio.c
View File

@ -728,7 +728,7 @@ Lisp_Object
make_temp_name (Lisp_Object prefix, bool base64_p)
{
Lisp_Object val, encoded_prefix;
int len;
ptrdiff_t len;
printmax_t pid;
char *p, *data;
char pidbuf[INT_BUFSIZE_BOUND (printmax_t)];

2
src/font.c
View File

@ -1761,7 +1761,7 @@ font_parse_name (char *name, ptrdiff_t namelen, Lisp_Object font)
void
font_parse_family_registry (Lisp_Object family, Lisp_Object registry, Lisp_Object font_spec)
{
int len;
ptrdiff_t len;
char *p0, *p1;
if (! NILP (family)