]> git.eshelyaron.com Git - emacs.git/commitdiff
(read1): Handle long EMACS_INT in atol.
authorRichard M. Stallman <rms@gnu.org>
Fri, 5 May 1995 02:56:20 +0000 (02:56 +0000)
committerRichard M. Stallman <rms@gnu.org>
Fri, 5 May 1995 02:56:20 +0000 (02:56 +0000)
src/lread.c

index 81670ebe048514f59f6f72ac40e6f12c140f1dcb..5f1643e86d61c35687bc82878bb6842e7c607995 100644 (file)
@@ -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;
                  }
              }