← Back to branch summary

~ubuntu-branches/ubuntu/natty/eglibc/natty-security

« back to all changes in this revision

Viewing changes to math/w_coshf.c

  • Committer: Bazaar Package Importer
  • Author(s): Aurelien Jarno
  • Date: 2009-05-05 09:54:14 UTC
  • Revision ID: james.westby@ubuntu.com-20090505095414-c45qsg9ixjheohru
Import upstream version 2.9

Show diffs side-by-side

added added

removed removed

Lines of Context:
math/w_coshf.c
 
1
/* w_coshf.c -- float version of w_cosh.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
#if defined(LIBM_SCCS) && !defined(lint)
 
17
static char rcsid[] = "$NetBSD: w_coshf.c,v 1.3 1995/05/10 20:48:49 jtc Exp $";
 
18
#endif
 
19
 
 
20
/* 
 
21
 * wrapper coshf(x)
 
22
 */
 
23
 
 
24
#include <math.h>
 
25
#include "math_private.h"
 
26
 
 
27
#ifdef __STDC__
 
28
        float __coshf(float x)          /* wrapper coshf */
 
29
#else
 
30
        float __coshf(x)                        /* wrapper coshf */
 
31
        float x;
 
32
#endif
 
33
{
 
34
#ifdef _IEEE_LIBM
 
35
        return __ieee754_coshf(x);
 
36
#else
 
37
        float z;
 
38
        z = __ieee754_coshf(x);
 
39
        if(_LIB_VERSION == _IEEE_ || __isnanf(x)) return z;
 
40
        if(!__finite(z) && __finite(x)) {       
 
41
                /* cosh overflow */
 
42
                return (float)__kernel_standard((double)x,(double)x,105);
 
43
        } else
 
44
            return z;
 
45
#endif
 
46
}
 
47
weak_alias (__coshf, coshf)