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
......
...@@ -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