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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d2993e00163a6e7bac208865808321a95f1a7013..4c5dc9b548094afa0385f37ae4aad7417a1c6410 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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
        * c99_protos.h: Define HAVE_ macros for all provided functions.

diff --git a/libgfortran/c99_protos.h b/libgfortran/c99_protos.h
index 9152146d19aac514d011e6f8bcbed74dc34e9d44..96f99150666d6410b5c48f4d35d23cee3ec9f64c 100644 (file)
--- a/libgfortran/c99_protos.h
+++ b/libgfortran/c99_protos.h
@@ -27,168 +27,168 @@ Boston, MA 02110-1301, USA.  */
 
 
 #ifndef C99_PROTOS_H
-#define C99_PROTOS_H
+#define C99_PROTOS_H 1
 
 /* float variants of libm functions */
 #ifndef HAVE_ACOSF
-#define HAVE_ACOSF
+#define HAVE_ACOSF 1
 extern float acosf(float);
 #endif
 
 #ifndef HAVE_ACOSHF
-#define HAVE_ACOSHF
+#define HAVE_ACOSHF 1
 extern float acoshf(float);
 #endif
 
 #ifndef HAVE_ASINF
-#define HAVE_ASINF
+#define HAVE_ASINF 1
 extern float asinf(float);
 #endif
 
 #ifndef HAVE_ASINHF
-#define HAVE_ASINHF
+#define HAVE_ASINHF 1
 extern float asinhf(float);
 #endif
 
 #ifndef HAVE_ATAN2F
-#define HAVE_ATAN2F
+#define HAVE_ATAN2F 1
 extern float atan2f(float, float);
 #endif
 
 #ifndef HAVE_ATANF
-#define HAVE_ATANF
+#define HAVE_ATANF 1
 extern float atanf(float);
 #endif
 
 #ifndef HAVE_ATANHF
-#define HAVE_ATANHF
+#define HAVE_ATANHF 1
 extern float atanhf(float);
 #endif
 
 #ifndef HAVE_CEILF
-#define HAVE_CEILF
+#define HAVE_CEILF 1
 extern float ceilf(float);
 #endif
 
 #ifndef HAVE_COPYSIGNF
-#define HAVE_COPYSIGNF
+#define HAVE_COPYSIGNF 1
 extern float copysignf(float, float);
 #endif
 
 #ifndef HAVE_COSF
-#define HAVE_COSF
+#define HAVE_COSF 1
 extern float cosf(float);
 #endif
 
 #ifndef HAVE_COSHF
-#define HAVE_COSHF
+#define HAVE_COSHF 1
 extern float coshf(float);
 #endif
 
 #ifndef HAVE_EXPF
-#define HAVE_EXPF
+#define HAVE_EXPF 1
 extern float expf(float);
 #endif
 
 #ifndef HAVE_FABSF
-#define HAVE_FABSF
+#define HAVE_FABSF 1
 extern float fabsf(float);
 #endif
 
 #ifndef HAVE_FLOORF
-#define HAVE_FLOORF
+#define HAVE_FLOORF 1
 extern float floorf(float);
 #endif
 
 #ifndef HAVE_FREXPF
-#define HAVE_FREXPF
+#define HAVE_FREXPF 1
 extern float frexpf(float, int *);
 #endif
 
 #ifndef HAVE_HYPOTF
-#define HAVE_HYPOTF
+#define HAVE_HYPOTF 1
 extern float hypotf(float, float);
 #endif
 
 #ifndef HAVE_LOGF
-#define HAVE_LOGF
+#define HAVE_LOGF 1
 extern float logf(float);
 #endif
 
 #ifndef HAVE_LOG10F
-#define HAVE_LOG10F
+#define HAVE_LOG10F 1
 extern float log10f(float);
 #endif
 
 #ifndef HAVE_SCALBN
-#define HAVE_SCALBN
+#define HAVE_SCALBN 1
 extern double scalbn(double, int);
 #endif
 
 #ifndef HAVE_SCALBNF
-#define HAVE_SCALBNF
+#define HAVE_SCALBNF 1
 extern float scalbnf(float, int);
 #endif
 
 #ifndef HAVE_SINF
-#define HAVE_SINF
+#define HAVE_SINF 1
 extern float sinf(float);
 #endif
 
 #ifndef HAVE_SINHF
-#define HAVE_SINHF
+#define HAVE_SINHF 1
 extern float sinhf(float);
 #endif
 
 #ifndef HAVE_SQRTF
-#define HAVE_SQRTF
+#define HAVE_SQRTF 1
 extern float sqrtf(float);
 #endif
 
 #ifndef HAVE_TANF
-#define HAVE_TANF
+#define HAVE_TANF 1
 extern float tanf(float);
 #endif
 
 #ifndef HAVE_TANHF
-#define HAVE_TANHF
+#define HAVE_TANHF 1
 extern float tanhf(float);
 #endif
 
 #ifndef HAVE_TRUNC
-#define HAVE_TRUNC
+#define HAVE_TRUNC 1
 extern double trunc(double);
 #endif
 
 #ifndef HAVE_TRUNCF
-#define HAVE_TRUNCF
+#define HAVE_TRUNCF 1
 extern float truncf(float);
 #endif
 
 #ifndef HAVE_NEXTAFTERF
-#define HAVE_NEXTAFTERF
+#define HAVE_NEXTAFTERF 1
 extern float nextafterf(float, float);
 #endif
 
 #ifndef HAVE_POWF
-#define HAVE_POWF
+#define HAVE_POWF 1
 extern float powf(float, float);
 #endif
 
 #ifndef HAVE_ROUND
-#define HAVE_ROUND
+#define HAVE_ROUND 1
 extern double round(double);
 #endif
 
 #ifndef HAVE_ROUNDF
-#define HAVE_ROUNDF
+#define HAVE_ROUNDF 1
 extern float roundf(float);
 #endif
 
 
 /* log10l is needed on all platforms for decimal I/O */
 #ifndef HAVE_LOG10L
-#define HAVE_LOG10L
+#define HAVE_LOG10L 1
 extern long double log10l(long double);
 #endif
 
@@ -196,209 +196,209 @@ extern long double log10l(long double);
 /* complex math functions */
 
 #if !defined(HAVE_CABSF)
-#define HAVE_CABSF
+#define HAVE_CABSF 1
 extern float cabsf (float complex);
 #endif
 
 #if !defined(HAVE_CABS)
-#define HAVE_CABS
+#define HAVE_CABS 1
 extern double cabs (double complex);
 #endif
 
 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
-#define HAVE_CABSL
+#define HAVE_CABSL 1
 extern long double cabsl (long double complex);
 #endif
 
 
 #if !defined(HAVE_CARGF)
-#define HAVE_CARGF
+#define HAVE_CARGF 1
 extern float cargf (float complex);
 #endif
 
 #if !defined(HAVE_CARG)
-#define HAVE_CARG
+#define HAVE_CARG 1
 extern double carg (double complex);
 #endif
 
 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
-#define HAVE_CARGL
+#define HAVE_CARGL 1
 extern long double cargl (long double complex);
 #endif
 
 
 #if !defined(HAVE_CEXPF)
-#define HAVE_CEXPF
+#define HAVE_CEXPF 1
 extern float complex cexpf (float complex);
 #endif
 
 #if !defined(HAVE_CEXP)
-#define HAVE_CEXP
+#define HAVE_CEXP 1
 extern double complex cexp (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CLOGF)
-#define HAVE_CLOGF
+#define HAVE_CLOGF 1
 extern float complex clogf (float complex);
 #endif
 
 #if !defined(HAVE_CLOG)
-#define HAVE_CLOG
+#define HAVE_CLOG 1
 extern double complex clog (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CLOG10F)
-#define HAVE_CLOG10F
+#define HAVE_CLOG10F 1
 extern float complex clog10f (float complex);
 #endif
 
 #if !defined(HAVE_CLOG10)
-#define HAVE_CLOG10
+#define HAVE_CLOG10 1
 extern double complex clog10 (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CPOWF)
-#define HAVE_CPOWF
+#define HAVE_CPOWF 1
 extern float complex cpowf (float complex, float complex);
 #endif
 
 #if !defined(HAVE_CPOW)
-#define HAVE_CPOW
+#define HAVE_CPOW 1
 extern double complex cpow (double complex, double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CSQRTF)
-#define HAVE_CSQRTF
+#define HAVE_CSQRTF 1 
 extern float complex csqrtf (float complex);
 #endif
 
 #if !defined(HAVE_CSQRT)
-#define HAVE_CSQRT
+#define HAVE_CSQRT 1
 extern double complex csqrt (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CSINHF)
-#define HAVE_CSINHF
+#define HAVE_CSINHF 1
 extern float complex csinhf (float complex);
 #endif
 
 #if !defined(HAVE_CSINH)
-#define HAVE_CSINH
+#define HAVE_CSINH 1
 extern double complex csinh (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CCOSHF)
-#define HAVE_CCOSHF
+#define HAVE_CCOSHF 1
 extern float complex ccoshf (float complex);
 #endif
 
 #if !defined(HAVE_CCOSH)
-#define HAVE_CCOSH
+#define HAVE_CCOSH 1
 extern double complex ccosh (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CTANHF)
-#define HAVE_CTANHF
+#define HAVE_CTANHF 1
 extern float complex ctanhf (float complex);
 #endif
 
 #if !defined(HAVE_CTANH)
-#define HAVE_CTANH
+#define HAVE_CTANH 1
 extern double complex ctanh (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CSINF)
-#define HAVE_CSINF
+#define HAVE_CSINF 1
 extern float complex csinf (float complex);
 #endif
 
 #if !defined(HAVE_CSIN)
-#define HAVE_CSIN
+#define HAVE_CSIN 1
 extern double complex csin (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CCOSF)
-#define HAVE_CCOSF
+#define HAVE_CCOSF 1
 extern float complex ccosf (float complex);
 #endif
 
 #if !defined(HAVE_CCOS)
-#define HAVE_CCOS
+#define HAVE_CCOS 1
 extern double complex ccos (double complex);
 #endif
 
 #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);
 #endif
 
 
 #if !defined(HAVE_CTANF)
-#define HAVE_CTANF
+#define HAVE_CTANF 1
 extern float complex ctanf (float complex);
 #endif
 
 #if !defined(HAVE_CTAN)
-#define HAVE_CTAN
+#define HAVE_CTAN 1
 extern double complex ctan (double complex);
 #endif
 
 #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);
 #endif
 

diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c
index 906a85abfef023184b62ee5197763526384a6382..5e93e4279b276593eafb8ff496ef2eeb96271f91 100644 (file)
--- a/libgfortran/intrinsics/c99_functions.c
+++ b/libgfortran/intrinsics/c99_functions.c
@@ -37,7 +37,7 @@ Boston, MA 02110-1301, USA.  */
 
 
 #ifndef HAVE_ACOSF
