From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 4 Apr 2011 07:48:08 +0000 (-0700)
Subject: * lread.c (lisp_file_lexically_bound_p, read1): Use unsigned instead of int.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~394^2~35
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c346cc30f4f27520a05f001b7e9a8ad074ddd6f;p=emacs.git

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

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;