* lread.c (lisp_file_lexically_bound_p, read1): Use unsigned instead of int.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6ee8ec1..ee95524 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,6 +1,7 @@
 2011-04-04  Paul Eggert  <eggert@cs.ucla.edu>
 
        * lread.c (lisp_file_lexically_bound_p): Use ints rather than endptrs.
+       (lisp_file_lexically_bound_p, read1): Use unsigned instead of int.
 
        * print.c (print_error_message): Avoid int overflow.
 

diff --git a/src/lread.c b/src/lread.c
index e7bcd2b..fb5b6cd 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -819,7 +819,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
       while (in_file_vars)
        {
          char var[100], val[100];
-         int i;
+         unsigned i;
 
          ch = READCHAR;
 
@@ -2319,7 +2319,7 @@ static Lisp_Object
 read1 (register Lisp_Object readcharfun, int *pch, int first_in_list)
 {
   register int c;
-  int uninterned_symbol = 0;
+  unsigned uninterned_symbol = 0;
   int multibyte;
 
   *pch = 0;