APPROVE COMMIT 21.5
Ben Wing found this problem. GCC allows this use, which is why I didn't
find it. There may be a few more of these lurking. Let me know if you
find one.
src/ChangeLog addition:
2005-02-18 Jerry James <james(a)xemacs.org>
* number.c: Define USED_IF_BIGFLOAT.
* number.c (Fcoerce_number): Use it.
xemacs-21.5 source patch:
Diff command: cvs -q diff -uN
Files affected: src/number.c
Index: src/number.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/number.c,v
retrieving revision 1.14
diff -d -u -r1.14 number.c
--- src/number.c 2005/02/03 16:14:07 1.14
+++ src/number.c 2005/02/18 21:33:42
@@ -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))
--
Jerry James
http://www.ittc.ku.edu/~james/