Commit 2cdc88b6 by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
parent 9c5923ae
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. */ ...@@ -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); ...@@ -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. */ ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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) ...@@ -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. */ ...@@ -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. */ ...@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment