diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2017-04-04 17:56:10 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-04-04 17:56:10 +0300 |
| commit | 12317ff4fb53f889a69a858a629df6beffacd051 (patch) | |
| tree | 1877d1d2a98f773873cc7058c2570edfba09ac02 /src/alloc.c | |
| parent | 604eb02fff061e663e7523f45a72ecb71c2061e1 (diff) | |
| download | emacs-12317ff4fb53f889a69a858a629df6beffacd051.tar.gz | |
Fix recent changes in record data type
* src/alloc.c (Fmake_record, Frecord, Fcopy_record): Avoid
compiler warnings when 'ptrdiff_t' is narrower than 'long int'.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c index fe631f2e4d8..5024b1211e5 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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]), |