Raymond Toy pushed to branch issue-435-add-core-math-compile-code at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/irrat.c
    ... ... @@ -163,8 +163,6 @@ double
    163 163
     lisp_cosh(double x)
    
    164 164
     {
    
    165 165
     #ifdef FEATURE_CORE_MATH
    
    166
    -    MAYBE_SIGNAL_OVERFLOW(fabs(x))
    
    167
    -
    
    168 166
         return cr_cosh(x);
    
    169 167
     #else    
    
    170 168
         return __ieee754_cosh(x);
    
    ... ... @@ -308,10 +306,6 @@ double
    308 306
     lisp_expm1(double x)
    
    309 307
     {
    
    310 308
     #ifdef FEATURE_CORE_MATH
    
    311
    -    if (isinf(x) == 1) {
    
    312
    -	return fdlibm_setexception(x, FDLIBM_OVERFLOW);
    
    313
    -    }
    
    314
    -
    
    315 309
         return cr_expm1(x);
    
    316 310
     #else    
    
    317 311
         return fdlibm_expm1(x);