https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94586

--- Comment #7 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Tue, Apr 14, 2020 at 05:24:51PM +0000, dave.anglin at bell dot net wrote:
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94586
> 
> --- Comment #6 from dave.anglin at bell dot net ---
> On 2020-04-14 11:40 a.m., sgk at troutmask dot apl.washington.edu wrote:
> > After '#include <math.h>' in trigd.c, add
> >
> > #if (__STDC_VERSION__ < 199901L)
> > #define fmaf(a,b,c) ((a)*(b)+(c))
> > #define fma(a,b,c) ((a)*(b)+(c))
> > #define fmal(a,b,c) ((a)*(b)+(c))
> > #endif
> >
> Unfortunately, we also need copysignl, fabsl, cosl, sinl and tanl.
> 

How are you getting to these?  These are protected by

#ifdef HAVE_GFC_REAL_10
#endif 

or 

#ifdef HAVE_GFC_REAL_16
#endif

Is hppa64 claiming support for a REAL type that it actually
doesn't support?

In any event, you can extend the kludge

#if (__STDC_VERSION__ < 199901L)
#define fmaf(a,b,c) ((a)*(b)+(c))
#define fma(a,b,c) ((a)*(b)+(c))
#define fmal(a,b,c) ((a)*(b)+(c))
#define cosl(a) cos((double)(a))
#define sinl(a) sin((double)(a))
#define tanl(a) tan((double)(a))
#define fabsl(a) ((a) < 0 ? -(a) : (a))
#define copysignl(a,b) (fabsl(a)*((b)/fabsl(b)))
#endif

Reply via email to