Mercurial > emacs
diff src/lisp.h @ 39773:51f74f0f7fce
(make_fixnum_or_float): New macro.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 11 Oct 2001 15:37:13 +0000 |
parents | 2a0aa5b942d7 |
children | 15e432be013a |
line wrap: on
line diff
--- a/src/lisp.h Thu Oct 11 12:58:56 2001 +0000 +++ b/src/lisp.h Thu Oct 11 15:37:13 2001 +0000 @@ -3086,3 +3086,9 @@ #endif #define min(a, b) ((a) < (b) ? (a) : (b)) #define max(a, b) ((a) > (b) ? (a) : (b)) + +/* Return a fixnum or float, depending on whether VAL fits in a Lisp + fixnum. */ + +#define make_fixnum_or_float(val) \ + (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number (val))