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

2 files changed, 3 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 6ee8ec17888..ee955245452 100644
--- 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 e7bcd2b260b..fb5b6cd0136 100644
--- 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;