From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 5 May 1995 02:56:20 +0000 (+0000)
Subject: (read1): Handle long EMACS_INT in atol.
X-Git-Tag: emacs-19.34~4159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=faca07fb62cb8a202972700054d2939401cfa778;p=emacs.git

(read1): Handle long EMACS_INT in atol.
---

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;
 		  }
 	      }