diff --git a/kernel/power/KERNEL.POWER8 b/kernel/power/KERNEL.POWER8 index dee0c2660..576ad506d 100644 --- a/kernel/power/KERNEL.POWER8 +++ b/kernel/power/KERNEL.POWER8 @@ -117,7 +117,7 @@ ZAXPYKERNEL = zaxpy.c # SCOPYKERNEL = scopy.c DCOPYKERNEL = dcopy.c -#CCOPYKERNEL = ../arm/zcopy.c +CCOPYKERNEL = ccopy.c ZCOPYKERNEL = zcopy.c # SDOTKERNEL = sdot.c diff --git a/kernel/power/ccopy.c b/kernel/power/ccopy.c new file mode 100644 index 000000000..ce7d67475 --- /dev/null +++ b/kernel/power/ccopy.c @@ -0,0 +1,140 @@ +/*************************************************************************** +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/25 Werner Saar (wernsaar@googlemail.com) +* BLASTEST : OK +* CTEST : OK +* TEST : OK +* LAPACK-TEST : OK +**************************************************************************************/ + +#include "common.h" + +#if defined(POWER8) +#include "ccopy_microk_power8.c" +#endif + +#ifndef HAVE_KERNEL_32 + +static void ccopy_kernel_32(BLASLONG n, FLOAT *x, FLOAT *y) +{ + + BLASLONG i=0; + FLOAT f0, f1, f2, f3, f4, f5, f6, f7; + FLOAT *x1=x; + FLOAT *y1=y; + + while ( i 0 ) + { + ccopy_kernel_32(n1, x, y); + i=n1; + ix=n1*2; + iy=n1*2; + } + + while(i < n) + { + y[iy] = x[iy] ; + y[iy+1] = x[ix+1] ; + ix+=2; + iy+=2; + i++ ; + + } + + + } + else + { + + BLASLONG inc_x2 = 2 * inc_x; + BLASLONG inc_y2 = 2 * inc_y; + + while(i < n) + { + y[iy] = x[ix] ; + y[iy+1] = x[ix+1] ; + ix += inc_x2 ; + iy += inc_y2 ; + i++ ; + + } + + } + return(0); + + +} + + diff --git a/kernel/power/ccopy_microk_power8.c b/kernel/power/ccopy_microk_power8.c new file mode 100644 index 000000000..95b3559ba --- /dev/null +++ b/kernel/power/ccopy_microk_power8.c @@ -0,0 +1,174 @@ +/*************************************************************************** +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/25 Werner Saar (wernsaar@googlemail.com) +* BLASTEST : OK +* CTEST : OK +* TEST : OK +* LAPACK-TEST : OK +**************************************************************************************/ + +#define HAVE_KERNEL_32 1 + +static void ccopy_kernel_32( BLASLONG n, FLOAT *x, FLOAT *y) __attribute__ ((noinline)); + +static void ccopy_kernel_32( BLASLONG n, FLOAT *x, FLOAT *y) +{ + + + 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; + BLASLONG alpha=0; + + __asm__ __volatile__ + ( + + "lxvw4x 40, 0, %2 \n\t" + "lxvw4x 41, %5, %2 \n\t" + "lxvw4x 42, %6, %2 \n\t" + "lxvw4x 43, %7, %2 \n\t" + "lxvw4x 44, %8, %2 \n\t" + "lxvw4x 45, %9, %2 \n\t" + "lxvw4x 46, %10, %2 \n\t" + "lxvw4x 47, %11, %2 \n\t" + + "addi %2, %2, 128 \n\t" + + "lxvw4x 50, 0, %2 \n\t" + "lxvw4x 51, %5, %2 \n\t" + "lxvw4x 52, %6, %2 \n\t" + "lxvw4x 53, %7, %2 \n\t" + "lxvw4x 54, %8, %2 \n\t" + "lxvw4x 55, %9, %2 \n\t" + "lxvw4x 56, %10, %2 \n\t" + "lxvw4x 57, %11, %2 \n\t" + + "addi %2, %2, 128 \n\t" + + "addic. %0 , %0 , -32 \n\t" + "ble 2f \n\t" + + ".align 5 \n\t" + "1: \n\t" + + "stxvw4x 40, 0, %1 \n\t" + "stxvw4x 41, %5, %1 \n\t" + "lxvw4x 40, 0, %2 \n\t" + "lxvw4x 41, %5, %2 \n\t" + "stxvw4x 42, %6, %1 \n\t" + "stxvw4x 43, %7, %1 \n\t" + "lxvw4x 42, %6, %2 \n\t" + "lxvw4x 43, %7, %2 \n\t" + "stxvw4x 44, %8, %1 \n\t" + "stxvw4x 45, %9, %1 \n\t" + "lxvw4x 44, %8, %2 \n\t" + "lxvw4x 45, %9, %2 \n\t" + "stxvw4x 46, %10, %1 \n\t" + "stxvw4x 47, %11, %1 \n\t" + "lxvw4x 46, %10, %2 \n\t" + "lxvw4x 47, %11, %2 \n\t" + + + "addi %1, %1, 128 \n\t" + "addi %2, %2, 128 \n\t" + + "stxvw4x 50, 0, %1 \n\t" + "stxvw4x 51, %5, %1 \n\t" + "lxvw4x 50, 0, %2 \n\t" + "lxvw4x 51, %5, %2 \n\t" + "stxvw4x 52, %6, %1 \n\t" + "stxvw4x 53, %7, %1 \n\t" + "lxvw4x 52, %6, %2 \n\t" + "lxvw4x 53, %7, %2 \n\t" + "stxvw4x 54, %8, %1 \n\t" + "stxvw4x 55, %9, %1 \n\t" + "lxvw4x 54, %8, %2 \n\t" + "lxvw4x 55, %9, %2 \n\t" + "stxvw4x 56, %10, %1 \n\t" + "stxvw4x 57, %11, %1 \n\t" + "lxvw4x 56, %10, %2 \n\t" + "lxvw4x 57, %11, %2 \n\t" + + "addi %1, %1, 128 \n\t" + "addi %2, %2, 128 \n\t" + + "addic. %0 , %0 , -32 \n\t" + "bgt 1b \n\t" + + "2: \n\t" + + "stxvw4x 40, 0, %1 \n\t" + "stxvw4x 41, %5, %1 \n\t" + "stxvw4x 42, %6, %1 \n\t" + "stxvw4x 43, %7, %1 \n\t" + "stxvw4x 44, %8, %1 \n\t" + "stxvw4x 45, %9, %1 \n\t" + "stxvw4x 46, %10, %1 \n\t" + "stxvw4x 47, %11, %1 \n\t" + + "addi %1, %1, 128 \n\t" + + "stxvw4x 50, 0, %1 \n\t" + "stxvw4x 51, %5, %1 \n\t" + "stxvw4x 52, %6, %1 \n\t" + "stxvw4x 53, %7, %1 \n\t" + "stxvw4x 54, %8, %1 \n\t" + "stxvw4x 55, %9, %1 \n\t" + "stxvw4x 56, %10, %1 \n\t" + "stxvw4x 57, %11, %1 \n\t" + + + : + : + "r" (i), // 0 + "r" (y1), // 1 + "r" (x1), // 2 + "r" (alpha), // 3 + "r" (pre), // 4 + "r" (o16), // 5 + "r" (o32), // 6 + "r" (o48), // 7 + "r" (o64), // 8 + "r" (o80), // 9 + "r" (o96), // 10 + "r" (o112) // 11 + : "cr0", "%0", "%2" , "%1", "memory" + ); + +} + +