CVS update by james MODIFIED: xemacs/src ...
User: james
Date: 05/02/18 22:56:14
Modified: xemacs/src ChangeLog number.c
Log:
Fix for #ifdef inside of a macro use, as reported by Ben Wing. See
xemacs-patches message with ID <pssm3tjzzh.fsf(a)diannao.ittc.ku.edu>.
Revision Changes Path
1.792 +5 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.791
retrieving revision 1.792
diff -u -r1.791 -r1.792
--- ChangeLog 2005/02/18 06:30:53 1.791
+++ ChangeLog 2005/02/18 21:56:10 1.792
＠＠ -1,3 +1,8 ＠＠
+2005-02-18 Jerry James <james(a)xemacs.org>
+
+ * number.c: Define USED_IF_BIGFLOAT.
+ * number.c (Fcoerce_number): Use it.
+
2005-02-18 Stephen J. Turnbull <stephen(a)xemacs.org>
* XEmacs 21.5.19 "chives" is released.
1.15 +7 -7 XEmacs/xemacs/src/number.c
Index: number.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/number.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- number.c 2005/02/03 16:14:07 1.14
+++ number.c 2005/02/18 21:56:11 1.15
＠＠ -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))