[Emacs-diffs] trunk r114132: * alloc.c (make_event_array): First arg is now ptrdiff_t, not int.

[Paul Eggert]

------------------------------------------------------------
revno: 114132
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Wed 2013-09-04 15:34:04 -0700
message:
  * alloc.c (make_event_array): First arg is now ptrdiff_t, not int.
  
  This fixes a type error on hosts where ptrdiff_t is wider than int.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/alloc.c                    alloc.c-20091113204419-o5vbwnq5f7feedwu-252
  src/lisp.h                     lisp.h-20091113204419-o5vbwnq5f7feedwu-253

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-09-04 20:32:22 +0000
+++ b/src/ChangeLog     2013-09-04 22:34:04 +0000
@@ -1,3 +1,8 @@
+2013-09-04  Paul Eggert  <address@hidden>
+
+       * alloc.c (make_event_array): First arg is now ptrdiff_t, not int.
+       This fixes a type error on hosts where ptrdiff_t is wider than int.
+
 2013-09-04  Stefan Monnier  <address@hidden>
 
        * keyboard.c (read_key_sequence_vs): New function.

=== modified file 'src/alloc.c'
--- a/src/alloc.c       2013-08-29 11:22:28 +0000
+++ b/src/alloc.c       2013-09-04 22:34:04 +0000
@@ -3527,9 +3527,9 @@
    Any number of arguments, even zero arguments, are allowed.  */
 
 Lisp_Object
-make_event_array (register int nargs, Lisp_Object *args)
+make_event_array (ptrdiff_t nargs, Lisp_Object *args)
 {
-  int i;
+  ptrdiff_t i;
 
   for (i = 0; i < nargs; i++)
     /* The things that fit in a string

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2013-09-03 19:49:54 +0000
+++ b/src/lisp.h        2013-09-04 22:34:04 +0000
@@ -3463,7 +3463,7 @@
 }
 
 extern Lisp_Object make_multibyte_string (const char *, ptrdiff_t, ptrdiff_t);
-extern Lisp_Object make_event_array (int, Lisp_Object *);
+extern Lisp_Object make_event_array (ptrdiff_t, Lisp_Object *);
 extern Lisp_Object make_uninit_string (EMACS_INT);
 extern Lisp_Object make_uninit_multibyte_string (EMACS_INT, EMACS_INT);
 extern Lisp_Object make_string_from_bytes (const char *, ptrdiff_t, ptrdiff_t);