1 extern double fma (double, double, double);
2 extern float fmaf (float, float, float);
3 
4 float
vfma32(float x,float y,float z)5 vfma32 (float x, float y, float z)
6 {
7   return fmaf (x, y, z);
8 }
9 
10 float
vfms32(float x,float y,float z)11 vfms32 (float x, float y, float z)
12 {
13   return fmaf (-x, y, z);
14 }
15 
16 float
vfnms32(float x,float y,float z)17 vfnms32 (float x, float y, float z)
18 {
19   return fmaf (x, y, -z);
20 }
21 
22 float
vfnma32(float x,float y,float z)23 vfnma32 (float x, float y, float z)
24 {
25   return fmaf (-x, y, -z);
26 }
27 
28 double
vfma64(double x,double y,double z)29 vfma64 (double x, double y, double z)
30 {
31   return fma (x, y, z);
32 }
33 
34 double
vfms64(double x,double y,double z)35 vfms64 (double x, double y, double z)
36 {
37   return fma (-x, y, z);
38 }
39 
40 double
vfnms64(double x,double y,double z)41 vfnms64 (double x, double y, double z)
42 {
43   return fma (x, y, -z);
44 }
45 
46 double
vfnma64(double x,double y,double z)47 vfnma64 (double x, double y, double z)
48 {
49   return fma (-x, y, -z);
50 }
51