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

2 files changed, 3 insertions, 2 deletions

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;