2 * ====================================================
3 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5 * Developed at SunPro, a Sun Microsystems, Inc. business.
6 * Permission to use, copy, modify, and distribute this
7 * software is freely granted, provided that this notice
9 * ====================================================
13 * from: @(#)fdlibm.h 5.1 93/09/24
14 * $FreeBSD: src/lib/msun/src/math.h,v 1.62 2007/01/07 07:54:21 das Exp $
20 #include <aros/system.h>
24 #define __GNUC_PREREQ__ __GNUC_PREREQ
30 extern const union __infinity_un
{
31 unsigned char __uc
[8];
35 extern const union __nan_un
{
36 unsigned char __uc
[sizeof(float)];
40 #if __GNUC_PREREQ__(3, 3) || (defined(__INTEL_COMPILER) && __INTEL_COMPILER >= 800)
41 #define __MATH_BUILTIN_CONSTANTS
44 #if __GNUC_PREREQ__(3, 0) && !defined(__INTEL_COMPILER)
45 #define __MATH_BUILTIN_RELOPS
48 #ifdef __MATH_BUILTIN_CONSTANTS
49 #define HUGE_VAL __builtin_huge_val()
51 #define HUGE_VAL (__infinity.__ud)
54 #define FP_ILOGB0 (-INT_MAX)
55 #define FP_ILOGBNAN INT_MAX
57 #ifdef __MATH_BUILTIN_CONSTANTS
58 #define HUGE_VALF __builtin_huge_valf()
59 #define HUGE_VALL __builtin_huge_vall()
60 #define INFINITY __builtin_inf()
61 #define NAN __builtin_nan("")
63 #define HUGE_VALF (float)HUGE_VAL
64 #define HUGE_VALL (long double)HUGE_VAL
65 #define INFINITY HUGE_VALF
66 #define NAN (__nan.__uf)
67 #endif /* __MATH_BUILTIN_CONSTANTS */
70 #define MATH_ERREXCEPT 2
71 #define math_errhandling MATH_ERREXCEPT
73 /* XXX We need a <machine/math.h>. */
74 #if defined(__ia64__) || defined(__sparc64__)
82 /* Symbolic constants to classify floating point numbers. */
83 #define FP_INFINITE 0x01
85 #define FP_NORMAL 0x04
86 #define FP_SUBNORMAL 0x08
90 NOT IMPL
#define fpclassify(x) \
91 NOT IMPL ((sizeof (x) == sizeof (float)) ? __fpclassifyf(x) \
92 NOT IMPL : (sizeof (x) == sizeof (double)) ? __fpclassifyd(x) \
93 NOT IMPL : __fpclassifyl(x))
97 ((sizeof (x) == sizeof (float)) ? __isfinitef(x) \
98 : (sizeof (x) == sizeof (double)) ? __isfinite(x) \
101 ((sizeof (x) == sizeof (float)) ? __isinff(x) \
102 : (sizeof (x) == sizeof (double)) ? isinf(x) \
105 ((sizeof (x) == sizeof (float)) ? isnanf(x) \
106 : (sizeof (x) == sizeof (double)) ? __isnan(x) \
108 #define isnormal(x) \
109 ((sizeof (x) == sizeof (float)) ? __isnormalf(x) \
110 : (sizeof (x) == sizeof (double)) ? __isnormal(x) \
113 #ifdef __MATH_BUILTIN_RELOPS
114 #define isgreater(x, y) __builtin_isgreater((x), (y))
115 #define isgreaterequal(x, y) __builtin_isgreaterequal((x), (y))
116 #define isless(x, y) __builtin_isless((x), (y))
117 #define islessequal(x, y) __builtin_islessequal((x), (y))
118 #define islessgreater(x, y) __builtin_islessgreater((x), (y))
119 #define isunordered(x, y) __builtin_isunordered((x), (y))
121 #define isgreater(x, y) (!isunordered((x), (y)) && (x) > (y))
122 #define isgreaterequal(x, y) (!isunordered((x), (y)) && (x) >= (y))
123 #define isless(x, y) (!isunordered((x), (y)) && (x) < (y))
124 #define islessequal(x, y) (!isunordered((x), (y)) && (x) <= (y))
125 #define islessgreater(x, y) (!isunordered((x), (y)) && \
126 ((x) > (y) || (y) > (x)))
127 #define isunordered(x, y) (isnan(x) || isnan(y))
128 #endif /* __MATH_BUILTIN_RELOPS */
131 ((sizeof (x) == sizeof (float)) ? __signbitf(x) \
132 : (sizeof (x) == sizeof (double)) ? __signbit(x) \
135 #if FLT_EVAL_METHOD <= 0
136 typedef double double_t
;
137 typedef float float_t
;
138 #elif FLT_EVAL_METHOD == 1
139 typedef double double_t
;
140 typedef double float_t
;
141 #elif FLT_EVAL_METHOD == 2
142 typedef long double double_t
;
143 typedef long double float_t
;
149 #define M_E 2.7182818284590452354 /* e */
150 #define M_LOG2E 1.4426950408889634074 /* log 2e */
151 #define M_LOG10E 0.43429448190325182765 /* log 10e */
152 #define M_LN2 0.69314718055994530942 /* log e2 */
153 #define M_LN10 2.30258509299404568402 /* log e10 */
154 #define M_PI 3.14159265358979323846 /* pi */
155 #define M_PI_2 1.57079632679489661923 /* pi/2 */
156 #define M_PI_4 0.78539816339744830962 /* pi/4 */
157 #define M_1_PI 0.31830988618379067154 /* 1/pi */
158 #define M_2_PI 0.63661977236758134308 /* 2/pi */
159 #define M_2_SQRTPI 1.12837916709551257390 /* 2/sqrt(pi) */
160 #define M_SQRT2 1.41421356237309504880 /* sqrt(2) */
161 #define M_SQRT1_2 0.70710678118654752440 /* 1/sqrt(2) */
163 #define MAXFLOAT ((float)3.40282346638528860e+38)
166 #define HUGE MAXFLOAT
169 * Most of these functions depend on the rounding mode and have the side
170 * effect of raising floating-point exceptions, so they are not declared
171 * as __pure2. In C99, FENV_ACCESS affects the purity of these functions.
177 // NOT IMPL int __fpclassifyd(double) __pure2;
178 // NOT IMPL int __fpclassifyf(float) __pure2;
179 // NOT IMPL int __fpclassifyl(long double) __pure2;
180 int __isfinitef(float) __pure2
;
181 int __isfinite(double) __pure2
;
182 int __isfinitel(long double) __pure2
;
183 int __isinff(float) __pure2
;
184 int __isinfl(long double) __pure2
;
185 int __isnan(double) __pure2
;
186 int __isnanl(long double) __pure2
;
187 int __isnormalf(float) __pure2
;
188 int __isnormal(double) __pure2
;
189 int __isnormall(long double) __pure2
;
190 int __signbit(double) __pure2
;
191 int __signbitf(float) __pure2
;
192 int __signbitl(long double) __pure2
;
197 double atan2(double, double);
207 double frexp(double, int *); /* fundamentally !__pure2 */
208 double ldexp(double, int);
210 double log10(double);
211 double modf(double, double *); /* fundamentally !__pure2 */
213 double pow(double, double);
217 double fabs(double) __pure2
;
218 double floor(double);
219 double fmod(double, double);
222 * These functions are not in C90.
224 double acosh(double);
225 double asinh(double);
226 double atanh(double);
231 double expm1(double);
232 double fma(double, double, double);
233 double hypot(double, double);
234 int ilogb(double) __pure2
;
235 int (isinf
)(double) __pure2
;
236 int (isnan
)(double) __pure2
;
237 double lgamma(double);
238 long long llrint(double);
239 long long llround(double);
240 double log1p(double);
244 double nextafter(double, double);
245 double remainder(double, double);
246 double remquo(double, double, int *);
248 double nan(const char *tagp
);
252 double jn(int, double);
253 double scalb(double, double);
256 double yn(int, double);
258 double gamma(double);
260 double copysign(double, double) __pure2
;
261 double fdim(double, double);
262 double fmax(double, double) __pure2
;
263 double fmin(double, double) __pure2
;
264 double nearbyint(double);
265 double round(double);
266 double scalbln(double, long);
267 double scalbn(double, int);
268 double tgamma(double);
269 double trunc(double);
272 * BSD math library entry points
274 double drem(double, double);
275 int finite(double) __pure2
;
276 int isnanf(float) __pure2
;
279 * Reentrant version of gamma & lgamma; passes signgam back by reference
280 * as the second argument; user must allocate space for signgam.
282 double gamma_r(double, int *);
283 double lgamma_r(double, int *);
288 double significand(double);
290 /* float versions of ANSI/POSIX functions */
294 float atan2f(float, float);
306 float frexpf(float, int *); /* fundamentally !__pure2 */
307 int ilogbf(float) __pure2
;
308 float ldexpf(float, int);
312 float modff(float, float *); /* fundamentally !__pure2 */
314 float powf(float, float);
318 float fabsf(float) __pure2
;
320 float fmodf(float, float);
325 float hypotf(float, float);
326 float lgammaf(float);
333 float copysignf(float, float) __pure2
;
334 long long llrintf(float);
335 long long llroundf(float);
338 float nearbyintf(float);
339 float nextafterf(float, float);
340 float remainderf(float, float);
341 float remquof(float, float, int *);
343 float scalblnf(float, long);
344 float scalbnf(float, int);
347 float fdimf(float, float);
348 float fmaf(float, float, float);
349 float fmaxf(float, float) __pure2
;
350 float fminf(float, float) __pure2
;
352 float nanf(const char *tagp
);
355 * float versions of BSD math library entry points
357 float dremf(float, float);
358 int finitef(float) __pure2
;
362 float jnf(int, float);
363 float scalbf(float, float);
366 float ynf(int, float);
369 * Float versions of reentrant version of gamma & lgamma; passes
370 * signgam back by reference as the second argument; user must
371 * allocate space for signgam.
373 float gammaf_r(float, int *);
374 float lgammaf_r(float, int *);
377 * float version of IEEE Test Vector
379 float significandf(float);
382 * long double versions of ISO/POSIX math functions
384 // NOT IMPL long double acoshl(long double);
385 // NOT IMPL long double acosl(long double);
386 // NOT IMPL long double asinhl(long double);
387 // NOT IMPL long double asinl(long double);
388 // NOT IMPL long double atan2l(long double, long double);
389 // NOT IMPL long double atanhl(long double);
390 // NOT IMPL long double atanl(long double);
391 // NOT IMPL long double cbrtl(long double);
392 long double ceill(long double);
393 long double copysignl(long double, long double) __pure2
;
394 // NOT IMPL long double coshl(long double);
395 // NOT IMPL long double cosl(long double);
396 // NOT IMPL long double erfcl(long double);
397 // NOT IMPL long double erfl(long double);
398 // NOT IMPL long double exp2l(long double);
399 // NOT IMPL long double expl(long double);
400 // NOT IMPL long double expm1l(long double);
401 long double fabsl(long double) __pure2
;
402 long double fdiml(long double, long double);
403 long double floorl(long double);
404 long double fmal(long double, long double, long double);
405 long double fmaxl(long double, long double) __pure2
;
406 long double fminl(long double, long double) __pure2
;
407 // NOT IMPL long double fmodl(long double, long double);
408 long double frexpl(long double value
, int *); /* fundamentally !__pure2 */
409 // NOT IMPL long double hypotl(long double, long double);
410 int ilogbl(long double) __pure2
;
411 long double ldexpl(long double, int);
412 // NOT IMPL long double lgammal(long double);
413 // NOT IMPL long long llrintl(long double);
414 long long llroundl(long double);
415 // NOT IMPL long double log10l(long double);
416 // NOT IMPL long double log1pl(long double);
417 // NOT IMPL long double log2l(long double);
418 // NOT IMPL long double logbl(long double);
419 // NOT IMPL long double logl(long double);
420 // NOT IMPL long lrintl(long double);
421 long lroundl(long double);
422 long double modfl(long double, long double *); /* fundamentally !__pure2 */
423 // NOT IMPL long double nanl(const char *) __pure2;
424 // NOT IMPL long double nearbyintl(long double);
425 long double nextafterl(long double, long double);
426 double nexttoward(double, long double);
427 float nexttowardf(float, long double);
428 long double nexttowardl(long double, long double);
429 // NOT IMPL long double powl(long double, long double);
430 // NOT IMPL long double remainderl(long double, long double);
431 // NOT IMPL long double remquol(long double, long double, int *);
432 // NOT IMPL long double rintl(long double);
433 long double roundl(long double);
434 long double scalblnl(long double, long);
435 long double scalbnl(long double, int);
436 // NOT IMPL long double sinhl(long double);
437 // NOT IMPL long double sinl(long double);
438 // NOT IMPL long double sqrtl(long double);
439 // NOT IMPL long double tanhl(long double);
440 // NOT IMPL long double tanl(long double);
441 // NOT IMPL long double tgammal(long double);
442 long double truncl(long double);
443 long double nanl(const char *tagp
);
447 #endif /* !_MATH_H_ */