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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libm/] [math/] [w_sinh.c] - Blame information for rev 207

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
 
2
/* @(#)w_sinh.c 5.1 93/09/24 */
3
/*
4
 * ====================================================
5
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6
 *
7
 * Developed at SunPro, 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
/*
16
FUNCTION
17
        <<sinh>>, <<sinhf>>---hyperbolic sine
18
 
19
INDEX
20
        sinh
21
INDEX
22
        sinhf
23
 
24
ANSI_SYNOPSIS
25
        #include <math.h>
26
        double sinh(double <[x]>);
27
        float  sinhf(float <[x]>);
28
 
29
TRAD_SYNOPSIS
30
        #include <math.h>
31
        double sinh(<[x]>)
32
        double <[x]>;
33
 
34
        float  sinhf(<[x]>)
35
        float <[x]>;
36
 
37
DESCRIPTION
38
        <<sinh>> computes the hyperbolic sine of the argument <[x]>.
39
        Angles are specified in radians.   <<sinh>>(<[x]>) is defined as
40
        @ifnottex
41
        . (exp(<[x]>) - exp(-<[x]>))/2
42
        @end ifnottex
43
        @tex
44
        $${e^x - e^{-x}}\over 2$$
45
        @end tex
46
 
47
        <<sinhf>> is identical, save that it takes and returns <<float>> values.
48
 
49
RETURNS
50
        The hyperbolic sine of <[x]> is returned.
51
 
52
        When the correct result is too large to be representable (an
53
        overflow),  <<sinh>> returns <<HUGE_VAL>> with the
54
        appropriate sign, and sets the global value <<errno>> to
55
        <<ERANGE>>.
56
 
57
        You can modify error handling for these functions with <<matherr>>.
58
 
59
PORTABILITY
60
        <<sinh>> is ANSI C.
61
        <<sinhf>> is an extension.
62
 
63
QUICKREF
64
        sinh ansi pure
65
        sinhf - pure
66
*/
67
 
68
/*
69
 * wrapper sinh(x)
70
 */
71
 
72
#include "fdlibm.h"
73
#include <errno.h>
74
 
75
#ifndef _DOUBLE_IS_32BITS
76
 
77
#ifdef __STDC__
78
        double sinh(double x)           /* wrapper sinh */
79
#else
80
        double sinh(x)                  /* wrapper sinh */
81
        double x;
82
#endif
83
{
84
#ifdef _IEEE_LIBM
85
        return __ieee754_sinh(x);
86
#else
87
        double z;
88
        struct exception exc;
89
        z = __ieee754_sinh(x);
90
        if(_LIB_VERSION == _IEEE_) return z;
91
        if(!finite(z)&&finite(x)) {
92
            /* sinh(finite) overflow */
93
#ifndef HUGE_VAL 
94
#define HUGE_VAL inf
95
            double inf = 0.0;
96
 
97
            SET_HIGH_WORD(inf,0x7ff00000);      /* set inf to infinite */
98
#endif
99
            exc.type = OVERFLOW;
100
            exc.name = "sinh";
101
            exc.err = 0;
102
            exc.arg1 = exc.arg2 = x;
103
            if (_LIB_VERSION == _SVID_)
104
               exc.retval = ( (x>0.0) ? HUGE : -HUGE);
105
            else
106
               exc.retval = ( (x>0.0) ? HUGE_VAL : -HUGE_VAL);
107
            if (_LIB_VERSION == _POSIX_)
108
               errno = ERANGE;
109
            else if (!matherr(&exc)) {
110
               errno = ERANGE;
111
            }
112
            if (exc.err != 0)
113
               errno = exc.err;
114
            return exc.retval;
115
        } else
116
            return z;
117
#endif
118
}
119
 
120
#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.