(read1): Handle long EMACS_INT in atol.

diff --git a/src/lread.c b/src/lread.c
index 81670ebe048514f59f6f72ac40e6f12c140f1dcb..5f1643e86d61c35687bc82878bb6842e7c607995 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1442,7 +1442,12 @@ read1 (readcharfun, pch, first_in_list)
                    if (p1[-1] == '.')
                      p1[-1] = '\0';
 #endif
-                   XSETINT (val, atoi (read_buffer));
+                   if (sizeof (int) == sizeof (EMACS_INT))
+                     XSETINT (val, atoi (read_buffer));
+                   else if (sizeof (long) == sizeof (EMACS_INT))
+                     XSETINT (val, atol (read_buffer));
+                   else
+                     abort ();
                    return val;
                  }
              }