Mercurial > emacs

changeset 11699:eb4b842ee557

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read1): Handle long EMACS_INT in atol.
author Richard M. Stallman <rms@gnu.org>
date Fri, 05 May 1995 02:56:20 +0000
parents 36204fbb45d0
children 79358a3240fe
files src/lread.c
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;
 		  }
 	      }