comparison src/number.c @ 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 9f70af3ac939
children facf3239ba30
comparison
equal deleted inserted replaced
2594:bafa01f3cb06 2595:ae5285944c74
21 /* Synched up with: Not in FSF. */ 21 /* Synched up with: Not in FSF. */
22 22
23 #include <config.h> 23 #include <config.h>
24 #include <limits.h> 24 #include <limits.h>
25 #include "lisp.h" 25 #include "lisp.h"
26
27 #ifdef HAVE_BIGFLOAT
28 #define USED_IF_BIGFLOAT(decl) decl
29 #else
30 #define USED_IF_BIGFLOAT(decl) UNUSED (decl)
31 #endif
26 32
27 Lisp_Object Qrationalp, Qfloatingp, Qrealp; 33 Lisp_Object Qrationalp, Qfloatingp, Qrealp;
28 Lisp_Object Vdefault_float_precision; 34 Lisp_Object Vdefault_float_precision;
29 Fixnum Vmost_negative_fixnum, Vmost_positive_fixnum; 35 Fixnum Vmost_negative_fixnum, Vmost_positive_fixnum;
30 static Lisp_Object Qunsupported_type; 36 static Lisp_Object Qunsupported_type;
676 bigfloat; it is ignored otherwise. If nil, the default precision is used. 682 bigfloat; it is ignored otherwise. If nil, the default precision is used.
677 683
678 Note that some conversions lose information. No error is signaled in such 684 Note that some conversions lose information. No error is signaled in such
679 cases; the information is silently lost. 685 cases; the information is silently lost.
680 */ 686 */
681 (number, type, 687 (number, type, USED_IF_BIGFLOAT (precision)))
682 #ifdef HAVE_BIGFLOAT
683 precision
684 #else
685 UNUSED (precision)
686 #endif
687 ))
688 { 688 {
689 CHECK_SYMBOL (type); 689 CHECK_SYMBOL (type);
690 if (EQ (type, Qfixnum)) 690 if (EQ (type, Qfixnum))
691 return internal_coerce_number (number, FIXNUM_T, 0UL); 691 return internal_coerce_number (number, FIXNUM_T, 0UL);
692 else if (EQ (type, Qinteger)) 692 else if (EQ (type, Qinteger))