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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 774 jeremybenn
 
2
/* @(#)w_log.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 log(x)
16
 */
17
 
18
#include "fdlibm.h"
19
 
20
 
21
#ifdef __STDC__
22
        double log(double x)            /* wrapper log */
23
#else
24
        double log(x)                   /* wrapper log */
25
        double x;
26
#endif
27
{
28
#ifdef _IEEE_LIBM
29
        return __ieee754_log(x);
30
#else
31
        double z;
32
        z = __ieee754_log(x);
33
        if(_LIB_VERSION == _IEEE_ || isnan(x) || x > 0.0) return z;
34
        if(x==0.0)
35
            return __kernel_standard(x,x,16); /* log(0) */
36
        else
37
            return __kernel_standard(x,x,17); /* log(x<0) */
38
#endif
39
}

powered by: WebSVN 2.1.0

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