Cast SPECPDL_INDEX to int, and do further EMACS_INT/int cleanups.

diff --git a/src/ChangeLog b/src/ChangeLog
index 233a521f0271fd631dcc42539b5fb2628d931eb6..98fe7d466b394e8674070bef271b5ed597ce9fb9 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
 2010-09-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * lisp.h (SPECPDL_INDEX): Cast to int, since we're not going to
+       unwind_protect more than 2GB worth of functions.
+
+       * editfns.c (Finsert_char): EMACS_INT/int cleanup.
+
        * lisp.h: Have oblookup take EMACS_INT to allow interning big
        string and avoid compiler warnings.
        (USE_SAFE_ALLOCA): Cast to int to avoid compilation warnings in

diff --git a/src/editfns.c b/src/editfns.c
index f7240e99190a5550b7ab7b0b8405f0cdd353bbd2..f76beb5e678f860e3ff8b8b704358cb84204332e 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2270,7 +2270,7 @@ from adjoining text, if those properties are sticky.  */)
   (Lisp_Object character, Lisp_Object count, Lisp_Object inherit)
 {
   register unsigned char *string;
-  register int strlen;
+  register EMACS_INT strlen;
   register int i;
   register EMACS_INT n;
   int len;
@@ -2955,7 +2955,7 @@ It returns the number of characters changed.  */)
   register unsigned char *tt;  /* Trans table. */
   register int nc;             /* New character. */
   int cnt;                     /* Number of changes made. */
-  int size;                    /* Size of translate table. */
+  EMACS_INT size;              /* Size of translate table. */
   EMACS_INT pos, pos_byte, end_pos;
   int multibyte = !NILP (current_buffer->enable_multibyte_characters);
   int string_multibyte;
@@ -3026,7 +3026,7 @@ It returns the number of characters changed.  */)
            }
          else
            {
-             int c;
+             EMACS_INT c;
 
              nc = oc;
              val = CHAR_TABLE_REF (table, oc);
@@ -3239,7 +3239,7 @@ save_restriction_restore (Lisp_Object data)
        /* The restriction has changed from the saved one, so restore
           the saved restriction.  */
        {
-         int pt = BUF_PT (buf);
+         EMACS_INT pt = BUF_PT (buf);
 
          SET_BUF_BEGV_BOTH (buf, beg->charpos, beg->bytepos);
          SET_BUF_ZV_BOTH (buf, end->charpos, end->bytepos);

diff --git a/src/lisp.h b/src/lisp.h
index bbc97241ef127f14b85a6b3f248ab2e48abc92a8..4baa72f44356c7ee0db0bafb768a51e6cdc9bd47 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1881,7 +1881,7 @@ extern int specpdl_size;
 
 extern EMACS_INT max_specpdl_size;
 
-#define SPECPDL_INDEX()        (specpdl_ptr - specpdl)
+#define SPECPDL_INDEX()        ((int) (specpdl_ptr - specpdl))
 
 /* Everything needed to describe an active condition case.  */
 struct handler