- else if (tarval_is_finite(tv) && tarval_ieee754_zero_mantissa(tv)) {
- int exp = tarval_ieee754_get_exponent(tv);
-
- if (exp == 1)
- return STAT_FC_2;
- else if (exp == -1)
- return STAT_FC_0_5;
+ else if (tarval_is_finite(tv) && tarval_zero_mantissa(tv)) {
+ int exp = tarval_get_exponent(tv);
+
+ if (! tarval_is_negative(tv)) {
+ if (exp == 1)
+ return STAT_FC_2;
+ else if (exp == -1)
+ return STAT_FC_0_5;
+ }