diff options
author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-11-25 18:22:53 +0100 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-11-25 17:22:53 +0000 |
commit | 7afebb02328cbaeae28f6954f6e4c2999007099a (patch) | |
tree | 7b1a43b523ba701ba6ef1200cc8b3c34a25a1e66 /libgfortran/c99_protos.h | |
parent | 9406549c9ff749822cba6ea283708ef950d70ab3 (diff) | |
download | gcc-7afebb02328cbaeae28f6954f6e4c2999007099a.zip gcc-7afebb02328cbaeae28f6954f6e4c2999007099a.tar.gz gcc-7afebb02328cbaeae28f6954f6e4c2999007099a.tar.bz2 |
Makefile.am: Remove intrinsics/erf.c and intrinsics/bessel.c.
* Makefile.am: Remove intrinsics/erf.c and intrinsics/bessel.c.
* Makefile.in: Regenerate.
* intrinsics/erf.c: Remove.
* intrinsics/bessel.c: Remove.
* c99_protos.h: Add prototypes for bessel and error functions.
* intrinsics/c99_functions.c: Move content for intrinsics/erf.c
and intrinsics/bessel.c here.
From-SVN: r119204
Diffstat (limited to 'libgfortran/c99_protos.h')
-rw-r--r-- | libgfortran/c99_protos.h | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/libgfortran/c99_protos.h b/libgfortran/c99_protos.h index b7c992c..26c0aa2 100644 --- a/libgfortran/c99_protos.h +++ b/libgfortran/c99_protos.h @@ -185,6 +185,53 @@ extern double round(double); extern float roundf(float); #endif +/* Wrappers for systems without the various C99 single precision Bessel + functions. */ + +#if defined(HAVE_J0) && ! defined(HAVE_J0F) +#define HAVE_J0F 1 +extern float j0f (float); +#endif + +#if defined(HAVE_J1) && !defined(HAVE_J1F) +#define HAVE_J1F 1 +extern float j1f (float); +#endif + +#if defined(HAVE_JN) && !defined(HAVE_JNF) +#define HAVE_JNF 1 +extern float jnf (int, float); +#endif + +#if defined(HAVE_Y0) && !defined(HAVE_Y0F) +#define HAVE_Y0F 1 +extern float y0f (float); +#endif + +#if defined(HAVE_Y1) && !defined(HAVE_Y1F) +#define HAVE_Y1F 1 +extern float y1f (float); +#endif + +#if defined(HAVE_YN) && !defined(HAVE_YNF) +#define HAVE_YNF 1 +extern float ynf (int, float); +#endif + + +/* Wrappers for systems without the C99 erff() and erfcf() functions. */ + +#if defined(HAVE_ERF) && !defined(HAVE_ERFF) +#define HAVE_ERFF 1 +extern float erff (float); +#endif + +#if defined(HAVE_ERFC) && !defined(HAVE_ERFCF) +#define HAVE_ERFCF 1 +extern float erfcf (float); +#endif + + /* log10l is needed on all platforms for decimal I/O */ #ifndef HAVE_LOG10L |