Mercurial > hg > xemacs-beta

comparison src/lread.c @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children 9ea74add5d37
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
1896 if (num < onum) 1896 if (num < onum)
1897 goto overflow; 1897 goto overflow;
1898 } 1898 }
1899 1899
1900 { 1900 {
1901 EMACS_INT int_result = negativland ? -num : num; 1901 EMACS_INT int_result = negativland ? - (EMACS_INT) num : (EMACS_INT) num;
1902 Lisp_Object result = make_int (int_result); 1902 Lisp_Object result = make_int (int_result);
1903 if (num && ((XINT (result) < 0) != negativland)) 1903 if (num && ((XINT (result) < 0) != negativland))
1904 goto overflow; 1904 goto overflow;
1905 if (XINT (result) != int_result) 1905 if (XINT (result) != int_result)
1906 goto overflow; 1906 goto overflow;