From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 11 Oct 2001 15:37:13 +0000 (+0000)
Subject: (make_fixnum_or_float): New macro.
X-Git-Tag: ttn-vms-21-2-B4~19578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53ede3f4d857d792ca8e178f5b9170b843df1c1b;p=emacs.git

(make_fixnum_or_float): New macro.
---

diff --git a/src/lisp.h b/src/lisp.h
index 818b6e1163f..e51f2f64e56 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -3086,3 +3086,9 @@ extern Lisp_Object Vdirectory_sep_char;
 #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))