25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * CDDL HEADER START
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * The contents of this file are subject to the terms of the
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Common Development and Distribution License (the "License").
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * You may not use this file except in compliance with the License.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * or http://www.opensolaris.org/os/licensing.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * See the License for the specific language governing permissions
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * and limitations under the License.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * When distributing Covered Code, include this CDDL HEADER in each
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * If applicable, add the following below this CDDL HEADER, with the
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * fields enclosed by brackets "[]" replaced with your own identifying
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * information: Portions Copyright [yyyy] [name of copyright owner]
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * CDDL HEADER END
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Use is subject to license terms.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* !defined(__P) */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || defined(_XOPEN_SOURCE) || \
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis !defined(_STRICT_STDC) && !defined(_POSIX_C_SOURCE)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define MAXFLOAT ((float)3.40282346638528860e+38)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisenum version {libm_ieee = -1, c_issue_4, ansi_1, strict_ansi};
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis double x1 = (double)(TYPE)X, x2 = X - x1; \
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis X = x1 - (XN) * (C1); X += x2; X -= (XN) * (C2); }
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY1(x, c) ((c)[0] * (x) + (c)[1])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY2(x, c) (_POLY1((x), (c)) * (x) + (c)[2])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY3(x, c) (_POLY2((x), (c)) * (x) + (c)[3])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY4(x, c) (_POLY3((x), (c)) * (x) + (c)[4])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY5(x, c) (_POLY4((x), (c)) * (x) + (c)[5])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY6(x, c) (_POLY5((x), (c)) * (x) + (c)[6])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY7(x, c) (_POLY6((x), (c)) * (x) + (c)[7])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY8(x, c) (_POLY7((x), (c)) * (x) + (c)[8])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#define _POLY9(x, c) (_POLY8((x), (c)) * (x) + (c)[9])
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE) */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* BEGIN adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(erf, erfc, hypot)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(erf, erfc, hypot)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if !defined(_STDC_C99) && _XOPEN_SOURCE - 0 < 600 && !defined(__C99FEATURES__)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* END adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || _XOPEN_SOURCE - 0 < 600
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double gamma __P((double)); /* deprecated; use lgamma */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(j0, j1, jn, y0, y1, yn)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(j0, j1, jn, y0, y1, yn)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(j0, j1, jn, y0, y1, yn)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE) || \
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis defined(_XOPEN_SOURCE) && _XOPEN_SOURCE_EXTENDED - 0 == 1
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * SVID & XPG 4.2/5
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* BEGIN adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double nextafter __P((double, double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double remainder __P((double, double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(acosh, asinh, atanh, cbrt)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(logb, nextafter, remainder)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(expm1, ilogb, log1p, rint)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(acosh, asinh, atanh, cbrt)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(logb, nextafter, remainder)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(expm1, ilogb, log1p, rint)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(acosh, asinh, atanh, cbrt)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(logb, nextafter, remainder)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(expm1, ilogb, log1p, rint)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* END adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE) || ... */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern int matherr __P((struct exception *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * IEEE Test Vector
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(significand)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(significand)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern int signgamf; /* deprecated; use signgam */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern int signgaml; /* deprecated; use signgam */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern float gammaf __P((float)); /* deprecated; use lgammaf */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern float gammaf_r __P((float, int *)); /* deprecated; use lgammaf_r */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern float lgammaf_r __P((float, int *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double gammal __P((long double)); /* deprecated; use lgammal */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double gammal_r __P((long double, int *)); /* deprecated */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double jnl __P((int, long double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double lgammal_r __P((long double, int *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double scalbl __P((long double, long double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double significandl __P((long double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern long double ynl __P((int, long double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(isnanf, isnanl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(isnanf, isnanl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(gammaf_r, j0f, j1f, jnf, lgammaf_r, scalbf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(significandf, y0f, y1f, ynf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(j0f, j1f, jnf, scalbf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(significandf, y0f, y1f, ynf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(j0f, j1f, jnf, scalbf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(significandf, y0f, y1f, ynf)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(gammal_r, j0l, j1l, jnl, lgammal_r, scalbl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(significandl, y0l, y1l, ynl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(j0l, j1l, jnl, scalbl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(significandl, y0l, y1l, ynl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(j0l, j1l, jnl, scalbl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma no_side_effect(significandl, y0l, y1l, ynl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * for sin+cos->sincos transformation
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern void sincos __P((double, double *, double *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern void sincosf __P((float, float *, float *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern void sincosl __P((long double, long double *, long double *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(sincos, sincosf, sincosl)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* BEGIN adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Functions callable from C, intended to support IEEE arithmetic.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double copysign __P((double, double));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(copysign, scalbn)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_write_global_data(copysign, scalbn)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* END adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * Reentrant version of gamma & lgamma; passes signgam back by reference
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis * as the second argument; user must allocate space for signgam.
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double gamma_r __P((double, int *)); /* deprecated; use lgamma_r */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtisextern double lgamma_r __P((double, int *));
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#pragma does_not_read_global_data(gamma_r, lgamma_r)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* BEGIN adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis/* END adopted by C99 */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__EXTENSIONS__) || !defined(__cplusplus)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* defined(__EXTENSIONS__) || !defined(_XOPEN_SOURCE) */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* defined(__EXTENSIONS__) || defined(_XOPEN_SOURCE) || ... */
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#if defined(__cplusplus) && defined(__GNUC__)
25c28e83beb90e7c80452a7c818c5e6f73a07dc8Piotr Jasiukajtis#endif /* _MATH_H */