Mercurial > hg > xemacs-beta
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)) |