This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran,patch] Fix intrinsics used as actual arguments


> Hum, sorry about that. It's actually easier than that, we don't
> really need them (they are already implemented with acosh, asinh,
> atanh in intrinsics/hyper.c).

Indeed, I missed that.  A bit weird, why aren't they with the others?

> I just commited the following, which should make things work again:
>
> Index: c99_protos.h
> ===================================================================
> --- c99_protos.h        (revision 117555)
> +++ c99_protos.h        (working copy)
> @@ -1,5 +1,5 @@
> /* Declarations of various C99 functions
> -   Copyright (C) 2004 Free Software Foundation, Inc.
> +   Copyright (C) 2004, 2006 Free Software Foundation, Inc.
> This file is part of the GNU Fortran 95 runtime library (libgfortran).
> @@ -35,7 +35,7 @@
> extern float acosf(float);
> #endif
> -#ifndef HAVE_ACOSHF
> +#if HAVE_ACOSH && !HAVE_ACOSHF
> #define HAVE_ACOSHF 1
> extern float acoshf(float);
> #endif
> @@ -45,7 +45,7 @@
> extern float asinf(float);
> #endif
> -#ifndef HAVE_ASINHF
> +#if HAVE_ASINH && !HAVE_ASINHF
> #define HAVE_ASINHF 1
> extern float asinhf(float);
> #endif
> @@ -60,7 +60,7 @@
> extern float atanf(float);
> #endif
> -#ifndef HAVE_ATANHF
> +#if HAVE_ATANH && !HAVE_ATANHF
> #define HAVE_ATANHF 1
> extern float atanhf(float);
> #endif

I fail to see how that can change anything, given

beeba% grep "HAVE_ACOSH" config.h
#define HAVE_ACOSH 1
/* #undef HAVE_ACOSHF */
/* #undef HAVE_ACOSHL */

You probably need to use the same kludge as in c99_functions.c:

#define C99_PROTOS_H WE_DONT_WANT_PROTOS_NOW
#include "libgfortran.h"

-- 
Eric Botcazou


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]