URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-stable/] [newlib-1.18.0/] [newlib/] [libm/] [math/] [wf_atan2.c] - Rev 858
Go to most recent revision | Compare with Previous | Blame | View Log
/* wf_atan2.c -- float version of w_atan2.c. * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com. */ /* * ==================================================== * 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 * is preserved. * ==================================================== * */ /* * wrapper atan2f(y,x) */ #include "fdlibm.h" #include <errno.h> #ifdef __STDC__ float atan2f(float y, float x) /* wrapper atan2f */ #else float atan2f(y,x) /* wrapper atan2 */ float y,x; #endif { return __ieee754_atan2f(y,x); } #ifdef _DOUBLE_IS_32BITS #ifdef __STDC__ double atan2(double y, double x) #else double atan2(y,x) double y,x; #endif { return (double) atan2f((float) y, (float) x); } #endif /* defined(_DOUBLE_IS_32BITS) */
Go to most recent revision | Compare with Previous | Blame | View Log