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 (__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 __float128 fdimq (__float128, __float128);
50 extern int finiteq (__float128);
51 extern __float128 floorq (__float128);
52 extern __float128 fmaq (__float128, __float128, __float128);
53 extern __float128 fmaxq (__float128, __float128);
54 extern __float128 fminq (__float128, __float128);
55 extern __float128 fmodq (__float128, __float128);
56 extern __float128 frexpq (__float128, int *);
57 extern __float128 hypotq (__float128, __float128);
58 extern int isinfq (__float128);
59 extern int ilogbq (__float128);
60 extern int isnanq (__float128);
61 extern __float128 j0q (__float128);
62 extern __float128 j1q (__float128);
63 extern __float128 jnq (int, __float128);
64 extern __float128 ldexpq (__float128, int);
65 extern __float128 lgammaq (__float128);
66 extern long long int llrintq (__float128);
67 extern long long int llroundq (__float128);
68 extern __float128 logq (__float128);
69 extern __float128 log10q (__float128);
70 extern __float128 log2q (__float128);
71 extern __float128 log1pq (__float128);
72 extern long int lrintq (__float128);
73 extern long int lroundq (__float128);
74 extern __float128 modfq (__float128, __float128 *);
75 extern __float128 nanq (const char *);
76 extern __float128 nearbyintq (__float128);
77 extern __float128 nextafterq (__float128, __float128);
78 extern __float128 powq (__float128, __float128);
79 extern __float128 remainderq (__float128, __float128);
80 extern __float128 remquoq (__float128, __float128, int *);
81 extern __float128 rintq (__float128);
82 extern __float128 roundq (__float128);
83 extern __float128 scalblnq (__float128, long int);
84 extern __float128 scalbnq (__float128, int);
85 extern int signbitq (__float128);
86 extern void sincosq (__float128, __float128 *, __float128 *);
87 extern __float128 sinhq (__float128);
88 extern __float128 sinq (__float128);
89 extern __float128 sqrtq (__float128);
90 extern __float128 tanq (__float128);
91 extern __float128 tanhq (__float128);
92 extern __float128 tgammaq (__float128);
93 extern __float128 truncq (__float128);
94 extern __float128 y0q (__float128);
95 extern __float128 y1q (__float128);
96 extern __float128 ynq (int, __float128);
97
98
99 // Prototypes for complex functions
100 extern __float128 cabsq (__complex128);
101 extern __float128 cargq (__complex128);
102 extern __float128 cimagq (__complex128);
103 extern __float128 crealq (__complex128);
104 extern __complex128 cacosq (__complex128);
105 extern __complex128 cacoshq (__complex128);
106 extern __complex128 casinq (__complex128);
107 extern __complex128 casinhq (__complex128);
108 extern __complex128 catanq (__complex128);
109 extern __complex128 catanhq (__complex128);
110 extern __complex128 ccosq (__complex128);
111 extern __complex128 ccoshq (__complex128);
112 extern __complex128 cexpq (__complex128);
113 extern __complex128 cexpiq (__float128);
114 extern __complex128 clogq (__complex128);
115 extern __complex128 clog10q (__complex128);
116 extern __complex128 conjq (__complex128);
117 extern __complex128 cpowq (__complex128, __complex128);
118 extern __complex128 cprojq (__complex128);
119 extern __complex128 csinq (__complex128);
120 extern __complex128 csinhq (__complex128);
121 extern __complex128 csqrtq (__complex128);
122 extern __complex128 ctanq (__complex128);
123 extern __complex128 ctanhq (__complex128);
124
125
126 // Prototypes for our I/O functions
127 extern int quadmath_strtopQ (const char *, char **, void *);
128 extern void quadmath_dtoaq (char *, size_t, size_t, __float128);
129
130
131 // Macros
132 #define FLT128_MAX 1.18973149535723176508575932662800702e4932Q
133 #define FLT128_MIN 3.36210314311209350626267781732175260e-4932Q
134 #define FLT128_EPSILON 1.92592994438723585305597794258492732e-34Q
135 #define FLT128_DENORM_MIN 6.475175119438025110924438958227646552e-4966Q
136 #define FLT128_MANT_DIG 113
137 #define FLT128_MIN_EXP (-16381)
138 #define FLT128_MAX_EXP 16384
139 // TODO -- One day, we need to add the following macros:
140 // FLT128_DIG, FLT128_MIN_10_EXP, FLT128_MAX_10_EXP
141
142
143 #define HUGE_VALQ __builtin_huge_valq()
144 /* The following alternative is valid, but brings the warning:
145    (floating constant exceeds range of ‘__float128’)  */
146 /* #define HUGE_VALQ (__extension__ 0x1.0p32767Q) */
147
148 #define M_Eq            2.7182818284590452353602874713526625Q  /* e */
149 #define M_LOG2Eq        1.4426950408889634073599246810018921Q  /* log_2 e */
150 #define M_LOG10Eq       0.4342944819032518276511289189166051Q  /* log_10 e */
151 #define M_LN2q          0.6931471805599453094172321214581766Q  /* log_e 2 */
152 #define M_LN10q         2.3025850929940456840179914546843642Q  /* log_e 10 */
153 #define M_PIq           3.1415926535897932384626433832795029Q  /* pi */
154 #define M_PI_2q         1.5707963267948966192313216916397514Q  /* pi/2 */
155 #define M_PI_4q         0.7853981633974483096156608458198757Q  /* pi/4 */
156 #define M_1_PIq         0.3183098861837906715377675267450287Q  /* 1/pi */
157 #define M_2_PIq         0.6366197723675813430755350534900574Q  /* 2/pi */
158 #define M_2_SQRTPIq     1.1283791670955125738961589031215452Q  /* 2/sqrt(pi) */
159 #define M_SQRT2q        1.4142135623730950488016887242096981Q  /* sqrt(2) */
160 #define M_SQRT1_2q      0.7071067811865475244008443621048490Q  /* 1/sqrt(2) */
161
162 #define __quadmath_extern_inline \
163   extern inline __attribute__ ((__gnu_inline__))
164
165 __quadmath_extern_inline __float128
166 cimagq (__complex128 __z)
167 {
168   return __imag__ __z;
169 }
170
171 __quadmath_extern_inline __float128
172 crealq (__complex128 __z)
173 {
174   return __real__ __z;
175 }
176
177 __quadmath_extern_inline __complex128
178 conjq (__complex128 __z)
179 {
180   return __extension__ ~__z;
181 }
182
183 #endif