diff options
Diffstat (limited to 'sysdeps/libm-ieee754')
| -rw-r--r-- | sysdeps/libm-ieee754/k_standard.c | 164 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/s_ldexp.c | 4 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/s_ldexpf.c | 4 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/s_ldexpl.c | 2 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/w_scalb.c | 10 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/w_scalbf.c | 10 | ||||
| -rw-r--r-- | sysdeps/libm-ieee754/w_scalbl.c | 2 |
7 files changed, 98 insertions, 98 deletions
diff --git a/sysdeps/libm-ieee754/k_standard.c b/sysdeps/libm-ieee754/k_standard.c index 644108e7a0..35026faa9d 100644 --- a/sysdeps/libm-ieee754/k_standard.c +++ b/sysdeps/libm-ieee754/k_standard.c @@ -111,12 +111,12 @@ static double zero = 0.0; /* used as const */ ? "acosf" : "acosl");; exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if(_LIB_VERSION == _SVID_) { (void) WRITE2("acos: DOMAIN error\n", 19); } - errno = EDOM; + __set_errno (EDOM); } break; case 2: @@ -128,12 +128,12 @@ static double zero = 0.0; /* used as const */ ? "asinf" : "asinl"); exc.retval = zero; if(_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if(_LIB_VERSION == _SVID_) { (void) WRITE2("asin: DOMAIN error\n", 19); } - errno = EDOM; + __set_errno (EDOM); } break; case 3: @@ -147,12 +147,12 @@ static double zero = 0.0; /* used as const */ ? "atan2f" : "atan2l"); exc.retval = zero; if(_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if(_LIB_VERSION == _SVID_) { (void) WRITE2("atan2: DOMAIN error\n", 20); } - errno = EDOM; + __set_errno (EDOM); } break; case 4: @@ -167,9 +167,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 5: @@ -184,9 +184,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 6: @@ -201,9 +201,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 7: @@ -215,9 +215,9 @@ static double zero = 0.0; /* used as const */ ? "expf" : "expl"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 8: @@ -231,12 +231,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("y0: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 9: @@ -250,12 +250,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("y0: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 10: @@ -269,12 +269,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("y1: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 11: @@ -288,12 +288,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("y1: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 12: @@ -307,12 +307,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("yn: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 13: @@ -326,12 +326,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("yn: DOMAIN error\n", 17); } - errno = EDOM; + __set_errno (EDOM); } break; case 14: @@ -346,9 +346,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 15: @@ -363,12 +363,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("lgamma: SING error\n", 19); } - errno = EDOM; + __set_errno (EDOM); } break; case 16: @@ -382,12 +382,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("log: SING error\n", 16); } - errno = EDOM; + __set_errno (EDOM); } break; case 17: @@ -401,12 +401,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("log: DOMAIN error\n", 18); } - errno = EDOM; + __set_errno (EDOM); } break; case 18: @@ -421,12 +421,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("log10: SING error\n", 18); } - errno = EDOM; + __set_errno (EDOM); } break; case 19: @@ -441,12 +441,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("log10: DOMAIN error\n", 20); } - errno = EDOM; + __set_errno (EDOM); } break; case 20: @@ -460,7 +460,7 @@ static double zero = 0.0; /* used as const */ if (_LIB_VERSION != _SVID_) exc.retval = 1.0; else if (!__matherr(&exc)) { (void) WRITE2("pow(0,0): DOMAIN error\n", 23); - errno = EDOM; + __set_errno (EDOM); } break; case 21: @@ -479,9 +479,9 @@ static double zero = 0.0; /* used as const */ if(x<zero&&__rint(y)!=y) exc.retval = -HUGE_VAL; } if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 22: @@ -492,9 +492,9 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "pow" : (type < 200 ? "powf" : "powl"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 23: @@ -508,12 +508,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("pow(0,neg): DOMAIN error\n", 25); } - errno = EDOM; + __set_errno (EDOM); } break; case 24: @@ -527,12 +527,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = zero/zero; /* X/Open allow NaN */ if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("neg**non-integral: DOMAIN error\n", 32); } - errno = EDOM; + __set_errno (EDOM); } break; case 25: @@ -547,9 +547,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = ( (x>zero) ? HUGE_VAL : -HUGE_VAL); if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 26: @@ -564,12 +564,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = zero/zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("sqrt: DOMAIN error\n", 19); } - errno = EDOM; + __set_errno (EDOM); } break; case 27: @@ -584,12 +584,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = zero/zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("fmod: DOMAIN error\n", 20); } - errno = EDOM; + __set_errno (EDOM); } break; case 28: @@ -602,12 +602,12 @@ static double zero = 0.0; /* used as const */ : "remainderl"); exc.retval = zero/zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("remainder: DOMAIN error\n", 24); } - errno = EDOM; + __set_errno (EDOM); } break; case 29: @@ -619,12 +619,12 @@ static double zero = 0.0; /* used as const */ ? "acoshf" : "acoshl"); exc.retval = zero/zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("acosh: DOMAIN error\n", 20); } - errno = EDOM; + __set_errno (EDOM); } break; case 30: @@ -636,12 +636,12 @@ static double zero = 0.0; /* used as const */ ? "atanhf" : "atanhl"); exc.retval = zero/zero; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("atanh: DOMAIN error\n", 20); } - errno = EDOM; + __set_errno (EDOM); } break; case 31: @@ -653,12 +653,12 @@ static double zero = 0.0; /* used as const */ ? "atanhf" : "atanhl"); exc.retval = x/zero; /* sign(x)*inf */ if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("atanh: SING error\n", 18); } - errno = EDOM; + __set_errno (EDOM); } break; case 32: @@ -670,9 +670,9 @@ static double zero = 0.0; /* used as const */ ? "scalbf" : "scalbl"); exc.retval = x > zero ? HUGE_VAL : -HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 33: @@ -684,9 +684,9 @@ static double zero = 0.0; /* used as const */ ? "scalbf" : "scalbl"); exc.retval = __copysign(zero,x); if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 34: @@ -697,13 +697,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "j0" : (type < 200 ? "j0f" : "j0l"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 35: @@ -714,13 +714,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "y0" : (type < 200 ? "y0f" : "y0l"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 36: @@ -731,13 +731,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "j1" : (type < 200 ? "j1f" : "j1l"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 37: @@ -748,13 +748,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "y1" : (type < 200 ? "y1f" : "y1l"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 38: @@ -765,13 +765,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "jn" : (type < 200 ? "jnf" : "jnl"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 39: @@ -782,13 +782,13 @@ static double zero = 0.0; /* used as const */ exc.name = type < 100 ? "yn" : (type < 200 ? "ynf" : "ynl"); exc.retval = zero; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2(exc.name, 2); (void) WRITE2(": TLOSS error\n", 14); } - errno = ERANGE; + __set_errno (ERANGE); } break; case 40: @@ -803,9 +803,9 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = ERANGE; + __set_errno (ERANGE); else if (!__matherr(&exc)) { - errno = ERANGE; + __set_errno (ERANGE); } break; case 41: @@ -820,12 +820,12 @@ static double zero = 0.0; /* used as const */ else exc.retval = HUGE_VAL; if (_LIB_VERSION == _POSIX_) - errno = EDOM; + __set_errno (EDOM); else if (!__matherr(&exc)) { if (_LIB_VERSION == _SVID_) { (void) WRITE2("gamma: SING error\n", 18); } - errno = EDOM; + __set_errno (EDOM); } break; case 42: @@ -839,7 +839,7 @@ static double zero = 0.0; /* used as const */ if (_LIB_VERSION == _IEEE_ || _LIB_VERSION == _POSIX_) exc.retval = 1.0; else if (!__matherr(&exc)) { - errno = EDOM; + __set_errno (EDOM); } break; } diff --git a/sysdeps/libm-ieee754/s_ldexp.c b/sysdeps/libm-ieee754/s_ldexp.c index 754fef6e99..94a93fc063 100644 --- a/sysdeps/libm-ieee754/s_ldexp.c +++ b/sysdeps/libm-ieee754/s_ldexp.c @@ -5,7 +5,7 @@ * * Developed at SunPro, a Sun Microsystems, Inc. business. * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice + * software is freely granted, provided that this notice * is preserved. * ==================================================== */ @@ -27,7 +27,7 @@ static char rcsid[] = "$NetBSD: s_ldexp.c,v 1.6 1995/05/10 20:47:40 jtc Exp $"; { if(!__finite(value)||value==0.0) return value; value = __scalbn(value,exp); - if(!__finite(value)||value==0.0) errno = ERANGE; + if(!__finite(value)||value==0.0) __set_errno (ERANGE); return value; } weak_alias (__ldexp, ldexp) diff --git a/sysdeps/libm-ieee754/s_ldexpf.c b/sysdeps/libm-ieee754/s_ldexpf.c index d047677d72..1ecbe8346b 100644 --- a/sysdeps/libm-ieee754/s_ldexpf.c +++ b/sysdeps/libm-ieee754/s_ldexpf.c @@ -8,7 +8,7 @@ * * Developed at SunPro, a Sun Microsystems, Inc. business. * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice + * software is freely granted, provided that this notice * is preserved. * ==================================================== */ @@ -30,7 +30,7 @@ static char rcsid[] = "$NetBSD: s_ldexpf.c,v 1.3 1995/05/10 20:47:42 jtc Exp $"; { if(!__finitef(value)||value==(float)0.0) return value; value = __scalbnf(value,exp); - if(!__finitef(value)||value==(float)0.0) errno = ERANGE; + if(!__finitef(value)||value==(float)0.0) __set_errno (ERANGE); return value; } weak_alias (__ldexpf, ldexpf) diff --git a/sysdeps/libm-ieee754/s_ldexpl.c b/sysdeps/libm-ieee754/s_ldexpl.c index bf64c89898..123a6b3b58 100644 --- a/sysdeps/libm-ieee754/s_ldexpl.c +++ b/sysdeps/libm-ieee754/s_ldexpl.c @@ -31,7 +31,7 @@ static char rcsid[] = "$NetBSD: $"; { if(!__finitel(value)||value==0.0) return value; value = __scalbnl(value,exp); - if(!__finitel(value)||value==0.0) errno = ERANGE; + if(!__finitel(value)||value==0.0) __set_errno (ERANGE); return value; } weak_alias (__ldexpl, ldexpl) diff --git a/sysdeps/libm-ieee754/w_scalb.c b/sysdeps/libm-ieee754/w_scalb.c index f718bc215c..53d41144d6 100644 --- a/sysdeps/libm-ieee754/w_scalb.c +++ b/sysdeps/libm-ieee754/w_scalb.c @@ -5,7 +5,7 @@ * * Developed at SunPro, a Sun Microsystems, Inc. business. * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice + * software is freely granted, provided that this notice * is preserved. * ==================================================== */ @@ -16,7 +16,7 @@ static char rcsid[] = "$NetBSD: w_scalb.c,v 1.6 1995/05/10 20:49:48 jtc Exp $"; /* * wrapper scalb(double x, double fn) is provide for - * passing various standard test suite. One + * passing various standard test suite. One * should use scalbn() instead. */ @@ -51,11 +51,11 @@ static char rcsid[] = "$NetBSD: w_scalb.c,v 1.6 1995/05/10 20:49:48 jtc Exp $"; } if(z==0.0&&z!=x) { return __kernel_standard(x,(double)fn,33); /* scalb underflow */ - } + } #ifndef _SCALB_INT - if(!__finite(fn)) errno = ERANGE; + if(!__finite(fn)) __set_errno (ERANGE); #endif return z; -#endif +#endif } weak_alias (__scalb, scalb) diff --git a/sysdeps/libm-ieee754/w_scalbf.c b/sysdeps/libm-ieee754/w_scalbf.c index 3af7ed3932..488a717503 100644 --- a/sysdeps/libm-ieee754/w_scalbf.c +++ b/sysdeps/libm-ieee754/w_scalbf.c @@ -8,7 +8,7 @@ * * Developed at SunPro, a Sun Microsystems, Inc. business. * Permission to use, copy, modify, and distribute this - * software is freely granted, provided that this notice + * software is freely granted, provided that this notice * is preserved. * ==================================================== */ @@ -19,7 +19,7 @@ static char rcsid[] = "$NetBSD: w_scalbf.c,v 1.3 1995/05/10 20:49:50 jtc Exp $"; /* * wrapper scalbf(float x, float fn) is provide for - * passing various standard test suite. One + * passing various standard test suite. One * should use scalbn() instead. */ @@ -56,11 +56,11 @@ static char rcsid[] = "$NetBSD: w_scalbf.c,v 1.3 1995/05/10 20:49:50 jtc Exp $"; if(z==(float)0.0&&z!=x) { /* scalbf underflow */ return (float)__kernel_standard((double)x,(double)fn,133); - } + } #ifndef _SCALB_INT - if(!__finitef(fn)) errno = ERANGE; + if(!__finitef(fn)) __set_errno (ERANGE); #endif return z; -#endif +#endif } weak_alias (__scalbf, scalbf) diff --git a/sysdeps/libm-ieee754/w_scalbl.c b/sysdeps/libm-ieee754/w_scalbl.c index ff5117d24c..3ca8d9601d 100644 --- a/sysdeps/libm-ieee754/w_scalbl.c +++ b/sysdeps/libm-ieee754/w_scalbl.c @@ -57,7 +57,7 @@ static char rcsid[] = "$NetBSD: $"; return __kernel_standard(x,(double)fn,233); /* scalb underflow */ } #ifndef _SCALB_INT - if(!__finitel(fn)) errno = ERANGE; + if(!__finitel(fn)) __set_errno (ERANGE); #endif return z; #endif |