OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [newlib-1.17.0/] [newlib/] [libm/] [math/] [wf_atan2.c] - Blame information for rev 855

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 148 jeremybenn
/* wf_atan2.c -- float version of w_atan2.c.
2
 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3
 */
4
 
5
/*
6
 * ====================================================
7
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8
 *
9
 * Developed at SunPro, a Sun Microsystems, Inc. business.
10
 * Permission to use, copy, modify, and distribute this
11
 * software is freely granted, provided that this notice
12
 * is preserved.
13
 * ====================================================
14
 *
15
 */
16
 
17
/*
18
 * wrapper atan2f(y,x)
19
 */
20
 
21
#include "fdlibm.h"
22
#include <errno.h>
23
 
24
#ifdef __STDC__
25
        float atan2f(float y, float x)          /* wrapper atan2f */
26
#else
27
        float atan2f(y,x)                       /* wrapper atan2 */
28
        float y,x;
29
#endif
30
{
31
        return __ieee754_atan2f(y,x);
32
}
33
 
34
#ifdef _DOUBLE_IS_32BITS
35
 
36
#ifdef __STDC__
37
        double atan2(double y, double x)
38
#else
39
        double atan2(y,x)
40
        double y,x;
41
#endif
42
{
43
        return (double) atan2f((float) y, (float) x);
44
}
45
 
46
#endif /* defined(_DOUBLE_IS_32BITS) */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.