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

diff --git a/src/ChangeLog b/src/ChangeLog
index b1035da6c7b89f49d33cd9e73153993565eaeac4..8bff8e53fbddd5a05e42913dee600a5a0e0779d2 100644 (file)
--- 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 5f8d6b84c3cb6a36af445ca577247025ed5dd78a..e75d61ae98585612d171e0434165888403a84acf 100644 (file)
--- 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;