version 1.1, 2011/01/17 23:53:03 |
version 1.1.14.1, 2014/08/20 00:02:14 |
Line 50 __fpclassifyl(long double x) |
|
Line 50 __fpclassifyl(long double x) |
|
u.extu_ld = x; |
u.extu_ld = x; |
|
|
if (u.extu_ext.ext_exp == 0) { |
if (u.extu_ext.ext_exp == 0) { |
if (u.extu_ext.ext_frach == 0 && u.extu_ext.ext_frachm == 0 |
if (u.extu_ext.ext_frach == 0 |
&& u.extu_ext.ext_fraclm == 0 && u.extu_ext.ext_fracl == 0) |
#if EXT_FRACHMBITS |
|
&& u.extu_ext.ext_frachm == 0 |
|
#endif |
|
#if EXT_FRACLMBITS |
|
&& u.extu_ext.ext_fraclm == 0 |
|
#endif |
|
&& u.extu_ext.ext_fracl == 0) |
return FP_ZERO; |
return FP_ZERO; |
else |
else |
return FP_SUBNORMAL; |
return FP_SUBNORMAL; |
} else if (u.extu_ext.ext_exp == EXT_EXP_INFNAN) { |
} else if (u.extu_ext.ext_exp == EXT_EXP_INFNAN) { |
if (u.extu_ext.ext_frach == 0 && u.extu_ext.ext_frachm == 0 |
if (u.extu_ext.ext_frach == 0 |
&& u.extu_ext.ext_fraclm == 0 && u.extu_ext.ext_fracl == 0) |
#if EXT_FRACHMBITS |
|
&& u.extu_ext.ext_frachm == 0 |
|
#endif |
|
#if EXT_FRACLMBITS |
|
&& u.extu_ext.ext_fraclm == 0 |
|
#endif |
|
&& u.extu_ext.ext_fracl == 0) |
return FP_INFINITE; |
return FP_INFINITE; |
else |
else |
return FP_NAN; |
return FP_NAN; |