git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

c99_functions.c: Add function prototypes to avoid warnings from -Wstrict-prototypes... 

* intrinsics/c99_functions.c: Add function prototypes to avoid
	warnings from -Wstrict-prototypes -Wmissing-prototypes.  On Tru64
	work around a brain-dead libm by redirecting calls to cabs{,f,l}
	to a local __gfc_cabs{,f,l}.

From-SVN: r109646
This commit is contained in:
Roger Sayle 2006-01-12 17:37:47 +00:00 committed by Roger Sayle
parent 4cd5f6193d
commit edf8dc34ff
2 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2006-01-12 Roger Sayle <roger@eyesopen.com>
* intrinsics/c99_functions.c: Add function prototypes to avoid
warnings from -Wstrict-prototypes -Wmissing-prototypes. On Tru64
work around a brain-dead libm by redirecting calls to cabs{,f,l}
to a local __gfc_cabs{,f,l}.
2006-01-07 Janne Blomqvist <jb@gcc.gnu.org> 2006-01-07 Janne Blomqvist <jb@gcc.gnu.org>
* configure.ac: Remove check for sys/mman.h. * configure.ac: Remove check for sys/mman.h.

27
libgfortran/intrinsics/c99_functions.c
View File

@ -35,6 +35,33 @@ Boston, MA 02110-1301, USA. */
#define C99_PROTOS_H WE_DONT_WANT_PROTOS_NOW #define C99_PROTOS_H WE_DONT_WANT_PROTOS_NOW
#include "libgfortran.h" #include "libgfortran.h"
/* Tru64's <math.h> declares a non-C99 compliant implementation of cabs,
which takes two floating point arguments instead of a single complex.
To work around this we redirect cabs{,f,l} calls to __gfc_cabs{,f,l}. */
#ifdef __osf__
#undef HAVE_CABS
#undef HAVE_CABSF
#undef HAVE_CABSL
#define cabs __gfc_cabs
#define cabsf __gfc_cabsf
#define cabsl __gfc_cabsl
#endif
/* Prototypes to silence -Wstrict-prototypes -Wmissing-prototypes. */
float cabsf(float complex);
double cabs(double complex);
long double cabsl(long double complex);
float cargf(float complex);
double carg(double complex);
long double cargl(long double complex);
float complex clog10f(float complex);
double complex clog10(double complex);
long double complex clog10l(long double complex);
#ifndef HAVE_ACOSF #ifndef HAVE_ACOSF
#define HAVE_ACOSF 1 #define HAVE_ACOSF 1