mirror of git://gcc.gnu.org/git/gcc.git
re PR libfortran/24432 (Missing symbols)
PR libfortran/24432 * c99_protos.h: Define preprocessor HAVE_ macros with value 1 instead of empty value. * intrinsics/c99_functions.c: Likewise. * intrinsics/getXid.c: Define HAVE_GETPID with value 1 instead of empty value. * intrinsics/sleep.c: Define HAVE_SLEEP with value 1 instead of empty value. From-SVN: r105603
This commit is contained in:
Francois-Xavier Coudert
François-Xavier Coudert
parent
9c5923aea7
commit
2cdc88b64d
|
|
@ -1,4 +1,14 @@
|
||||||
2005-10-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-10-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
||||||
|
|
||||||
|
* c99_protos.h: Define preprocessor HAVE_ macros with value 1
|
||||||
|
instead of empty value.
|
||||||
|
* intrinsics/c99_functions.c: Likewise.
|
||||||
|
* intrinsics/getXid.c: Define HAVE_GETPID with value 1 instead of
|
||||||
|
empty value.
|
||||||
|
* intrinsics/sleep.c: Define HAVE_SLEEP with value 1 instead of
|
||||||
|
empty value.
|
||||||
|
|
||||||
|
2005-10-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
||||||
|
|
||||||
PR libfortran/24432
|
PR libfortran/24432
|
||||||
* c99_protos.h: Define HAVE_ macros for all provided functions.
|
* c99_protos.h: Define HAVE_ macros for all provided functions.
|
||||||
|
|
|
||||||
|
|
@ -27,168 +27,168 @@ Boston, MA 02110-1301, USA. */
|
||||||
|
|
||||||
|
|
||||||
#ifndef C99_PROTOS_H
|
#ifndef C99_PROTOS_H
|
||||||
#define C99_PROTOS_H
|
#define C99_PROTOS_H 1
|
||||||
|
|
||||||
/* float variants of libm functions */
|
/* float variants of libm functions */
|
||||||
#ifndef HAVE_ACOSF
|
#ifndef HAVE_ACOSF
|
||||||
#define HAVE_ACOSF
|
#define HAVE_ACOSF 1
|
||||||
extern float acosf(float);
|
extern float acosf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ACOSHF
|
#ifndef HAVE_ACOSHF
|
||||||
#define HAVE_ACOSHF
|
#define HAVE_ACOSHF 1
|
||||||
extern float acoshf(float);
|
extern float acoshf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ASINF
|
#ifndef HAVE_ASINF
|
||||||
#define HAVE_ASINF
|
#define HAVE_ASINF 1
|
||||||
extern float asinf(float);
|
extern float asinf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ASINHF
|
#ifndef HAVE_ASINHF
|
||||||
#define HAVE_ASINHF
|
#define HAVE_ASINHF 1
|
||||||
extern float asinhf(float);
|
extern float asinhf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ATAN2F
|
#ifndef HAVE_ATAN2F
|
||||||
#define HAVE_ATAN2F
|
#define HAVE_ATAN2F 1
|
||||||
extern float atan2f(float, float);
|
extern float atan2f(float, float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ATANF
|
#ifndef HAVE_ATANF
|
||||||
#define HAVE_ATANF
|
#define HAVE_ATANF 1
|
||||||
extern float atanf(float);
|
extern float atanf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ATANHF
|
#ifndef HAVE_ATANHF
|
||||||
#define HAVE_ATANHF
|
#define HAVE_ATANHF 1
|
||||||
extern float atanhf(float);
|
extern float atanhf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_CEILF
|
#ifndef HAVE_CEILF
|
||||||
#define HAVE_CEILF
|
#define HAVE_CEILF 1
|
||||||
extern float ceilf(float);
|
extern float ceilf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COPYSIGNF
|
#ifndef HAVE_COPYSIGNF
|
||||||
#define HAVE_COPYSIGNF
|
#define HAVE_COPYSIGNF 1
|
||||||
extern float copysignf(float, float);
|
extern float copysignf(float, float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COSF
|
#ifndef HAVE_COSF
|
||||||
#define HAVE_COSF
|
#define HAVE_COSF 1
|
||||||
extern float cosf(float);
|
extern float cosf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COSHF
|
#ifndef HAVE_COSHF
|
||||||
#define HAVE_COSHF
|
#define HAVE_COSHF 1
|
||||||
extern float coshf(float);
|
extern float coshf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_EXPF
|
#ifndef HAVE_EXPF
|
||||||
#define HAVE_EXPF
|
#define HAVE_EXPF 1
|
||||||
extern float expf(float);
|
extern float expf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FABSF
|
#ifndef HAVE_FABSF
|
||||||
#define HAVE_FABSF
|
#define HAVE_FABSF 1
|
||||||
extern float fabsf(float);
|
extern float fabsf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FLOORF
|
#ifndef HAVE_FLOORF
|
||||||
#define HAVE_FLOORF
|
#define HAVE_FLOORF 1
|
||||||
extern float floorf(float);
|
extern float floorf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FREXPF
|
#ifndef HAVE_FREXPF
|
||||||
#define HAVE_FREXPF
|
#define HAVE_FREXPF 1
|
||||||
extern float frexpf(float, int *);
|
extern float frexpf(float, int *);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_HYPOTF
|
#ifndef HAVE_HYPOTF
|
||||||
#define HAVE_HYPOTF
|
#define HAVE_HYPOTF 1
|
||||||
extern float hypotf(float, float);
|
extern float hypotf(float, float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_LOGF
|
#ifndef HAVE_LOGF
|
||||||
#define HAVE_LOGF
|
#define HAVE_LOGF 1
|
||||||
extern float logf(float);
|
extern float logf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_LOG10F
|
#ifndef HAVE_LOG10F
|
||||||
#define HAVE_LOG10F
|
#define HAVE_LOG10F 1
|
||||||
extern float log10f(float);
|
extern float log10f(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SCALBN
|
#ifndef HAVE_SCALBN
|
||||||
#define HAVE_SCALBN
|
#define HAVE_SCALBN 1
|
||||||
extern double scalbn(double, int);
|
extern double scalbn(double, int);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SCALBNF
|
#ifndef HAVE_SCALBNF
|
||||||
#define HAVE_SCALBNF
|
#define HAVE_SCALBNF 1
|
||||||
extern float scalbnf(float, int);
|
extern float scalbnf(float, int);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SINF
|
#ifndef HAVE_SINF
|
||||||
#define HAVE_SINF
|
#define HAVE_SINF 1
|
||||||
extern float sinf(float);
|
extern float sinf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SINHF
|
#ifndef HAVE_SINHF
|
||||||
#define HAVE_SINHF
|
#define HAVE_SINHF 1
|
||||||
extern float sinhf(float);
|
extern float sinhf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SQRTF
|
#ifndef HAVE_SQRTF
|
||||||
#define HAVE_SQRTF
|
#define HAVE_SQRTF 1
|
||||||
extern float sqrtf(float);
|
extern float sqrtf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TANF
|
#ifndef HAVE_TANF
|
||||||
#define HAVE_TANF
|
#define HAVE_TANF 1
|
||||||
extern float tanf(float);
|
extern float tanf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TANHF
|
#ifndef HAVE_TANHF
|
||||||
#define HAVE_TANHF
|
#define HAVE_TANHF 1
|
||||||
extern float tanhf(float);
|
extern float tanhf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TRUNC
|
#ifndef HAVE_TRUNC
|
||||||
#define HAVE_TRUNC
|
#define HAVE_TRUNC 1
|
||||||
extern double trunc(double);
|
extern double trunc(double);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TRUNCF
|
#ifndef HAVE_TRUNCF
|
||||||
#define HAVE_TRUNCF
|
#define HAVE_TRUNCF 1
|
||||||
extern float truncf(float);
|
extern float truncf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_NEXTAFTERF
|
#ifndef HAVE_NEXTAFTERF
|
||||||
#define HAVE_NEXTAFTERF
|
#define HAVE_NEXTAFTERF 1
|
||||||
extern float nextafterf(float, float);
|
extern float nextafterf(float, float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_POWF
|
#ifndef HAVE_POWF
|
||||||
#define HAVE_POWF
|
#define HAVE_POWF 1
|
||||||
extern float powf(float, float);
|
extern float powf(float, float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ROUND
|
#ifndef HAVE_ROUND
|
||||||
#define HAVE_ROUND
|
#define HAVE_ROUND 1
|
||||||
extern double round(double);
|
extern double round(double);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ROUNDF
|
#ifndef HAVE_ROUNDF
|
||||||
#define HAVE_ROUNDF
|
#define HAVE_ROUNDF 1
|
||||||
extern float roundf(float);
|
extern float roundf(float);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
/* log10l is needed on all platforms for decimal I/O */
|
/* log10l is needed on all platforms for decimal I/O */
|
||||||
#ifndef HAVE_LOG10L
|
#ifndef HAVE_LOG10L
|
||||||
#define HAVE_LOG10L
|
#define HAVE_LOG10L 1
|
||||||
extern long double log10l(long double);
|
extern long double log10l(long double);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
@ -196,209 +196,209 @@ extern long double log10l(long double);
|
||||||
/* complex math functions */
|
/* complex math functions */
|
||||||
|
|
||||||
#if !defined(HAVE_CABSF)
|
#if !defined(HAVE_CABSF)
|
||||||
#define HAVE_CABSF
|
#define HAVE_CABSF 1
|
||||||
extern float cabsf (float complex);
|
extern float cabsf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CABS)
|
#if !defined(HAVE_CABS)
|
||||||
#define HAVE_CABS
|
#define HAVE_CABS 1
|
||||||
extern double cabs (double complex);
|
extern double cabs (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
|
#if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
|
||||||
#define HAVE_CABSL
|
#define HAVE_CABSL 1
|
||||||
extern long double cabsl (long double complex);
|
extern long double cabsl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CARGF)
|
#if !defined(HAVE_CARGF)
|
||||||
#define HAVE_CARGF
|
#define HAVE_CARGF 1
|
||||||
extern float cargf (float complex);
|
extern float cargf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CARG)
|
#if !defined(HAVE_CARG)
|
||||||
#define HAVE_CARG
|
#define HAVE_CARG 1
|
||||||
extern double carg (double complex);
|
extern double carg (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
|
#if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
|
||||||
#define HAVE_CARGL
|
#define HAVE_CARGL 1
|
||||||
extern long double cargl (long double complex);
|
extern long double cargl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CEXPF)
|
#if !defined(HAVE_CEXPF)
|
||||||
#define HAVE_CEXPF
|
#define HAVE_CEXPF 1
|
||||||
extern float complex cexpf (float complex);
|
extern float complex cexpf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CEXP)
|
#if !defined(HAVE_CEXP)
|
||||||
#define HAVE_CEXP
|
#define HAVE_CEXP 1
|
||||||
extern double complex cexp (double complex);
|
extern double complex cexp (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
|
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
|
||||||
#define HAVE_CEXPL
|
#define HAVE_CEXPL 1
|
||||||
extern long double complex cexpl (long double complex);
|
extern long double complex cexpl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CLOGF)
|
#if !defined(HAVE_CLOGF)
|
||||||
#define HAVE_CLOGF
|
#define HAVE_CLOGF 1
|
||||||
extern float complex clogf (float complex);
|
extern float complex clogf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG)
|
#if !defined(HAVE_CLOG)
|
||||||
#define HAVE_CLOG
|
#define HAVE_CLOG 1
|
||||||
extern double complex clog (double complex);
|
extern double complex clog (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
#if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
||||||
#define HAVE_CLOGL
|
#define HAVE_CLOGL 1
|
||||||
extern long double complex clogl (long double complex);
|
extern long double complex clogl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG10F)
|
#if !defined(HAVE_CLOG10F)
|
||||||
#define HAVE_CLOG10F
|
#define HAVE_CLOG10F 1
|
||||||
extern float complex clog10f (float complex);
|
extern float complex clog10f (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG10)
|
#if !defined(HAVE_CLOG10)
|
||||||
#define HAVE_CLOG10
|
#define HAVE_CLOG10 1
|
||||||
extern double complex clog10 (double complex);
|
extern double complex clog10 (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
#if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
||||||
#define HAVE_CLOG10L
|
#define HAVE_CLOG10L 1
|
||||||
extern long double complex clog10l (long double complex);
|
extern long double complex clog10l (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CPOWF)
|
#if !defined(HAVE_CPOWF)
|
||||||
#define HAVE_CPOWF
|
#define HAVE_CPOWF 1
|
||||||
extern float complex cpowf (float complex, float complex);
|
extern float complex cpowf (float complex, float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CPOW)
|
#if !defined(HAVE_CPOW)
|
||||||
#define HAVE_CPOW
|
#define HAVE_CPOW 1
|
||||||
extern double complex cpow (double complex, double complex);
|
extern double complex cpow (double complex, double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
|
#if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
|
||||||
#define HAVE_CPOWL
|
#define HAVE_CPOWL 1
|
||||||
extern long double complex cpowl (long double complex, long double complex);
|
extern long double complex cpowl (long double complex, long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CSQRTF)
|
#if !defined(HAVE_CSQRTF)
|
||||||
#define HAVE_CSQRTF
|
#define HAVE_CSQRTF 1
|
||||||
extern float complex csqrtf (float complex);
|
extern float complex csqrtf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSQRT)
|
#if !defined(HAVE_CSQRT)
|
||||||
#define HAVE_CSQRT
|
#define HAVE_CSQRT 1
|
||||||
extern double complex csqrt (double complex);
|
extern double complex csqrt (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
|
#if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
|
||||||
#define HAVE_CSQRTL
|
#define HAVE_CSQRTL 1
|
||||||
extern long double complex csqrtl (long double complex);
|
extern long double complex csqrtl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CSINHF)
|
#if !defined(HAVE_CSINHF)
|
||||||
#define HAVE_CSINHF
|
#define HAVE_CSINHF 1
|
||||||
extern float complex csinhf (float complex);
|
extern float complex csinhf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINH)
|
#if !defined(HAVE_CSINH)
|
||||||
#define HAVE_CSINH
|
#define HAVE_CSINH 1
|
||||||
extern double complex csinh (double complex);
|
extern double complex csinh (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CSINHL
|
#define HAVE_CSINHL 1
|
||||||
extern long double complex csinhl (long double complex);
|
extern long double complex csinhl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSHF)
|
#if !defined(HAVE_CCOSHF)
|
||||||
#define HAVE_CCOSHF
|
#define HAVE_CCOSHF 1
|
||||||
extern float complex ccoshf (float complex);
|
extern float complex ccoshf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSH)
|
#if !defined(HAVE_CCOSH)
|
||||||
#define HAVE_CCOSH
|
#define HAVE_CCOSH 1
|
||||||
extern double complex ccosh (double complex);
|
extern double complex ccosh (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CCOSHL
|
#define HAVE_CCOSHL 1
|
||||||
extern long double complex ccoshl (long double complex);
|
extern long double complex ccoshl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CTANHF)
|
#if !defined(HAVE_CTANHF)
|
||||||
#define HAVE_CTANHF
|
#define HAVE_CTANHF 1
|
||||||
extern float complex ctanhf (float complex);
|
extern float complex ctanhf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANH)
|
#if !defined(HAVE_CTANH)
|
||||||
#define HAVE_CTANH
|
#define HAVE_CTANH 1
|
||||||
extern double complex ctanh (double complex);
|
extern double complex ctanh (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
#if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
||||||
#define HAVE_CTANHL
|
#define HAVE_CTANHL 1
|
||||||
extern long double complex ctanhl (long double complex);
|
extern long double complex ctanhl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CSINF)
|
#if !defined(HAVE_CSINF)
|
||||||
#define HAVE_CSINF
|
#define HAVE_CSINF 1
|
||||||
extern float complex csinf (float complex);
|
extern float complex csinf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSIN)
|
#if !defined(HAVE_CSIN)
|
||||||
#define HAVE_CSIN
|
#define HAVE_CSIN 1
|
||||||
extern double complex csin (double complex);
|
extern double complex csin (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CSINL
|
#define HAVE_CSINL 1
|
||||||
extern long double complex csinl (long double complex);
|
extern long double complex csinl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSF)
|
#if !defined(HAVE_CCOSF)
|
||||||
#define HAVE_CCOSF
|
#define HAVE_CCOSF 1
|
||||||
extern float complex ccosf (float complex);
|
extern float complex ccosf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOS)
|
#if !defined(HAVE_CCOS)
|
||||||
#define HAVE_CCOS
|
#define HAVE_CCOS 1
|
||||||
extern double complex ccos (double complex);
|
extern double complex ccos (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CCOSL
|
#define HAVE_CCOSL 1
|
||||||
extern long double complex ccosl (long double complex);
|
extern long double complex ccosl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CTANF)
|
#if !defined(HAVE_CTANF)
|
||||||
#define HAVE_CTANF
|
#define HAVE_CTANF 1
|
||||||
extern float complex ctanf (float complex);
|
extern float complex ctanf (float complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTAN)
|
#if !defined(HAVE_CTAN)
|
||||||
#define HAVE_CTAN
|
#define HAVE_CTAN 1
|
||||||
extern double complex ctan (double complex);
|
extern double complex ctan (double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
#if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
||||||
#define HAVE_CTANL
|
#define HAVE_CTANL 1
|
||||||
extern long double complex ctanl (long double complex);
|
extern long double complex ctanl (long double complex);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -37,7 +37,7 @@ Boston, MA 02110-1301, USA. */
|
||||||
|
|
||||||
|
|
||||||
#ifndef HAVE_ACOSF
|
#ifndef HAVE_ACOSF
|
||||||
#define HAVE_ACOSF
|
#define HAVE_ACOSF 1
|
||||||
float
|
float
|
||||||
acosf(float x)
|
acosf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -46,7 +46,7 @@ acosf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ASINF
|
#ifndef HAVE_ASINF
|
||||||
#define HAVE_ASINF
|
#define HAVE_ASINF 1
|
||||||
float
|
float
|
||||||
asinf(float x)
|
asinf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -55,7 +55,7 @@ asinf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ATAN2F
|
#ifndef HAVE_ATAN2F
|
||||||
#define HAVE_ATAN2F
|
#define HAVE_ATAN2F 1
|
||||||
float
|
float
|
||||||
atan2f(float y, float x)
|
atan2f(float y, float x)
|
||||||
{
|
{
|
||||||
|
|
@ -64,7 +64,7 @@ atan2f(float y, float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ATANF
|
#ifndef HAVE_ATANF
|
||||||
#define HAVE_ATANF
|
#define HAVE_ATANF 1
|
||||||
float
|
float
|
||||||
atanf(float x)
|
atanf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -73,7 +73,7 @@ atanf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_CEILF
|
#ifndef HAVE_CEILF
|
||||||
#define HAVE_CEILF
|
#define HAVE_CEILF 1
|
||||||
float
|
float
|
||||||
ceilf(float x)
|
ceilf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -82,7 +82,7 @@ ceilf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COPYSIGNF
|
#ifndef HAVE_COPYSIGNF
|
||||||
#define HAVE_COPYSIGNF
|
#define HAVE_COPYSIGNF 1
|
||||||
float
|
float
|
||||||
copysignf(float x, float y)
|
copysignf(float x, float y)
|
||||||
{
|
{
|
||||||
|
|
@ -91,7 +91,7 @@ copysignf(float x, float y)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COSF
|
#ifndef HAVE_COSF
|
||||||
#define HAVE_COSF
|
#define HAVE_COSF 1
|
||||||
float
|
float
|
||||||
cosf(float x)
|
cosf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -100,7 +100,7 @@ cosf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_COSHF
|
#ifndef HAVE_COSHF
|
||||||
#define HAVE_COSHF
|
#define HAVE_COSHF 1
|
||||||
float
|
float
|
||||||
coshf(float x)
|
coshf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -109,7 +109,7 @@ coshf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_EXPF
|
#ifndef HAVE_EXPF
|
||||||
#define HAVE_EXPF
|
#define HAVE_EXPF 1
|
||||||
float
|
float
|
||||||
expf(float x)
|
expf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -118,7 +118,7 @@ expf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FABSF
|
#ifndef HAVE_FABSF
|
||||||
#define HAVE_FABSF
|
#define HAVE_FABSF 1
|
||||||
float
|
float
|
||||||
fabsf(float x)
|
fabsf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -127,7 +127,7 @@ fabsf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FLOORF
|
#ifndef HAVE_FLOORF
|
||||||
#define HAVE_FLOORF
|
#define HAVE_FLOORF 1
|
||||||
float
|
float
|
||||||
floorf(float x)
|
floorf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -136,7 +136,7 @@ floorf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_FREXPF
|
#ifndef HAVE_FREXPF
|
||||||
#define HAVE_FREXPF
|
#define HAVE_FREXPF 1
|
||||||
float
|
float
|
||||||
frexpf(float x, int *exp)
|
frexpf(float x, int *exp)
|
||||||
{
|
{
|
||||||
|
|
@ -145,7 +145,7 @@ frexpf(float x, int *exp)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_HYPOTF
|
#ifndef HAVE_HYPOTF
|
||||||
#define HAVE_HYPOTF
|
#define HAVE_HYPOTF 1
|
||||||
float
|
float
|
||||||
hypotf(float x, float y)
|
hypotf(float x, float y)
|
||||||
{
|
{
|
||||||
|
|
@ -154,7 +154,7 @@ hypotf(float x, float y)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_LOGF
|
#ifndef HAVE_LOGF
|
||||||
#define HAVE_LOGF
|
#define HAVE_LOGF 1
|
||||||
float
|
float
|
||||||
logf(float x)
|
logf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -163,7 +163,7 @@ logf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_LOG10F
|
#ifndef HAVE_LOG10F
|
||||||
#define HAVE_LOG10F
|
#define HAVE_LOG10F 1
|
||||||
float
|
float
|
||||||
log10f(float x)
|
log10f(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -172,7 +172,7 @@ log10f(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SCALBN
|
#ifndef HAVE_SCALBN
|
||||||
#define HAVE_SCALBN
|
#define HAVE_SCALBN 1
|
||||||
double
|
double
|
||||||
scalbn(double x, int y)
|
scalbn(double x, int y)
|
||||||
{
|
{
|
||||||
|
|
@ -181,7 +181,7 @@ scalbn(double x, int y)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SCALBNF
|
#ifndef HAVE_SCALBNF
|
||||||
#define HAVE_SCALBNF
|
#define HAVE_SCALBNF 1
|
||||||
float
|
float
|
||||||
scalbnf(float x, int y)
|
scalbnf(float x, int y)
|
||||||
{
|
{
|
||||||
|
|
@ -190,7 +190,7 @@ scalbnf(float x, int y)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SINF
|
#ifndef HAVE_SINF
|
||||||
#define HAVE_SINF
|
#define HAVE_SINF 1
|
||||||
float
|
float
|
||||||
sinf(float x)
|
sinf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -199,7 +199,7 @@ sinf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SINHF
|
#ifndef HAVE_SINHF
|
||||||
#define HAVE_SINHF
|
#define HAVE_SINHF 1
|
||||||
float
|
float
|
||||||
sinhf(float x)
|
sinhf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -208,7 +208,7 @@ sinhf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_SQRTF
|
#ifndef HAVE_SQRTF
|
||||||
#define HAVE_SQRTF
|
#define HAVE_SQRTF 1
|
||||||
float
|
float
|
||||||
sqrtf(float x)
|
sqrtf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -217,7 +217,7 @@ sqrtf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TANF
|
#ifndef HAVE_TANF
|
||||||
#define HAVE_TANF
|
#define HAVE_TANF 1
|
||||||
float
|
float
|
||||||
tanf(float x)
|
tanf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -226,7 +226,7 @@ tanf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TANHF
|
#ifndef HAVE_TANHF
|
||||||
#define HAVE_TANHF
|
#define HAVE_TANHF 1
|
||||||
float
|
float
|
||||||
tanhf(float x)
|
tanhf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -235,7 +235,7 @@ tanhf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TRUNC
|
#ifndef HAVE_TRUNC
|
||||||
#define HAVE_TRUNC
|
#define HAVE_TRUNC 1
|
||||||
double
|
double
|
||||||
trunc(double x)
|
trunc(double x)
|
||||||
{
|
{
|
||||||
|
|
@ -250,7 +250,7 @@ trunc(double x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_TRUNCF
|
#ifndef HAVE_TRUNCF
|
||||||
#define HAVE_TRUNCF
|
#define HAVE_TRUNCF 1
|
||||||
float
|
float
|
||||||
truncf(float x)
|
truncf(float x)
|
||||||
{
|
{
|
||||||
|
|
@ -259,7 +259,7 @@ truncf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_NEXTAFTERF
|
#ifndef HAVE_NEXTAFTERF
|
||||||
#define HAVE_NEXTAFTERF
|
#define HAVE_NEXTAFTERF 1
|
||||||
/* This is a portable implementation of nextafterf that is intended to be
|
/* This is a portable implementation of nextafterf that is intended to be
|
||||||
independent of the floating point format or its in memory representation.
|
independent of the floating point format or its in memory representation.
|
||||||
This implementation works correctly with denormalized values. */
|
This implementation works correctly with denormalized values. */
|
||||||
|
|
@ -323,7 +323,7 @@ nextafterf(float x, float y)
|
||||||
|
|
||||||
|
|
||||||
#ifndef HAVE_POWF
|
#ifndef HAVE_POWF
|
||||||
#define HAVE_POWF
|
#define HAVE_POWF 1
|
||||||
float
|
float
|
||||||
powf(float x, float y)
|
powf(float x, float y)
|
||||||
{
|
{
|
||||||
|
|
@ -336,7 +336,7 @@ powf(float x, float y)
|
||||||
/* Algorithm by Steven G. Kargl. */
|
/* Algorithm by Steven G. Kargl. */
|
||||||
|
|
||||||
#ifndef HAVE_ROUND
|
#ifndef HAVE_ROUND
|
||||||
#define HAVE_ROUND
|
#define HAVE_ROUND 1
|
||||||
/* Round to nearest integral value. If the argument is halfway between two
|
/* Round to nearest integral value. If the argument is halfway between two
|
||||||
integral values then round away from zero. */
|
integral values then round away from zero. */
|
||||||
|
|
||||||
|
|
@ -365,7 +365,7 @@ round(double x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_ROUNDF
|
#ifndef HAVE_ROUNDF
|
||||||
#define HAVE_ROUNDF
|
#define HAVE_ROUNDF 1
|
||||||
/* Round to nearest integral value. If the argument is halfway between two
|
/* Round to nearest integral value. If the argument is halfway between two
|
||||||
integral values then round away from zero. */
|
integral values then round away from zero. */
|
||||||
|
|
||||||
|
|
@ -394,7 +394,7 @@ roundf(float x)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#ifndef HAVE_LOG10L
|
#ifndef HAVE_LOG10L
|
||||||
#define HAVE_LOG10L
|
#define HAVE_LOG10L 1
|
||||||
/* log10 function for long double variables. The version provided here
|
/* log10 function for long double variables. The version provided here
|
||||||
reduces the argument until it fits into a double, then use log10. */
|
reduces the argument until it fits into a double, then use log10. */
|
||||||
long double
|
long double
|
||||||
|
|
@ -434,7 +434,7 @@ log10l(long double x)
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CABSF)
|
#if !defined(HAVE_CABSF)
|
||||||
#define HAVE_CABSF
|
#define HAVE_CABSF 1
|
||||||
float
|
float
|
||||||
cabsf (float complex z)
|
cabsf (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -443,7 +443,7 @@ cabsf (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CABS)
|
#if !defined(HAVE_CABS)
|
||||||
#define HAVE_CABS
|
#define HAVE_CABS 1
|
||||||
double
|
double
|
||||||
cabs (double complex z)
|
cabs (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -452,7 +452,7 @@ cabs (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
|
#if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
|
||||||
#define HAVE_CABSL
|
#define HAVE_CABSL 1
|
||||||
long double
|
long double
|
||||||
cabsl (long double complex z)
|
cabsl (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -462,7 +462,7 @@ cabsl (long double complex z)
|
||||||
|
|
||||||
|
|
||||||
#if !defined(HAVE_CARGF)
|
#if !defined(HAVE_CARGF)
|
||||||
#define HAVE_CARGF
|
#define HAVE_CARGF 1
|
||||||
float
|
float
|
||||||
cargf (float complex z)
|
cargf (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -471,7 +471,7 @@ cargf (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CARG)
|
#if !defined(HAVE_CARG)
|
||||||
#define HAVE_CARG
|
#define HAVE_CARG 1
|
||||||
double
|
double
|
||||||
carg (double complex z)
|
carg (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -480,7 +480,7 @@ carg (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
|
#if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
|
||||||
#define HAVE_CARGL
|
#define HAVE_CARGL 1
|
||||||
long double
|
long double
|
||||||
cargl (long double complex z)
|
cargl (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -491,7 +491,7 @@ cargl (long double complex z)
|
||||||
|
|
||||||
/* exp(z) = exp(a)*(cos(b) + i sin(b)) */
|
/* exp(z) = exp(a)*(cos(b) + i sin(b)) */
|
||||||
#if !defined(HAVE_CEXPF)
|
#if !defined(HAVE_CEXPF)
|
||||||
#define HAVE_CEXPF
|
#define HAVE_CEXPF 1
|
||||||
float complex
|
float complex
|
||||||
cexpf (float complex z)
|
cexpf (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -506,7 +506,7 @@ cexpf (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CEXP)
|
#if !defined(HAVE_CEXP)
|
||||||
#define HAVE_CEXP
|
#define HAVE_CEXP 1
|
||||||
double complex
|
double complex
|
||||||
cexp (double complex z)
|
cexp (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -521,7 +521,7 @@ cexp (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
|
#if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
|
||||||
#define HAVE_CEXPL
|
#define HAVE_CEXPL 1
|
||||||
long double complex
|
long double complex
|
||||||
cexpl (long double complex z)
|
cexpl (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -538,7 +538,7 @@ cexpl (long double complex z)
|
||||||
|
|
||||||
/* log(z) = log (cabs(z)) + i*carg(z) */
|
/* log(z) = log (cabs(z)) + i*carg(z) */
|
||||||
#if !defined(HAVE_CLOGF)
|
#if !defined(HAVE_CLOGF)
|
||||||
#define HAVE_CLOGF
|
#define HAVE_CLOGF 1
|
||||||
float complex
|
float complex
|
||||||
clogf (float complex z)
|
clogf (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -550,7 +550,7 @@ clogf (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG)
|
#if !defined(HAVE_CLOG)
|
||||||
#define HAVE_CLOG
|
#define HAVE_CLOG 1
|
||||||
double complex
|
double complex
|
||||||
clog (double complex z)
|
clog (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -562,7 +562,7 @@ clog (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
#if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
||||||
#define HAVE_CLOGL
|
#define HAVE_CLOGL 1
|
||||||
long double complex
|
long double complex
|
||||||
clogl (long double complex z)
|
clogl (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -576,7 +576,7 @@ clogl (long double complex z)
|
||||||
|
|
||||||
/* log10(z) = log10 (cabs(z)) + i*carg(z) */
|
/* log10(z) = log10 (cabs(z)) + i*carg(z) */
|
||||||
#if !defined(HAVE_CLOG10F)
|
#if !defined(HAVE_CLOG10F)
|
||||||
#define HAVE_CLOG10F
|
#define HAVE_CLOG10F 1
|
||||||
float complex
|
float complex
|
||||||
clog10f (float complex z)
|
clog10f (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -588,7 +588,7 @@ clog10f (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG10)
|
#if !defined(HAVE_CLOG10)
|
||||||
#define HAVE_CLOG10
|
#define HAVE_CLOG10 1
|
||||||
double complex
|
double complex
|
||||||
clog10 (double complex z)
|
clog10 (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -600,7 +600,7 @@ clog10 (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
#if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
|
||||||
#define HAVE_CLOG10L
|
#define HAVE_CLOG10L 1
|
||||||
long double complex
|
long double complex
|
||||||
clog10l (long double complex z)
|
clog10l (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -614,7 +614,7 @@ clog10l (long double complex z)
|
||||||
|
|
||||||
/* pow(base, power) = cexp (power * clog (base)) */
|
/* pow(base, power) = cexp (power * clog (base)) */
|
||||||
#if !defined(HAVE_CPOWF)
|
#if !defined(HAVE_CPOWF)
|
||||||
#define HAVE_CPOWF
|
#define HAVE_CPOWF 1
|
||||||
float complex
|
float complex
|
||||||
cpowf (float complex base, float complex power)
|
cpowf (float complex base, float complex power)
|
||||||
{
|
{
|
||||||
|
|
@ -623,7 +623,7 @@ cpowf (float complex base, float complex power)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CPOW)
|
#if !defined(HAVE_CPOW)
|
||||||
#define HAVE_CPOW
|
#define HAVE_CPOW 1
|
||||||
double complex
|
double complex
|
||||||
cpow (double complex base, double complex power)
|
cpow (double complex base, double complex power)
|
||||||
{
|
{
|
||||||
|
|
@ -632,7 +632,7 @@ cpow (double complex base, double complex power)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
|
#if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
|
||||||
#define HAVE_CPOWL
|
#define HAVE_CPOWL 1
|
||||||
long double complex
|
long double complex
|
||||||
cpowl (long double complex base, long double complex power)
|
cpowl (long double complex base, long double complex power)
|
||||||
{
|
{
|
||||||
|
|
@ -643,7 +643,7 @@ cpowl (long double complex base, long double complex power)
|
||||||
|
|
||||||
/* sqrt(z). Algorithm pulled from glibc. */
|
/* sqrt(z). Algorithm pulled from glibc. */
|
||||||
#if !defined(HAVE_CSQRTF)
|
#if !defined(HAVE_CSQRTF)
|
||||||
#define HAVE_CSQRTF
|
#define HAVE_CSQRTF 1
|
||||||
float complex
|
float complex
|
||||||
csqrtf (float complex z)
|
csqrtf (float complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -696,7 +696,7 @@ csqrtf (float complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSQRT)
|
#if !defined(HAVE_CSQRT)
|
||||||
#define HAVE_CSQRT
|
#define HAVE_CSQRT 1
|
||||||
double complex
|
double complex
|
||||||
csqrt (double complex z)
|
csqrt (double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -749,7 +749,7 @@ csqrt (double complex z)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
|
#if !defined(HAVE_CSQRTL) && defined(HAVE_COPYSIGNL) && defined(HAVE_SQRTL) && defined(HAVE_FABSL) && defined(HAVE_HYPOTL)
|
||||||
#define HAVE_CSQRTL
|
#define HAVE_CSQRTL 1
|
||||||
long double complex
|
long double complex
|
||||||
csqrtl (long double complex z)
|
csqrtl (long double complex z)
|
||||||
{
|
{
|
||||||
|
|
@ -804,7 +804,7 @@ csqrtl (long double complex z)
|
||||||
|
|
||||||
/* sinh(a + i b) = sinh(a) cos(b) + i cosh(a) sin(b) */
|
/* sinh(a + i b) = sinh(a) cos(b) + i cosh(a) sin(b) */
|
||||||
#if !defined(HAVE_CSINHF)
|
#if !defined(HAVE_CSINHF)
|
||||||
#define HAVE_CSINHF
|
#define HAVE_CSINHF 1
|
||||||
float complex
|
float complex
|
||||||
csinhf (float complex a)
|
csinhf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -819,7 +819,7 @@ csinhf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINH)
|
#if !defined(HAVE_CSINH)
|
||||||
#define HAVE_CSINH
|
#define HAVE_CSINH 1
|
||||||
double complex
|
double complex
|
||||||
csinh (double complex a)
|
csinh (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -834,7 +834,7 @@ csinh (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CSINHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CSINHL
|
#define HAVE_CSINHL 1
|
||||||
long double complex
|
long double complex
|
||||||
csinhl (long double complex a)
|
csinhl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -851,7 +851,7 @@ csinhl (long double complex a)
|
||||||
|
|
||||||
/* cosh(a + i b) = cosh(a) cos(b) - i sinh(a) sin(b) */
|
/* cosh(a + i b) = cosh(a) cos(b) - i sinh(a) sin(b) */
|
||||||
#if !defined(HAVE_CCOSHF)
|
#if !defined(HAVE_CCOSHF)
|
||||||
#define HAVE_CCOSHF
|
#define HAVE_CCOSHF 1
|
||||||
float complex
|
float complex
|
||||||
ccoshf (float complex a)
|
ccoshf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -866,7 +866,7 @@ ccoshf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSH)
|
#if !defined(HAVE_CCOSH)
|
||||||
#define HAVE_CCOSH
|
#define HAVE_CCOSH 1
|
||||||
double complex
|
double complex
|
||||||
ccosh (double complex a)
|
ccosh (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -881,7 +881,7 @@ ccosh (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CCOSHL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CCOSHL
|
#define HAVE_CCOSHL 1
|
||||||
long double complex
|
long double complex
|
||||||
ccoshl (long double complex a)
|
ccoshl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -898,7 +898,7 @@ ccoshl (long double complex a)
|
||||||
|
|
||||||
/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 - i tanh(a) tan(b)) */
|
/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 - i tanh(a) tan(b)) */
|
||||||
#if !defined(HAVE_CTANHF)
|
#if !defined(HAVE_CTANHF)
|
||||||
#define HAVE_CTANHF
|
#define HAVE_CTANHF 1
|
||||||
float complex
|
float complex
|
||||||
ctanhf (float complex a)
|
ctanhf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -915,7 +915,7 @@ ctanhf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANH)
|
#if !defined(HAVE_CTANH)
|
||||||
#define HAVE_CTANH
|
#define HAVE_CTANH 1
|
||||||
double complex
|
double complex
|
||||||
ctanh (double complex a)
|
ctanh (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -932,7 +932,7 @@ ctanh (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
#if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
||||||
#define HAVE_CTANHL
|
#define HAVE_CTANHL 1
|
||||||
long double complex
|
long double complex
|
||||||
ctanhl (long double complex a)
|
ctanhl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -951,7 +951,7 @@ ctanhl (long double complex a)
|
||||||
|
|
||||||
/* sin(a + i b) = sin(a) cosh(b) + i cos(a) sinh(b) */
|
/* sin(a + i b) = sin(a) cosh(b) + i cos(a) sinh(b) */
|
||||||
#if !defined(HAVE_CSINF)
|
#if !defined(HAVE_CSINF)
|
||||||
#define HAVE_CSINF
|
#define HAVE_CSINF 1
|
||||||
float complex
|
float complex
|
||||||
csinf (float complex a)
|
csinf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -966,7 +966,7 @@ csinf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSIN)
|
#if !defined(HAVE_CSIN)
|
||||||
#define HAVE_CSIN
|
#define HAVE_CSIN 1
|
||||||
double complex
|
double complex
|
||||||
csin (double complex a)
|
csin (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -981,7 +981,7 @@ csin (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CSINL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CSINL
|
#define HAVE_CSINL 1
|
||||||
long double complex
|
long double complex
|
||||||
csinl (long double complex a)
|
csinl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -998,7 +998,7 @@ csinl (long double complex a)
|
||||||
|
|
||||||
/* cos(a + i b) = cos(a) cosh(b) - i sin(a) sinh(b) */
|
/* cos(a + i b) = cos(a) cosh(b) - i sin(a) sinh(b) */
|
||||||
#if !defined(HAVE_CCOSF)
|
#if !defined(HAVE_CCOSF)
|
||||||
#define HAVE_CCOSF
|
#define HAVE_CCOSF 1
|
||||||
float complex
|
float complex
|
||||||
ccosf (float complex a)
|
ccosf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -1013,7 +1013,7 @@ ccosf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOS)
|
#if !defined(HAVE_CCOS)
|
||||||
#define HAVE_CCOS
|
#define HAVE_CCOS 1
|
||||||
double complex
|
double complex
|
||||||
ccos (double complex a)
|
ccos (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -1028,7 +1028,7 @@ ccos (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
#if !defined(HAVE_CCOSL) && defined(HAVE_COSL) && defined(HAVE_COSHL) && defined(HAVE_SINL) && defined(HAVE_SINHL)
|
||||||
#define HAVE_CCOSL
|
#define HAVE_CCOSL 1
|
||||||
long double complex
|
long double complex
|
||||||
ccosl (long double complex a)
|
ccosl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -1045,7 +1045,7 @@ ccosl (long double complex a)
|
||||||
|
|
||||||
/* tan(a + i b) = (tan(a) + i tanh(b)) / (1 - i tan(a) tanh(b)) */
|
/* tan(a + i b) = (tan(a) + i tanh(b)) / (1 - i tan(a) tanh(b)) */
|
||||||
#if !defined(HAVE_CTANF)
|
#if !defined(HAVE_CTANF)
|
||||||
#define HAVE_CTANF
|
#define HAVE_CTANF 1
|
||||||
float complex
|
float complex
|
||||||
ctanf (float complex a)
|
ctanf (float complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -1062,7 +1062,7 @@ ctanf (float complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTAN)
|
#if !defined(HAVE_CTAN)
|
||||||
#define HAVE_CTAN
|
#define HAVE_CTAN 1
|
||||||
double complex
|
double complex
|
||||||
ctan (double complex a)
|
ctan (double complex a)
|
||||||
{
|
{
|
||||||
|
|
@ -1079,7 +1079,7 @@ ctan (double complex a)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
#if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
|
||||||
#define HAVE_CTANL
|
#define HAVE_CTANL 1
|
||||||
long double complex
|
long double complex
|
||||||
ctanl (long double complex a)
|
ctanl (long double complex a)
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -39,7 +39,7 @@ Boston, MA 02110-1301, USA. */
|
||||||
#include "libgfortran.h"
|
#include "libgfortran.h"
|
||||||
|
|
||||||
#ifdef __MINGW32__
|
#ifdef __MINGW32__
|
||||||
#define HAVE_GETPID
|
#define HAVE_GETPID 1
|
||||||
#include <process.h>
|
#include <process.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -43,7 +43,7 @@ Boston, MA 02110-1301, USA. */
|
||||||
# include <windows.h>
|
# include <windows.h>
|
||||||
# undef sleep
|
# undef sleep
|
||||||
# define sleep(x) Sleep(1000*(x))
|
# define sleep(x) Sleep(1000*(x))
|
||||||
# define HAVE_SLEEP
|
# define HAVE_SLEEP 1
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
/* SUBROUTINE SLEEP(SECONDS)
|
/* SUBROUTINE SLEEP(SECONDS)
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue