emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r101603: Fix int/EMACS_INT use in lre


From: Eli Zaretskii
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r101603: Fix int/EMACS_INT use in lread.c, marker.c, minibuf.c, print.c
Date: Sat, 25 Sep 2010 07:55:30 -0400
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 101603
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-25 07:55:30 -0400
message:
  Fix int/EMACS_INT use in lread.c, marker.c, minibuf.c, print.c
  
   print.c (print_object, print_string, strout): Use EMACS_INT for
   string indices.
   minibuf.c (string_to_object): Use EMACS_INT for string position
   and size.
   marker.c (verify_bytepos): Use EMACS_INT for buffer positions.
   lread.c <read_from_string_index, read_from_string_index_byte>
   <read_from_string_limit, readchar_count>: Define EMACS_INT.
   (readchar, unreadchar, read_internal_start): Use EMACS_INT for
   buffer positions and string length.
modified:
  src/ChangeLog
  src/lread.c
  src/marker.c
  src/minibuf.c
  src/print.c
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-09-25 09:36:36 +0000
+++ b/src/ChangeLog     2010-09-25 11:55:30 +0000
@@ -1,5 +1,18 @@
 2010-09-25  Eli Zaretskii  <address@hidden>
 
+       * print.c (print_object, print_string, strout): Use EMACS_INT for
+       string indices.
+
+       * minibuf.c (string_to_object): Use EMACS_INT for string position
+       and size.
+
+       * marker.c (verify_bytepos): Use EMACS_INT for buffer positions.
+
+       * lread.c <read_from_string_index, read_from_string_index_byte>
+       <read_from_string_limit, readchar_count>: Define EMACS_INT.
+       (readchar, unreadchar, read_internal_start): Use EMACS_INT for
+       buffer positions and string length.
+
        * keyboard.c <last_point_position, last_non_minibuf_size>: Declare
        EMACS_INT.
        (echo_truncate, adjust_point_for_property, read_char)

=== modified file 'src/lread.c'
--- a/src/lread.c       2010-09-23 20:16:55 +0000
+++ b/src/lread.c       2010-09-25 11:55:30 +0000
@@ -163,13 +163,13 @@
 static int read_pure;
 
 /* For use within read-from-string (this reader is non-reentrant!!)  */
-static int read_from_string_index;
-static int read_from_string_index_byte;
-static int read_from_string_limit;
+static EMACS_INT read_from_string_index;
+static EMACS_INT read_from_string_index_byte;
+static EMACS_INT read_from_string_limit;
 
 /* Number of characters read in the current call to Fread or
    Fread_from_string. */
-static int readchar_count;
+static EMACS_INT readchar_count;
 
 /* This contains the last string skipped with address@hidden  */
 static char *saved_doc_string;
@@ -276,7 +276,7 @@
     {
       register struct buffer *inbuffer = XBUFFER (readcharfun);
 
-      int pt_byte = BUF_PT_BYTE (inbuffer);
+      EMACS_INT pt_byte = BUF_PT_BYTE (inbuffer);
 
       if (pt_byte >= BUF_ZV_BYTE (inbuffer))
        return -1;
@@ -305,7 +305,7 @@
     {
       register struct buffer *inbuffer = XMARKER (readcharfun)->buffer;
 
-      int bytepos = marker_byte_position (readcharfun);
+      EMACS_INT bytepos = marker_byte_position (readcharfun);
 
       if (bytepos >= BUF_ZV_BYTE (inbuffer))
        return -1;
@@ -439,7 +439,7 @@
   else if (BUFFERP (readcharfun))
     {
       struct buffer *b = XBUFFER (readcharfun);
-      int bytepos = BUF_PT_BYTE (b);
+      EMACS_INT bytepos = BUF_PT_BYTE (b);
 
       BUF_PT (b)--;
       if (! NILP (b->enable_multibyte_characters))
@@ -452,7 +452,7 @@
   else if (MARKERP (readcharfun))
     {
       struct buffer *b = XMARKER (readcharfun)->buffer;
-      int bytepos = XMARKER (readcharfun)->bytepos;
+      EMACS_INT bytepos = XMARKER (readcharfun)->bytepos;
 
       XMARKER (readcharfun)->charpos--;
       if (! NILP (b->enable_multibyte_characters))
@@ -1893,7 +1893,7 @@
   if (STRINGP (stream)
       || ((CONSP (stream) && STRINGP (XCAR (stream)))))
     {
-      int startval, endval;
+      EMACS_INT startval, endval;
       Lisp_Object string;
 
       if (STRINGP (stream))

=== modified file 'src/marker.c'
--- a/src/marker.c      2010-09-23 19:12:18 +0000
+++ b/src/marker.c      2010-09-25 11:55:30 +0000
@@ -247,11 +247,11 @@
 /* Used for debugging: recompute the bytepos corresponding to CHARPOS
    in the simplest, most reliable way.  */
 
-int
-verify_bytepos (int charpos)
+EMACS_INT
+verify_bytepos (EMACS_INT charpos)
 {
-  int below = 1;
-  int below_byte = 1;
+  EMACS_INT below = 1;
+  EMACS_INT below_byte = 1;
 
   while (below != charpos)
     {

=== modified file 'src/minibuf.c'
--- a/src/minibuf.c     2010-09-22 16:03:34 +0000
+++ b/src/minibuf.c     2010-09-25 11:55:30 +0000
@@ -236,7 +236,7 @@
 {
   struct gcpro gcpro1, gcpro2;
   Lisp_Object expr_and_pos;
-  int pos;
+  EMACS_INT pos;
 
   GCPRO2 (val, defalt);
 
@@ -254,7 +254,7 @@
     {
       /* Ignore trailing whitespace; any other trailing junk
         is an error.  */
-      int i;
+      EMACS_INT i;
       pos = string_char_to_byte (val, pos);
       for (i = pos; i < SBYTES (val); i++)
        {

=== modified file 'src/print.c'
--- a/src/print.c       2010-09-24 15:01:03 +0000
+++ b/src/print.c       2010-09-25 11:55:30 +0000
@@ -395,7 +395,7 @@
   else
     {
       /* PRINTCHARFUN is a Lisp function.  */
-      int i = 0;
+      EMACS_INT i = 0;
 
       if (size == size_byte)
        {
@@ -489,7 +489,7 @@
     {
       /* Otherwise, string may be relocated by printing one char.
         So re-fetch the string address for each character.  */
-      int i;
+      EMACS_INT i;
       EMACS_INT size = SCHARS (string);
       EMACS_INT size_byte = SBYTES (string);
       struct gcpro gcpro1;
@@ -1563,7 +1563,7 @@
        print_string (obj, printcharfun);
       else
        {
-         register int i, i_byte;
+         register EMACS_INT i, i_byte;
          struct gcpro gcpro1;
          unsigned char *str;
          EMACS_INT size_byte;


reply via email to

[Prev in Thread] Current Thread [Next in Thread]