URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libjava/] [classpath/] [native/] [fdlibm/] [w_atan2.c] - Rev 781
Go to most recent revision | Compare with Previous | Blame | View Log
/* @(#)w_atan2.c 1.3 95/01/18 */ /* * ==================================================== * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. * * Developed at SunSoft, a Sun Microsystems, Inc. business. * Permission to use, copy, modify, and distribute this * software is freely granted, provided that this notice * is preserved. * ==================================================== * */ /* * wrapper atan2(y,x) */ #include "fdlibm.h" #ifdef __STDC__ double atan2(double y, double x) /* wrapper atan2 */ #else double atan2(y,x) /* wrapper atan2 */ double y,x; #endif { #ifdef _IEEE_LIBM return __ieee754_atan2(y,x); #else double z; z = __ieee754_atan2(y,x); if(_LIB_VERSION == _IEEE_||isnan(x)||isnan(y)) return z; if(x==0.0&&y==0.0) { return __kernel_standard(y,x,3); /* atan2(+-0,+-0) */ } else return z; #endif }
Go to most recent revision | Compare with Previous | Blame | View Log