(read1): Handle long EMACS_INT in atol.

faca07fb · Richard M. Stallman · 5d5b907f · faca07fb
Commit faca07fb authored May 05, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

src/lread.c src/lread.c +6 -1

No files found.
--- 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;
 		  }
 	      }