changeset 2595:ae5285944c74

[xemacs-hg @ 2005-02-18 21:56:10 by james] Fix for #ifdef inside of a macro use, as reported by Ben Wing. See xemacs-patches message with ID <pssm3tjzzh.fsf@diannao.ittc.ku.edu>.
author james
date Fri, 18 Feb 2005 21:56:11 +0000
parents bafa01f3cb06
children ad434b45ea15
files src/ChangeLog src/number.c
diffstat 2 files changed, 12 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Fri Feb 18 06:31:22 2005 +0000
+++ b/src/ChangeLog	Fri Feb 18 21:56:11 2005 +0000
@@ -1,3 +1,8 @@
+2005-02-18  Jerry James  <james@xemacs.org>
+
+	* number.c: Define USED_IF_BIGFLOAT.
+	* number.c (Fcoerce_number): Use it.
+
 2005-02-18  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* XEmacs 21.5.19 "chives" is released.
--- a/src/number.c	Fri Feb 18 06:31:22 2005 +0000
+++ b/src/number.c	Fri Feb 18 21:56:11 2005 +0000
@@ -24,6 +24,12 @@
 #include <limits.h>
 #include "lisp.h"
 
+#ifdef HAVE_BIGFLOAT
+#define USED_IF_BIGFLOAT(decl) decl
+#else
+#define USED_IF_BIGFLOAT(decl) UNUSED (decl)
+#endif
+
 Lisp_Object Qrationalp, Qfloatingp, Qrealp;
 Lisp_Object Vdefault_float_precision;
 Fixnum Vmost_negative_fixnum, Vmost_positive_fixnum;
@@ -678,13 +684,7 @@
 Note that some conversions lose information.  No error is signaled in such
 cases; the information is silently lost.
 */
-       (number, type,
-#ifdef HAVE_BIGFLOAT
-	precision
-#else
-	UNUSED (precision)
-#endif
-	))
+       (number, type, USED_IF_BIGFLOAT (precision)))
 {
   CHECK_SYMBOL (type);
   if (EQ (type, Qfixnum))