Commit faca07fb authored by Richard M. Stallman's avatar Richard M. Stallman

(read1): Handle long EMACS_INT in atol.

parent 5d5b907f
......@@ -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;
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment