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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 148 jeremybenn
/* w_gammaf.c -- float version of w_gamma.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
#include "math.h"
17
#include "fdlibm.h"
18
 
19
#ifdef __STDC__
20
        float tgammaf(float x)
21
#else
22
        float tgammaf(x)
23
        float x;
24
#endif
25
{
26
        float y;
27
        int local_signgam;
28
        y = __ieee754_gammaf_r(x,&local_signgam);
29
        if (local_signgam < 0) y = -y;
30
#ifdef _IEEE_LIBM
31
        return y;
32
#else
33
        if(_LIB_VERSION == _IEEE_) return y;
34
 
35
        if(!finitef(y)&&finitef(x)) {
36
          if(floorf(x)==x&&x<=(float)0.0)
37
            /* tgammaf pole */
38
            return (float)__kernel_standard((double)x,(double)x,141);
39
          else
40
            /* tgammaf overflow */
41
            return (float)__kernel_standard((double)x,(double)x,140);
42
        }
43
        return y;
44
#endif
45
}

powered by: WebSVN 2.1.0

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