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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libjava/] [classpath/] [native/] [fdlibm/] [w_hypot.c] - Blame information for rev 774

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 774 jeremybenn
 
2
/* @(#)w_hypot.c 1.3 95/01/18 */
3
/*
4
 * ====================================================
5
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6
 *
7
 * Developed at SunSoft, a Sun Microsystems, Inc. business.
8
 * Permission to use, copy, modify, and distribute this
9
 * software is freely granted, provided that this notice
10
 * is preserved.
11
 * ====================================================
12
 */
13
 
14
/*
15
 * wrapper hypot(x,y)
16
 */
17
 
18
#include "fdlibm.h"
19
 
20
 
21
#ifdef __STDC__
22
        double hypot(double x, double y)/* wrapper hypot */
23
#else
24
        double hypot(x,y)               /* wrapper hypot */
25
        double x,y;
26
#endif
27
{
28
#ifdef _IEEE_LIBM
29
        return __ieee754_hypot(x,y);
30
#else
31
        double z;
32
        z = __ieee754_hypot(x,y);
33
        if(_LIB_VERSION == _IEEE_) return z;
34
        if((!finite(z))&&finite(x)&&finite(y))
35
            return __kernel_standard(x,y,4); /* hypot overflow */
36
        else
37
            return z;
38
#endif
39
}

powered by: WebSVN 2.1.0

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