Commit e13b6e7f authored by Andreas Marek's avatar Andreas Marek
Browse files

Fix error in Power8 block2 and 4 kernel

parent db81a315
......@@ -58,7 +58,6 @@
#define _SSE_LOAD (__vector double) vec_ld
#define _SSE_ADD vec_add
#define _SSE_MUL vec_mul
#define _SSE_NEG vec_neg
#define _SSE_STORE vec_st
#define offset 2
#endif
......@@ -68,7 +67,6 @@
#define _SSE_LOAD (__vector float) vec_ld
#define _SSE_ADD vec_add
#define _SSE_MUL vec_mul
#define _SSE_NEG vec_neg
#define _SSE_STORE vec_st
#define offset 4
#endif
......@@ -468,7 +466,7 @@ void double_hh_trafo_real_vsx_2hv_single(float* q, float* hh, int* pnb, int* pnq
#ifdef HAVE_SSE_INTRINSICS
h1 = _SSE_XOR(tau2, sign);
#endif
#ifdef HAVE_SPARC64_SSE
#ifdef HAVE_VSX_SSE
//h1 = vec_neg(tau2);
h1 = vec_mul(vec_splats(mone), tau2);
#endif
......
......@@ -111,7 +111,7 @@ void quad_hh_trafo_real_vsx_4hv_single(float* q, float* hh, int* pnb, int* pnq,
!f>#ifdef HAVE_VSX_SSE
!f> interface
!f> subroutine quad_hh_trafo_real_vsx_4hv_double(q, hh, pnb, pnq, pldq, pldh) &
!f> bind(C, name="quad_hh_trafo_real_sse_4hv_double")
!f> bind(C, name="quad_hh_trafo_real_vsx_4hv_double")
!f> use, intrinsic :: iso_c_binding
!f> integer(kind=c_int) :: pnb, pnq, pldq, pldh
!f> type(c_ptr), value :: q
......@@ -125,7 +125,7 @@ void quad_hh_trafo_real_vsx_4hv_single(float* q, float* hh, int* pnb, int* pnq,
!f>#ifdef HAVE_VSX_SSE
!f> interface
!f> subroutine quad_hh_trafo_real_vsx_4hv_single(q, hh, pnb, pnq, pldq, pldh) &
!f> bind(C, name="quad_hh_trafo_real_sse_4hv_single")
!f> bind(C, name="quad_hh_trafo_real_vsx_4hv_single")
!f> use, intrinsic :: iso_c_binding
!f> integer(kind=c_int) :: pnb, pnq, pldq, pldh
!f> type(c_ptr), value :: q
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment