OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libm/] [common/] [sf_fma.c] - Blame information for rev 455

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 148 jeremybenn
/* Copyright (C) 2002 by  Red Hat, Incorporated. All rights reserved.
2
 *
3
 * Permission to use, copy, modify, and distribute this software
4
 * is freely granted, provided that this notice is preserved.
5
 */
6
 
7
#include "fdlibm.h"
8
 
9
#ifdef __STDC__
10
        float fmaf(float x, float y, float z)
11
#else
12
        float fmaf(x,y,z)
13
        float x;
14
        float y;
15
        float z;
16
#endif
17
{
18
  /* Let the implementation handle this. */
19
  return (x * y) + z;
20
}
21
 
22
#ifdef _DOUBLE_IS_32BITS
23
 
24
#ifdef __STDC__
25
        double fma(double x, double y, double z)
26
#else
27
        double fma(x,y,z)
28
        double x;
29
        double y;
30
        double z;
31
#endif
32
{
33
  return (double) fmaf((float) x, (float) y, (float) z);
34
}
35
 
36
#endif /* defined(_DOUBLE_IS_32BITS) */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.