OSDN Git Service

PR fortran/46416
[pf3gnuchains/gcc-fork.git] / libquadmath / quadmath.h
1 /* GCC Quad-Precision Math Library
2    Copyright (C) 2010 Free Software Foundation, Inc.
3    Written by Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4
5 This file is part of the libiberty library.
6 Libiberty is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public
8 License as published by the Free Software Foundation; either
9 version 2 of the License, or (at your option) any later version.
10
11 Libiberty is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 Library General Public License for more details.
15
16 You should have received a copy of the GNU Library General Public
17 License along with libiberty; see the file COPYING.LIB.  If
18 not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
19 Boston, MA 02110-1301, USA.  */
20
21 #ifndef QUADMATH_H
22 #define QUADMATH_H
23
24 #include <stdlib.h>
25
26 // Define the complex type corresponding to __float128
27 // ("_Complex __float128" is not allowed)
28 typedef _Complex float __attribute__((mode(TC))) __complex128;
29
30
31 // Prototypes for real functions
32 extern __float128 acosq (__float128);
33 extern __float128 acoshq (__float128);
34 extern __float128 asinq (__float128);
35 extern __float128 asinhq (__float128);
36 extern __float128 atanq (__float128);
37 extern __float128 atanhq (__float128);
38 extern __float128 atan2q (__float128, __float128);
39 extern __float128 cbrtq (const __float128);
40 extern __float128 ceilq (__float128);
41 extern __float128 copysignq (__float128, __float128);
42 extern __float128 coshq (__float128);
43 extern __float128 cosq (__float128);
44 extern __float128 erfq (__float128);
45 extern __float128 erfcq (__float128);
46 extern __float128 expq (__float128);
47 extern __float128 expm1q (__float128);
48 extern __float128 fabsq (__float128);
49 extern int finiteq (const __float128);
50 extern __float128 floorq (__float128);
51 extern __float128 fmaq (__float128, __float128, __float128);
52 extern __float128 fmodq (__float128, __float128);
53 extern __float128 frexpq (__float128, int *);
54 extern __float128 hypotq (__float128, __float128);
55 extern int isinfq (__float128);
56 extern int isnanq (const __float128);
57 extern __float128 j0q (__float128);
58 extern __float128 j1q (__float128);
59 extern __float128 jnq (int, __float128);
60 extern __float128 ldexpq (__float128, int);
61 extern __float128 lgammaq (__float128);
62 extern long long int llroundq (__float128);
63 extern __float128 logq (__float128);
64 extern __float128 log10q (__float128);
65 extern __float128 log1pq (__float128);
66 extern long int lroundq (__float128);
67 extern __float128 modfq (__float128, __float128 *);
68 extern __float128 nanq (const char *);
69 extern __float128 nextafterq (__float128, __float128);
70 extern __float128 powq (__float128, __float128);
71 extern __float128 remainderq (__float128, __float128);
72 extern __float128 rintq (__float128);
73 extern __float128 roundq (__float128);
74 extern __float128 scalblnq (__float128, long int);
75 extern __float128 scalbnq (__float128, int);
76 extern int signbitq (const __float128);
77 extern void sincosq (__float128, __float128 *, __float128 *);
78 extern __float128 sinhq (__float128);
79 extern __float128 sinq (__float128);
80 extern __float128 sqrtq (const __float128);
81 extern __float128 tanq (__float128);
82 extern __float128 tanhq (__float128);
83 extern __float128 tgammaq (__float128);
84 extern __float128 truncq (__float128);
85 extern __float128 y0q (__float128);
86 extern __float128 y1q (__float128);
87 extern __float128 ynq (int, __float128);
88
89
90 // Prototypes for complex functions
91 extern __float128 cabsq (__complex128);
92 extern __float128 cargq (__complex128);
93 extern __complex128 cacosq (__complex128);
94 extern __complex128 cacoshq (__complex128);
95 extern __complex128 casinq (__complex128);
96 extern __complex128 casinhq (__complex128);
97 extern __complex128 catanq (__complex128);
98 extern __complex128 catanhq (__complex128);
99 extern __complex128 ccosq (__complex128);
100 extern __complex128 ccoshq (__complex128);
101 extern __complex128 cexpq (__complex128);
102 extern __complex128 cexpiq (__float128);
103 extern __complex128 clogq (__complex128);
104 extern __complex128 clog10q (__complex128);
105 extern __complex128 cpowq (__complex128, __complex128);
106 extern __complex128 csinq (__complex128);
107 extern __complex128 csinhq (__complex128);
108 extern __complex128 csqrtq (__complex128);
109 extern __complex128 ctanq (__complex128);
110 extern __complex128 ctanhq (__complex128);
111
112
113 // Prototypes for our I/O functions
114 extern int quadmath_strtopQ (const char *, char **, void *);
115 extern void quadmath_dtoaq (char *, size_t, size_t, __float128);
116
117
118 // Macros
119 #define FLT128_MAX 1.18973149535723176508575932662800702e4932Q
120 #define FLT128_MIN 3.36210314311209350626267781732175260e-4932Q
121 #define FLT128_EPSILON 1.92592994438723585305597794258492732e-34Q
122 #define FLT128_DENORM_MIN 6.475175119438025110924438958227646552e-4966Q
123 #define FLT128_MANT_DIG 113
124 #define FLT128_MIN_EXP (-16381)
125 #define FLT128_MAX_EXP 16384
126 // TODO -- One day, we need to add the following macros:
127 // FLT128_DIG, FLT128_MIN_10_EXP, FLT128_MAX_10_EXP
128
129
130 #define HUGE_VALQ __builtin_huge_valq()
131 /* The following alternative is valid, but brings the warning:
132    (floating constant exceeds range of ‘__float128’)  */
133 /* #define HUGE_VALQ (__extension__ 0x1.0p32767Q) */
134
135 #define M_Eq            2.7182818284590452353602874713526625Q  /* e */
136 #define M_LOG2Eq        1.4426950408889634073599246810018921Q  /* log_2 e */
137 #define M_LOG10Eq       0.4342944819032518276511289189166051Q  /* log_10 e */
138 #define M_LN2q          0.6931471805599453094172321214581766Q  /* log_e 2 */
139 #define M_LN10q         2.3025850929940456840179914546843642Q  /* log_e 10 */
140 #define M_PIq           3.1415926535897932384626433832795029Q  /* pi */
141 #define M_PI_2q         1.5707963267948966192313216916397514Q  /* pi/2 */
142 #define M_PI_4q         0.7853981633974483096156608458198757Q  /* pi/4 */
143 #define M_1_PIq         0.3183098861837906715377675267450287Q  /* 1/pi */
144 #define M_2_PIq         0.6366197723675813430755350534900574Q  /* 2/pi */
145 #define M_2_SQRTPIq     1.1283791670955125738961589031215452Q  /* 2/sqrt(pi) */
146 #define M_SQRT2q        1.4142135623730950488016887242096981Q  /* sqrt(2) */
147 #define M_SQRT1_2q      0.7071067811865475244008443621048490Q  /* 1/sqrt(2) */
148
149 #endif