[Emacs-diffs] /srv/bzr/emacs/trunk r101572: Clean up EMACS_INT/int usage in doc.c and doprnt.c.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 101572
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Thu 2010-09-23 21:53:46 +0200
message:
  Clean up EMACS_INT/int usage in doc.c and doprnt.c.
modified:
  src/ChangeLog
  src/doc.c
  src/doprnt.c
  src/lisp.h

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-09-23 19:18:30 +0000
+++ b/src/ChangeLog     2010-09-23 19:53:46 +0000
@@ -8,6 +8,13 @@
 
 2010-09-23  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * lisp.h: doprnt.c EMACS_INT/int cleanup.
+
+       * doprnt.c (doprnt): EMACS_INT/int cleanup.
+
+       * doc.c (Fsnarf_documentation, get_doc_string): EMACS_INT/int
+       cleanup.
+
        * lisp.h: Change the definition of all marker.c functions that
        take and return buffer stuff to be EMACS_INT instead of int.
 

=== modified file 'src/doc.c'
--- a/src/doc.c 2010-09-21 19:33:59 +0000
+++ b/src/doc.c 2010-09-23 19:53:46 +0000
@@ -99,8 +99,8 @@
   register int fd;
   register char *name;
   register char *p, *p1;
-  int minsize;
-  int offset, position;
+  EMACS_INT minsize;
+  EMACS_INT offset, position;
   Lisp_Object file, tem;
 
   if (INTEGERP (filepos))
@@ -179,14 +179,14 @@
   p = get_doc_string_buffer;
   while (1)
     {
-      int space_left = (get_doc_string_buffer_size
-                       - (p - get_doc_string_buffer));
+      EMACS_INT space_left = (get_doc_string_buffer_size
+                             - (p - get_doc_string_buffer));
       int nread;
 
       /* Allocate or grow the buffer if we need to.  */
       if (space_left == 0)
        {
-         int in_buffer = p - get_doc_string_buffer;
+         EMACS_INT in_buffer = p - get_doc_string_buffer;
          get_doc_string_buffer_size += 16 * 1024;
          get_doc_string_buffer
            = (char *) xrealloc (get_doc_string_buffer,
@@ -286,8 +286,8 @@
   else
     {
       /* The data determines whether the string is multibyte.  */
-      int nchars = multibyte_chars_in_text (get_doc_string_buffer + offset,
-                                           to - (get_doc_string_buffer + 
offset));
+      EMACS_INT nchars = multibyte_chars_in_text (get_doc_string_buffer + 
offset,
+                                                 to - (get_doc_string_buffer + 
offset));
       return make_string_from_bytes (get_doc_string_buffer + offset,
                                     nchars,
                                     to - (get_doc_string_buffer + offset));
@@ -551,8 +551,8 @@
 {
   int fd;
   char buf[1024 + 1];
-  register int filled;
-  register int pos;
+  register EMACS_INT filled;
+  register EMACS_INT pos;
   register char *p, *end;
   Lisp_Object sym;
   char *name;
@@ -586,7 +586,7 @@
 
     for (beg = buildobj; *beg; beg = end)
       {
-        int len;
+        EMACS_INT len;
 
         while (*beg && isspace (*beg)) ++beg;
 
@@ -633,7 +633,7 @@
               if (end - p > 4 && end[-2] == '.'
                   && (end[-1] == 'o' || end[-1] == 'c'))
                 {
-                  int len = end - p - 2;
+                  EMACS_INT len = end - p - 2;
                   char *fromfile = alloca (len + 1);
                   strncpy (fromfile, &p[2], len);
                   fromfile[len] = 0;
@@ -705,16 +705,16 @@
   int changed = 0;
   register unsigned char *strp;
   register unsigned char *bufp;
-  int idx;
-  int bsize;
+  EMACS_INT idx;
+  EMACS_INT bsize;
   Lisp_Object tem;
   Lisp_Object keymap;
   unsigned char *start;
-  int length, length_byte;
+  EMACS_INT length, length_byte;
   Lisp_Object name;
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   int multibyte;
-  int nchars;
+  EMACS_INT nchars;
 
   if (NILP (string))
     return Qnil;
@@ -766,7 +766,7 @@
        }
       else if (strp[0] == '\\' && strp[1] == '[')
        {
-         int start_idx;
+         EMACS_INT start_idx;
          int follow_remap = 1;
 
          changed = 1;
@@ -805,7 +805,7 @@
 
          if (NILP (tem))       /* but not on any keys */
            {
-             int offset = bufp - buf;
+             EMACS_INT offset = bufp - buf;
              buf = (unsigned char *) xrealloc (buf, bsize += 4);
              bufp = buf + offset;
              memcpy (bufp, "M-x ", 4);
@@ -828,7 +828,7 @@
       else if (strp[0] == '\\' && (strp[1] == '{' || strp[1] == '<'))
        {
          struct buffer *oldbuf;
-         int start_idx;
+         EMACS_INT start_idx;
          /* This is for computing the SHADOWS arg for describe_map_tree.  */
          Lisp_Object active_maps = Fcurrent_active_maps (Qnil, Qnil);
          Lisp_Object earlier_maps;
@@ -899,7 +899,7 @@
          length_byte = SBYTES (tem);
        subst:
          {
-           int offset = bufp - buf;
+           EMACS_INT offset = bufp - buf;
            buf = (unsigned char *) xrealloc (buf, bsize += length_byte);
            bufp = buf + offset;
            memcpy (bufp, start, length_byte);

=== modified file 'src/doprnt.c'
--- a/src/doprnt.c      2010-09-21 11:03:34 +0000
+++ b/src/doprnt.c      2010-09-23 19:53:46 +0000
@@ -54,7 +54,7 @@
    String arguments are passed as C strings.
    Integers are passed as C integers.  */
 
-int
+EMACS_INT
 doprnt (char *buffer, register int bufsize, const char *format,
        const char *format_end, va_list ap)
 {
@@ -96,7 +96,7 @@
       if (*fmt == '%') /* Check for a '%' character */
        {
          unsigned size_bound = 0;
-         int width;            /* Columns occupied by STRING.  */
+         EMACS_INT width;  /* Columns occupied by STRING.  */
 
          fmt++;
          /* Copy this one %-spec into fmtcpy.  */

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2010-09-23 19:18:30 +0000
+++ b/src/lisp.h        2010-09-23 19:53:46 +0000
@@ -2816,7 +2816,7 @@
 extern void syms_of_print (void);
 
 /* Defined in doprnt.c */
-extern int doprnt (char *, int, const char *, const char *, va_list);
+extern EMACS_INT doprnt (char *, int, const char *, const char *, va_list);
 
 /* Defined in lread.c */
 extern Lisp_Object Vafter_load_alist;