1 |
|
/* |
2 |
|
* fpu/mathlib.h - Floating-point math support library |
3 |
|
* |
4 |
< |
* Basilisk II (C) 1997-2001 Christian Bauer |
4 |
> |
* Basilisk II (C) 1997-2004 Christian Bauer |
5 |
|
* |
6 |
|
* MC68881/68040 fpu emulation |
7 |
|
* |
923 |
|
|
924 |
|
PRIVATE inline fpu_extended fp_do_sgn1(fpu_extended x) |
925 |
|
{ |
926 |
+ |
#if USE_LONG_DOUBLE || USE_QUAD_DOUBLE |
927 |
|
fp_declare_init_shape(sxp, x, extended); |
928 |
|
sxp->ieee_nan.exponent = FP_EXTENDED_EXP_MAX; |
929 |
|
sxp->ieee_nan.one = 1; |
930 |
+ |
#else |
931 |
+ |
fp_declare_init_shape(sxp, x, double); |
932 |
+ |
sxp->ieee_nan.exponent = FP_DOUBLE_EXP_MAX; |
933 |
+ |
#endif |
934 |
|
sxp->ieee_nan.quiet_nan = 0; |
935 |
|
sxp->ieee_nan.mantissa0 = 0; |
936 |
|
sxp->ieee_nan.mantissa1 = 0; |