avoid fuzzy f errors

This commit is contained in:
Vítor Santos Costa 2014-10-16 23:56:12 +01:00
parent 168f0c6c0c
commit ba03f1da65

View File

@ -1428,12 +1428,12 @@ Yap_MathException__( USES_REGS1 )
feclearexcept(FE_ALL_EXCEPT);
if (raised & FE_OVERFLOW) {
return EVALUATION_ERROR_FLOAT_OVERFLOW;
} else if (raised & (FE_INVALID|FE_INEXACT)) {
return EVALUATION_ERROR_UNDEFINED;
} else if (raised & FE_DIVBYZERO) {
return EVALUATION_ERROR_ZERO_DIVISOR;
} else if (raised & FE_UNDERFLOW) {
return EVALUATION_ERROR_FLOAT_UNDERFLOW;
//} else if (raised & (FE_INVALID|FE_INEXACT)) {
// return EVALUATION_ERROR_UNDEFINED;
} else {
return EVALUATION_ERROR_UNDEFINED;
}