-#define HAVE_ACOSF
+#define HAVE_ACOSF 1
 float
 acosf(float x)
 {
@@ -46,7 +46,7 @@ acosf(float x)
 #endif
 
 #ifndef HAVE_ASINF
-#define HAVE_ASINF
+#define HAVE_ASINF 1
 float
 asinf(float x)
 {
@@ -55,7 +55,7 @@ asinf(float x)
 #endif
 
 #ifndef HAVE_ATAN2F
-#define HAVE_ATAN2F
+#define HAVE_ATAN2F 1
 float
 atan2f(float y, float x)
 {
@@ -64,7 +64,7 @@ atan2f(float y, float x)
 #endif
 
 #ifndef HAVE_ATANF
-#define HAVE_ATANF
+#define HAVE_ATANF 1
 float
 atanf(float x)
 {
@@ -73,7 +73,7 @@ atanf(float x)
 #endif
 
 #ifndef HAVE_CEILF
-#define HAVE_CEILF
+#define HAVE_CEILF 1
 float
 ceilf(float x)
 {
@@ -82,7 +82,7 @@ ceilf(float x)
 #endif
 
 #ifndef HAVE_COPYSIGNF
-#define HAVE_COPYSIGNF
+#define HAVE_COPYSIGNF 1
 float
 copysignf(float x, float y)
 {
@@ -91,7 +91,7 @@ copysignf(float x, float y)
 #endif
 
 #ifndef HAVE_COSF
-#define HAVE_COSF
+#define HAVE_COSF 1
 float
 cosf(float x)
 {
@@ -100,7 +100,7 @@ cosf(float x)
 #endif
 
 #ifndef HAVE_COSHF
-#define HAVE_COSHF
+#define HAVE_COSHF 1
 float
 coshf(float x)
 {
@@ -109,7 +109,7 @@ coshf(float x)
 #endif
 
 #ifndef HAVE_EXPF
-#define HAVE_EXPF
+#define HAVE_EXPF 1
 float
 expf(float x)
 {
@@ -118,7 +118,7 @@ expf(float x)
 #endif
 
 #ifndef HAVE_FABSF
-#define HAVE_FABSF
+#define HAVE_FABSF 1
 float
 fabsf(float x)
 {
@@ -127,7 +127,7 @@ fabsf(float x)
 #endif
 
 #ifndef HAVE_FLOORF
-#define HAVE_FLOORF
+#define HAVE_FLOORF 1
 float
 floorf(float x)
 {
@@ -136,7 +136,7 @@ floorf(float x)
 #endif
 
 #ifndef HAVE_FREXPF
-#define HAVE_FREXPF
+#define HAVE_FREXPF 1
 float
 frexpf(float x, int *exp)
 {
@@ -145,7 +145,7 @@ frexpf(float x, int *exp)
 #endif
 
 #ifndef HAVE_HYPOTF
-#define HAVE_HYPOTF
+#define HAVE_HYPOTF 1
 float
 hypotf(float x, float y)
 {
@@ -154,7 +154,7 @@ hypotf(float x, float y)
 #endif
 
 #ifndef HAVE_LOGF
-#define HAVE_LOGF
+#define HAVE_LOGF 1
 float
 logf(float x)
 {
@@ -163,7 +163,7 @@ logf(float x)
 #endif
 
 #ifndef HAVE_LOG10F
-#define HAVE_LOG10F
+#define HAVE_LOG10F 1
 float
 log10f(float x)
 {
@@ -172,7 +172,7 @@ log10f(float x)
 #endif
 
 #ifndef HAVE_SCALBN
-#define HAVE_SCALBN
+#define HAVE_SCALBN 1
 double
 scalbn(double x, int y)
 {
@@ -181,7 +181,7 @@ scalbn(double x, int y)
 #endif
 
 #ifndef HAVE_SCALBNF
-#define HAVE_SCALBNF
+#define HAVE_SCALBNF 1
 float
 scalbnf(float x, int y)
 {
@@ -190,7 +190,7 @@ scalbnf(float x, int y)
 #endif
 
 #ifndef HAVE_SINF
-#define HAVE_SINF
+#define HAVE_SINF 1
 float
 sinf(float x)
 {
@@ -199,7 +199,7 @@ sinf(float x)
 #endif
 
 #ifndef HAVE_SINHF
-#define HAVE_SINHF
+#define HAVE_SINHF 1
 float
 sinhf(float x)
 {
@@ -208,7 +208,7 @@ sinhf(float x)
 #endif
 
 #ifndef HAVE_SQRTF
-#define HAVE_SQRTF
+#define HAVE_SQRTF 1
 float
 sqrtf(float x)
 {
@@ -217,7 +217,7 @@ sqrtf(float x)
 #endif
 
 #ifndef HAVE_TANF
-#define HAVE_TANF
+#define HAVE_TANF 1
 float
 tanf(float x)
 {
@@ -226,7 +226,7 @@ tanf(float x)
 #endif
 
 #ifndef HAVE_TANHF
-#define HAVE_TANHF
+#define HAVE_TANHF 1
 float
 tanhf(float x)
 {
@@ -235,7 +235,7 @@ tanhf(float x)
 #endif
 
 #ifndef HAVE_TRUNC
-#define HAVE_TRUNC
+#define HAVE_TRUNC 1
 double
 trunc(double x)
 {
@@ -250,7 +250,7 @@ trunc(double x)
 #endif
 
 #ifndef HAVE_TRUNCF
-#define HAVE_TRUNCF
+#define HAVE_TRUNCF 1
 float
 truncf(float x)
 {
@@ -259,7 +259,7 @@ truncf(float x)
 #endif
 
 #ifndef HAVE_NEXTAFTERF
-#define HAVE_NEXTAFTERF
+#define HAVE_NEXTAFTERF 1
 /* This is a portable implementation of nextafterf that is intended to be
    independent of the floating point format or its in memory representation.
    This implementation works correctly with denormalized values.  */
@@ -323,7 +323,7 @@ nextafterf(float x, float y)
 
 
 #ifndef HAVE_POWF
-#define HAVE_POWF
+#define HAVE_POWF 1
 float
 powf(float x, float y)
 {
@@ -336,7 +336,7 @@ powf(float x, float y)
 /* Algorithm by Steven G. Kargl.  */
 
 #ifndef HAVE_ROUND
-#define HAVE_ROUND
+#define HAVE_ROUND 1
 /* Round to nearest integral value.  If the argument is halfway between two
    integral values then round away from zero.  */
 
@@ -365,7 +365,7 @@ round(double x)
 #endif
 
 #ifndef HAVE_ROUNDF
-#define HAVE_ROUNDF
+#define HAVE_ROUNDF 1
 /* Round to nearest integral value.  If the argument is halfway between two
    integral values then round away from zero.  */
 
@@ -394,7 +394,7 @@ roundf(float x)
 #endif
 
 #ifndef HAVE_LOG10L
-#define HAVE_LOG10L
+#define HAVE_LOG10L 1
 /* log10 function for long double variables. The version provided here
    reduces the argument until it fits into a double, then use log10.  */
 long double
@@ -434,7 +434,7 @@ log10l(long double x)
 
 
 #if !defined(HAVE_CABSF)
-#define HAVE_CABSF
+#define HAVE_CABSF 1
 float
 cabsf (float complex z)
 {
@@ -443,7 +443,7 @@ cabsf (float complex z)
 #endif
 
 #if !defined(HAVE_CABS)
-#define HAVE_CABS
+#define HAVE_CABS 1
 double
 cabs (double complex z)
 {
@@ -452,7 +452,7 @@ cabs (double complex z)
 #endif
 
 #if !defined(HAVE_CABSL) && defined(HAVE_HYPOTL)
-#define HAVE_CABSL
+#define HAVE_CABSL 1
 long double
 cabsl (long double complex z)
 {
@@ -462,7 +462,7 @@ cabsl (long double complex z)
 
 
 #if !defined(HAVE_CARGF)
-#define HAVE_CARGF
+#define HAVE_CARGF 1
 float
 cargf (float complex z)
 {
@@ -471,7 +471,7 @@ cargf (float complex z)
 #endif
 
 #if !defined(HAVE_CARG)
-#define HAVE_CARG
+#define HAVE_CARG 1
 double
 carg (double complex z)
 {
@@ -480,7 +480,7 @@ carg (double complex z)
 #endif
 
 #if !defined(HAVE_CARGL) && defined(HAVE_ATAN2L)
-#define HAVE_CARGL
+#define HAVE_CARGL 1
 long double
 cargl (long double complex z)
 {
@@ -491,7 +491,7 @@ cargl (long double complex z)
 
 /* exp(z) = exp(a)*(cos(b) + i sin(b))  */
 #if !defined(HAVE_CEXPF)
-#define HAVE_CEXPF
+#define HAVE_CEXPF 1
 float complex
 cexpf (float complex z)
 {
@@ -506,7 +506,7 @@ cexpf (float complex z)
 #endif
 
 #if !defined(HAVE_CEXP)
-#define HAVE_CEXP
+#define HAVE_CEXP 1
 double complex
 cexp (double complex z)
 {
@@ -521,7 +521,7 @@ cexp (double complex z)
 #endif
 
 #if !defined(HAVE_CEXPL) && defined(HAVE_COSL) && defined(HAVE_SINL) && defined(EXPL)
-#define HAVE_CEXPL
+#define HAVE_CEXPL 1
 long double complex
 cexpl (long double complex z)
 {
@@ -538,7 +538,7 @@ cexpl (long double complex z)
 
 /* log(z) = log (cabs(z)) + i*carg(z)  */
 #if !defined(HAVE_CLOGF)
-#define HAVE_CLOGF
+#define HAVE_CLOGF 1
 float complex
 clogf (float complex z)
 {
@@ -550,7 +550,7 @@ clogf (float complex z)
 #endif
 
 #if !defined(HAVE_CLOG)
-#define HAVE_CLOG
+#define HAVE_CLOG 1
 double complex
 clog (double complex z)
 {
@@ -562,7 +562,7 @@ clog (double complex z)
 #endif
 
 #if !defined(HAVE_CLOGL) && defined(HAVE_LOGL) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
-#define HAVE_CLOGL
+#define HAVE_CLOGL 1
 long double complex
 clogl (long double complex z)
 {
@@ -576,7 +576,7 @@ clogl (long double complex z)
 
 /* log10(z) = log10 (cabs(z)) + i*carg(z)  */
 #if !defined(HAVE_CLOG10F)
-#define HAVE_CLOG10F
+#define HAVE_CLOG10F 1
 float complex
 clog10f (float complex z)
 {
@@ -588,7 +588,7 @@ clog10f (float complex z)
 #endif
 
 #if !defined(HAVE_CLOG10)
-#define HAVE_CLOG10
+#define HAVE_CLOG10 1
 double complex
 clog10 (double complex z)
 {
@@ -600,7 +600,7 @@ clog10 (double complex z)
 #endif
 
 #if !defined(HAVE_CLOG10L) && defined(HAVE_LOG10L) && defined(HAVE_CABSL) && defined(HAVE_CARGL)
-#define HAVE_CLOG10L
+#define HAVE_CLOG10L 1
 long double complex
 clog10l (long double complex z)
 {
@@ -614,7 +614,7 @@ clog10l (long double complex z)
 
 /* pow(base, power) = cexp (power * clog (base))  */
 #if !defined(HAVE_CPOWF)
-#define HAVE_CPOWF
+#define HAVE_CPOWF 1
 float complex
 cpowf (float complex base, float complex power)
 {
@@ -623,7 +623,7 @@ cpowf (float complex base, float complex power)
 #endif
 
 #if !defined(HAVE_CPOW)
-#define HAVE_CPOW
+#define HAVE_CPOW 1
 double complex
 cpow (double complex base, double complex power)
 {
@@ -632,7 +632,7 @@ cpow (double complex base, double complex power)
 #endif
 
 #if !defined(HAVE_CPOWL) && defined(HAVE_CEXPL) && defined(HAVE_CLOGL)
-#define HAVE_CPOWL
+#define HAVE_CPOWL 1
 long double complex
 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.  */
 #if !defined(HAVE_CSQRTF)
-#define HAVE_CSQRTF
+#define HAVE_CSQRTF 1
 float complex
 csqrtf (float complex z)
 {
@@ -696,7 +696,7 @@ csqrtf (float complex z)
 #endif
 
 #if !defined(HAVE_CSQRT)
-#define HAVE_CSQRT
+#define HAVE_CSQRT 1
 double complex
 csqrt (double complex z)
 {
@@ -749,7 +749,7 @@ csqrt (double complex z)
 #endif
 
 #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
 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)  */
 #if !defined(HAVE_CSINHF)
-#define HAVE_CSINHF
+#define HAVE_CSINHF 1
 float complex
 csinhf (float complex a)
 {
@@ -819,7 +819,7 @@ csinhf (float complex a)
 #endif
 
 #if !defined(HAVE_CSINH)
-#define HAVE_CSINH
+#define HAVE_CSINH 1
 double complex
 csinh (double complex a)
 {
@@ -834,7 +834,7 @@ csinh (double complex a)
 #endif
 
 #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
 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)  */
 #if !defined(HAVE_CCOSHF)
-#define HAVE_CCOSHF
+#define HAVE_CCOSHF 1
 float complex
 ccoshf (float complex a)
 {
@@ -866,7 +866,7 @@ ccoshf (float complex a)
 #endif
 
 #if !defined(HAVE_CCOSH)
-#define HAVE_CCOSH
+#define HAVE_CCOSH 1
 double complex
 ccosh (double complex a)
 {
@@ -881,7 +881,7 @@ ccosh (double complex a)
 #endif
 
 #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
 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))  */
 #if !defined(HAVE_CTANHF)
-#define HAVE_CTANHF
+#define HAVE_CTANHF 1
 float complex
 ctanhf (float complex a)
 {
@@ -915,7 +915,7 @@ ctanhf (float complex a)
 #endif
 
 #if !defined(HAVE_CTANH)
-#define HAVE_CTANH
+#define HAVE_CTANH 1
 double complex
 ctanh (double complex a)
 {
@@ -932,7 +932,7 @@ ctanh (double complex a)
 #endif
 
 #if !defined(HAVE_CTANHL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
-#define HAVE_CTANHL
+#define HAVE_CTANHL 1
 long double complex
 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)  */
 #if !defined(HAVE_CSINF)
-#define HAVE_CSINF
+#define HAVE_CSINF 1
 float complex
 csinf (float complex a)
 {
@@ -966,7 +966,7 @@ csinf (float complex a)
 #endif
 
 #if !defined(HAVE_CSIN)
-#define HAVE_CSIN
+#define HAVE_CSIN 1
 double complex
 csin (double complex a)
 {
@@ -981,7 +981,7 @@ csin (double complex a)
 #endif
 
 #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
 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)  */
 #if !defined(HAVE_CCOSF)
-#define HAVE_CCOSF
+#define HAVE_CCOSF 1
 float complex
 ccosf (float complex a)
 {
@@ -1013,7 +1013,7 @@ ccosf (float complex a)
 #endif
 
 #if !defined(HAVE_CCOS)
-#define HAVE_CCOS
+#define HAVE_CCOS 1
 double complex
 ccos (double complex a)
 {
@@ -1028,7 +1028,7 @@ ccos (double complex a)
 #endif
 
 #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
 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))  */
 #if !defined(HAVE_CTANF)
-#define HAVE_CTANF
+#define HAVE_CTANF 1
 float complex
 ctanf (float complex a)
 {
@@ -1062,7 +1062,7 @@ ctanf (float complex a)
 #endif
 
 #if !defined(HAVE_CTAN)
-#define HAVE_CTAN
+#define HAVE_CTAN 1
 double complex
 ctan (double complex a)
 {
@@ -1079,7 +1079,7 @@ ctan (double complex a)
 #endif
 
 #if !defined(HAVE_CTANL) && defined(HAVE_TANL) && defined(HAVE_TANHL)
-#define HAVE_CTANL
+#define HAVE_CTANL 1
 long double complex
 ctanl (long double complex a)
 {

diff --git a/libgfortran/intrinsics/getXid.c b/libgfortran/intrinsics/getXid.c
index 85ff4e8f4ee4399694530f3b52a63c1c332dfa09..595ca12a7de94b1f56ba77ec2f4c6298c5bdca4a 100644 (file)
--- a/libgfortran/intrinsics/getXid.c
+++ b/libgfortran/intrinsics/getXid.c
@@ -39,7 +39,7 @@ Boston, MA 02110-1301, USA.  */
 #include "libgfortran.h"
 
 #ifdef __MINGW32__
-#define HAVE_GETPID
+#define HAVE_GETPID 1
 #include <process.h>
 #endif
 

diff --git a/libgfortran/intrinsics/sleep.c b/libgfortran/intrinsics/sleep.c
index a9f579cb69de35b28270afb02be3fe88c182b747..3a482fa2f1c6a92b96c269720e4a9159644a61d7 100644 (file)
--- a/libgfortran/intrinsics/sleep.c
+++ b/libgfortran/intrinsics/sleep.c
@@ -43,7 +43,7 @@ Boston, MA 02110-1301, USA.  */
 # include <windows.h>
 # undef sleep
 # define sleep(x) Sleep(1000*(x))
-# define HAVE_SLEEP
+# define HAVE_SLEEP 1
 #endif
 
 /* SUBROUTINE SLEEP(SECONDS)