# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799642580 0
# Node ID eb4b842ee5576ad881e6af267baeb7839167fb7f
# Parent  36204fbb45d07f93984548aa0b4af86e87b0bdb9
(read1): Handle long EMACS_INT in atol.

diff -r 36204fbb45d0 -r eb4b842ee557 src/lread.c
--- a/src/lread.c	Fri May 05 02:55:21 1995 +0000
+++ b/src/lread.c	Fri May 05 02:56:20 1995 +0000
@@ -1442,7 +1442,12 @@
 		    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;
 		  }
 	      }