diff --git a/kernel/power/KERNEL.POWER8 b/kernel/power/KERNEL.POWER8 index b8a854960..ed426314f 100644 --- a/kernel/power/KERNEL.POWER8 +++ b/kernel/power/KERNEL.POWER8 @@ -120,7 +120,7 @@ ZTRSMKERNEL_RT = ../generic/trsm_kernel_RT.c #CCOPYKERNEL = ../arm/zcopy.c #ZCOPYKERNEL = ../arm/zcopy.c # -#SDOTKERNEL = ../arm/dot.c +SDOTKERNEL = sdot.c DDOTKERNEL = ddot.c #CDOTKERNEL = ../arm/zdot.c ZDOTKERNEL = zdot.c diff --git a/kernel/power/sdot.c b/kernel/power/sdot.c new file mode 100644 index 000000000..52fb1fe24 --- /dev/null +++ b/kernel/power/sdot.c @@ -0,0 +1,126 @@ +/*************************************************************************** +Copyright (c) 2013-2016, The OpenBLAS Project +All rights reserved. +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: +1. Redistributions of source code must retain the above copyright +notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in +the documentation and/or other materials provided with the +distribution. +3. Neither the name of the OpenBLAS project nor the names of +its contributors may be used to endorse or promote products +derived from this software without specific prior written permission. +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*****************************************************************************/ + +/************************************************************************************** +* 2016/03/21 Werner Saar (wernsaar@googlemail.com) +* BLASTEST : OK +* CTEST : OK +* TEST : OK +* LAPACK-TEST : OK +**************************************************************************************/ + +#include "common.h" + +#if defined(POWER8) +#include "sdot_microk_power8.c" +#endif + + +#ifndef HAVE_KERNEL_16 + +static void sdot_kernel_16(BLASLONG n, FLOAT *x, FLOAT *y, FLOAT *d) +{ + BLASLONG register i = 0; + FLOAT dot = 0.0; + + while(i < n) + { + dot += y[i] * x[i] + + y[i+1] * x[i+1] + + y[i+2] * x[i+2] + + y[i+3] * x[i+3] + + y[i+4] * x[i+4] + + y[i+5] * x[i+5] + + y[i+6] * x[i+6] + + y[i+7] * x[i+7] ; + + i+=8 ; + + } + *d += dot; + +} + +#endif + +FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) +{ + BLASLONG i=0; + BLASLONG ix=0,iy=0; + + FLOAT dot = 0.0 ; + + if ( n <= 0 ) return(dot); + + if ( (inc_x == 1) && (inc_y == 1) ) + { + + BLASLONG n1 = n & -32; + + if ( n1 ) + sdot_kernel_16(n1, x, y , &dot ); + + + i = n1; + while(i < n) + { + + dot += y[i] * x[i] ; + i++ ; + + } + return(dot); + + + } + + BLASLONG n1 = n & -2; + + while(i < n1) + { + + dot += y[iy] * x[ix] + y[iy+inc_y] * x[ix+inc_x]; + ix += inc_x*2 ; + iy += inc_y*2 ; + i+=2 ; + + } + + while(i < n) + { + + dot += y[iy] * x[ix] ; + ix += inc_x ; + iy += inc_y ; + i++ ; + + } + return(dot); + +} + + diff --git a/kernel/power/sdot_microk_power8.c b/kernel/power/sdot_microk_power8.c new file mode 100644 index 000000000..6dd588acd --- /dev/null +++ b/kernel/power/sdot_microk_power8.c @@ -0,0 +1,179 @@ +/*************************************************************************** +Copyright (c) 2013-2016, The OpenBLAS Project +All rights reserved. +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: +1. Redistributions of source code must retain the above copyright +notice, this list of conditions and the following disclaimer. +2. Redistributions in binary form must reproduce the above copyright +notice, this list of conditions and the following disclaimer in +the documentation and/or other materials provided with the +distribution. +3. Neither the name of the OpenBLAS project nor the names of +its contributors may be used to endorse or promote products +derived from this software without specific prior written permission. +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE +LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE +USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*****************************************************************************/ + +/************************************************************************************** +* 2016/03/21 Werner Saar (wernsaar@googlemail.com) +* BLASTEST : OK +* CTEST : OK +* TEST : OK +* LAPACK-TEST : OK +**************************************************************************************/ + +#define HAVE_KERNEL_16 1 +static void sdot_kernel_16( BLASLONG n, FLOAT *x, FLOAT *y , FLOAT *dot) __attribute__ ((noinline)); + +static void sdot_kernel_16( BLASLONG n, FLOAT *x, FLOAT *y, FLOAT *dot) +{ + + + BLASLONG i = n; + BLASLONG o16 = 16; + BLASLONG o32 = 32; + BLASLONG o48 = 48; + BLASLONG o64 = 64; + BLASLONG o80 = 80; + BLASLONG o96 = 96; + BLASLONG o112 = 112; + FLOAT *x1=x; + FLOAT *y1=y; + BLASLONG pre = 384; + FLOAT tempdot[4]; + + + __asm__ __volatile__ + ( + "xxlxor 32,32,32 \n\t" + "xxlxor 33,33,33 \n\t" + "xxlxor 34,34,34 \n\t" + "xxlxor 35,35,35 \n\t" + "xxlxor 36,36,36 \n\t" + "xxlxor 37,37,37 \n\t" + "xxlxor 38,38,38 \n\t" + "xxlxor 39,39,39 \n\t" + + "dcbt %2, %12 \n\t" + "dcbt %3, %12 \n\t" + + "lxvw4x 40, 0, %2 \n\t" + "lxvw4x 48, 0, %3 \n\t" + "lxvw4x 41, %5, %2 \n\t" + "lxvw4x 49, %5, %3 \n\t" + "lxvw4x 42, %6, %2 \n\t" + "lxvw4x 50, %6, %3 \n\t" + "lxvw4x 43, %7, %2 \n\t" + "lxvw4x 51, %7, %3 \n\t" + "lxvw4x 44, %8, %2 \n\t" + "lxvw4x 52, %8, %3 \n\t" + "lxvw4x 45, %9, %2 \n\t" + "lxvw4x 53, %9, %3 \n\t" + "lxvw4x 46, %10, %2 \n\t" + "lxvw4x 54, %10, %3 \n\t" + "lxvw4x 47, %11, %2 \n\t" + "lxvw4x 55, %11, %3 \n\t" + + "addi %2, %2, 128 \n\t" + "addi %3, %3, 128 \n\t" + + "addic. %0 , %0 , -32 \n\t" + "ble 2f \n\t" + + ".align 5 \n\t" + "1: \n\t" + + "dcbt %2, %12 \n\t" + "dcbt %3, %12 \n\t" + + "xvmaddasp 32, 40, 48 \n\t" + "lxvw4x 40, 0, %2 \n\t" + "lxvw4x 48, 0, %3 \n\t" + "xvmaddasp 33, 41, 49 \n\t" + "lxvw4x 41, %5, %2 \n\t" + "lxvw4x 49, %5, %3 \n\t" + "xvmaddasp 34, 42, 50 \n\t" + "lxvw4x 42, %6, %2 \n\t" + "lxvw4x 50, %6, %3 \n\t" + "xvmaddasp 35, 43, 51 \n\t" + "lxvw4x 43, %7, %2 \n\t" + "lxvw4x 51, %7, %3 \n\t" + "xvmaddasp 36, 44, 52 \n\t" + "lxvw4x 44, %8, %2 \n\t" + "lxvw4x 52, %8, %3 \n\t" + "xvmaddasp 37, 45, 53 \n\t" + "lxvw4x 45, %9, %2 \n\t" + "lxvw4x 53, %9, %3 \n\t" + "xvmaddasp 38, 46, 54 \n\t" + "lxvw4x 46, %10, %2 \n\t" + "lxvw4x 54, %10, %3 \n\t" + "xvmaddasp 39, 47, 55 \n\t" + + "lxvw4x 47, %11, %2 \n\t" + "lxvw4x 55, %11, %3 \n\t" + + + "addi %2, %2, 128 \n\t" + "addi %3, %3, 128 \n\t" + + "addic. %0 , %0 , -32 \n\t" + "bgt 1b \n\t" + + "2: \n\t" + + "xvmaddasp 32, 40, 48 \n\t" + "xvmaddasp 33, 41, 49 \n\t" + "xvmaddasp 34, 42, 50 \n\t" + "xvmaddasp 35, 43, 51 \n\t" + "xvmaddasp 36, 44, 52 \n\t" + "xvmaddasp 37, 45, 53 \n\t" + "xvmaddasp 38, 46, 54 \n\t" + "xvmaddasp 39, 47, 55 \n\t" + + "xvaddsp 32, 32 , 33 \n\t" + "xvaddsp 34, 34 , 35 \n\t" + "xvaddsp 36, 36 , 37 \n\t" + "xvaddsp 38, 38 , 39 \n\t" + + "xvaddsp 32, 32 , 34 \n\t" + "xvaddsp 36, 36 , 38 \n\t" + + "xvaddsp 32, 32 , 36 \n\t" + + "stxvw4x 32, 0 , %4 \n\t" + + : + : + "r" (i), // 0 + "r" (n), // 1 + "r" (x1), // 2 + "r" (y1), // 3 + "r" (tempdot), // 4 + "r" (o16), // 5 + "r" (o32), // 6 + "r" (o48), // 7 + "r" (o64), // 8 + "r" (o80), // 9 + "r" (o96), // 10 + "r" (o112), // 11 + "r" (pre) // 12 + : "cr0", "%0", "%2" , "%3", "memory" + ); + + *dot = tempdot[0] + tempdot[1] + tempdot[2] + tempdot[3]; + + +} + +