[AC21.5] UNUSED fix for number.c

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&gt; * 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/