From 3c346cc30f4f27520a05f001b7e9a8ad074ddd6f Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 4 Apr 2011 00:48:08 -0700 Subject: [PATCH] * lread.c (lisp_file_lexically_bound_p, read1): Use unsigned instead of int. --- src/ChangeLog | 1 + src/lread.c | 4 ++-- 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 * 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; -- 2.39.5