16 #ifndef EIGEN_MATH_FUNCTIONS_ALTIVEC_H 17 #define EIGEN_MATH_FUNCTIONS_ALTIVEC_H 23 static _EIGEN_DECLARE_CONST_Packet2d(1 , 1.0);
24 static _EIGEN_DECLARE_CONST_Packet2d(2 , 2.0);
25 static _EIGEN_DECLARE_CONST_Packet2d(half, 0.5);
27 static _EIGEN_DECLARE_CONST_Packet2d(exp_hi, 709.437);
28 static _EIGEN_DECLARE_CONST_Packet2d(exp_lo, -709.436139303);
30 static _EIGEN_DECLARE_CONST_Packet2d(cephes_LOG2EF, 1.4426950408889634073599);
32 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_p0, 1.26177193074810590878e-4);
33 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_p1, 3.02994407707441961300e-2);
34 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_p2, 9.99999999999999999910e-1);
36 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_q0, 3.00198505138664455042e-6);
37 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_q1, 2.52448340349684104192e-3);
38 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_q2, 2.27265548208155028766e-1);
39 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_q3, 2.00000000000000000009e0);
41 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_C1, 0.693145751953125);
42 static _EIGEN_DECLARE_CONST_Packet2d(cephes_exp_C2, 1.42860682030941723212e-6);
44 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
45 Packet2d pexp<Packet2d>(
const Packet2d& _x)
53 x = pmax(pmin(x, p2d_exp_hi), p2d_exp_lo);
55 fx = pmadd(p2d_cephes_LOG2EF, x, p2d_half);
59 tmp = pmul(fx, p2d_cephes_exp_C1);
60 Packet2d z = pmul(fx, p2d_cephes_exp_C2);
64 Packet2d x2 = pmul(x,x);
66 Packet2d px = p2d_cephes_exp_p0;
67 px = pmadd(px, x2, p2d_cephes_exp_p1);
68 px = pmadd(px, x2, p2d_cephes_exp_p2);
71 Packet2d qx = p2d_cephes_exp_q0;
72 qx = pmadd(qx, x2, p2d_cephes_exp_q1);
73 qx = pmadd(qx, x2, p2d_cephes_exp_q2);
74 qx = pmadd(qx, x2, p2d_cephes_exp_q3);
76 x = pdiv(px,psub(qx,px));
77 x = pmadd(p2d_2,x,p2d_1);
80 emm0 = vec_ctsl(fx, 0);
82 static const Packet2l p2l_1023 = { 1023, 1023 };
83 static const Packet2ul p2ul_52 = { 52, 52 };
85 emm0 = emm0 + p2l_1023;
86 emm0 = emm0 << reinterpret_cast<Packet2l>(p2ul_52);
90 Packet2ul isnumber_mask =
reinterpret_cast<Packet2ul
>(vec_cmpeq(_x, _x));
91 return vec_sel(_x, pmax(pmul(x, reinterpret_cast<Packet2d>(emm0)), _x),
95 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
96 Packet4f pexp<Packet4f>(
const Packet4f& x)
99 res.v4f[0] = pexp<Packet2d>(x.v4f[0]);
100 res.v4f[1] = pexp<Packet2d>(x.v4f[1]);
104 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
105 Packet2d psqrt<Packet2d>(
const Packet2d& x)
107 return __builtin_s390_vfsqdb(x);
110 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
111 Packet4f psqrt<Packet4f>(
const Packet4f& x)
114 res.v4f[0] = psqrt<Packet2d>(x.v4f[0]);
115 res.v4f[1] = psqrt<Packet2d>(x.v4f[1]);
119 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
120 Packet2d prsqrt<Packet2d>(
const Packet2d& x) {
122 return pset1<Packet2d>(1.0) / psqrt<Packet2d>(x);
125 template<> EIGEN_DEFINE_FUNCTION_ALLOWING_MULTIPLE_DEFINITIONS EIGEN_UNUSED
126 Packet4f prsqrt<Packet4f>(
const Packet4f& x) {
128 res.v4f[0] = prsqrt<Packet2d>(x.v4f[0]);
129 res.v4f[1] = prsqrt<Packet2d>(x.v4f[1]);
137 #endif // EIGEN_MATH_FUNCTIONS_ALTIVEC_H Namespace containing all symbols from the Eigen library.
Definition: Core:287
Definition: Eigen_Colamd.h:50