(read1): Handle long EMACS_INT in atol.

1 files changed, 6 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 81670ebe048..5f1643e86d6 100644
--- 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;
                   }
               }