From faca07fb62cb8a202972700054d2939401cfa778 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 5 May 1995 02:56:20 +0000 Subject: [PATCH] (read1): Handle long EMACS_INT in atol. --- src/lread.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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; } } -- 2.39.5