/* @(#)w_pow.c 5.2 93/10/01 */
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
* Developed at SunPro, a Sun Microsystems, Inc. business.
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* ====================================================
static char rcsid
[] = "$Id: w_pow.c,v 1.3 1994/02/18 02:28:01 jtc Exp $";
* wrapper pow(x,y) return x**y
double pow(double x
, double y
) /* wrapper pow */
double pow(x
,y
) /* wrapper pow */
return __ieee754_pow(x
,y
);
if(_LIB_VERSION
== _IEEE_
|| isnan(y
)) return z
;
return __kernel_standard(x
,y
,42); /* pow(NaN,0.0) */
return __kernel_standard(x
,y
,20); /* pow(0.0,0.0) */
return __kernel_standard(x
,y
,23); /* pow(0.0,negative) */
if(finite(x
)&&finite(y
)) {
return __kernel_standard(x
,y
,24); /* pow neg**non-int */
return __kernel_standard(x
,y
,21); /* pow overflow */
if(z
==0.0&&finite(x
)&&finite(y
))
return __kernel_standard(x
,y
,22); /* pow underflow */