From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 20 Jun 2011 06:11:36 +0000 (-0700)
Subject: * lread.c (intern, intern_c_string): Don't assume strlen fits in int.
X-Git-Tag: emacs-pretest-24.0.90~104^2~473^2~20
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e5bb2dc82e57e8666eae89848050a78554709fa;p=emacs.git

* lread.c (intern, intern_c_string): Don't assume strlen fits in int.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index b1035da6c7b..8bff8e53fbd 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,6 @@
 2011-06-20  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* lread.c (intern, intern_c_string):
 	* image.c (xpm_scan) [HAVE_NS && !HAVE_XPM]:
 	Don't assume string length fits in int.
 
diff --git a/src/lread.c b/src/lread.c
index 5f8d6b84c3c..e75d61ae985 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3650,7 +3650,7 @@ Lisp_Object
 intern (const char *str)
 {
   Lisp_Object tem;
-  int len = strlen (str);
+  ptrdiff_t len = strlen (str);
   Lisp_Object obarray;
 
   obarray = Vobarray;
@@ -3666,7 +3666,7 @@ Lisp_Object
 intern_c_string (const char *str)
 {
   Lisp_Object tem;
-  int len = strlen (str);
+  ptrdiff_t len = strlen (str);
   Lisp_Object obarray;
 
   obarray = Vobarray;