procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix recent changes in record data type

Browse source 
* src/alloc.c (Fmake_record, Frecord, Fcopy_record): Avoid
compiler warnings when 'ptrdiff_t' is narrower than 'long int'.
This commit is contained in:
Eli Zaretskii 2017-04-04 17:56:10 +03:00
parent 604eb02fff
commit 12317ff4fb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/alloc.c
View file

@ -3424,7 +3424,7 @@ type slot, must fit in PSEUDOVECTOR_SIZE_BITS. */)
size = XFASTINT (slots) + 1;
p = allocate_record (size);
if (p == NULL)
error ("Attempt to allocate a record of %ld slots; max is %d",
error ("Attempt to allocate a record of %"pD"d slots; max is %d",
size, (1 << PSEUDOVECTOR_SIZE_BITS) - 1);
p->contents[0] = type;
@ -3447,7 +3447,7 @@ usage: (record TYPE &rest SLOTS) */)
{
struct Lisp_Vector *p = allocate_record (nargs);
if (p == NULL)
error ("Attempt to allocate a record of %ld slots; max is %d",
error ("Attempt to allocate a record of %"pD"d slots; max is %d",
nargs, (1 << PSEUDOVECTOR_SIZE_BITS) - 1);
Lisp_Object type = args[0];
@ -3470,7 +3470,7 @@ DEFUN ("copy-record", Fcopy_record, Scopy_record, 1, 1, 0,
ptrdiff_t size = ASIZE (record) & PSEUDOVECTOR_SIZE_MASK;
struct Lisp_Vector *new = allocate_record (size);
if (new == NULL)
error ("Attempt to allocate a record of %ld slots; max is %d",
error ("Attempt to allocate a record of %"pD"d slots; max is %d",
size, (1 << PSEUDOVECTOR_SIZE_BITS) - 1);
memcpy (&(new->contents[0]), &(src->contents[0]),