added optimized ddot kernel for bulldozer

diff --git a/kernel/x86_64/KERNEL.BULLDOZER b/kernel/x86_64/KERNEL.BULLDOZER
index 7aa597e..9e6fc2e 100644 (file)
--- a/kernel/x86_64/KERNEL.BULLDOZER
+++ b/kernel/x86_64/KERNEL.BULLDOZER
@@ -1,4 +1,5 @@
 SDOTKERNEL     = sdot.c
+DDOTKERNEL     = ddot.c
 
 DSYMV_U_KERNEL = dsymv_U.c
 DSYMV_L_KERNEL = dsymv_L.c

diff --git a/kernel/x86_64/ddot_microk_bulldozer-2.c b/kernel/x86_64/ddot_microk_bulldozer-2.c
new file mode 100644 (file)
index 0000000..0c77b63
--- /dev/null
+++ b/kernel/x86_64/ddot_microk_bulldozer-2.c
@@ -0,0 +1,84 @@
+/***************************************************************************
+Copyright (c) 2014, 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.
+*****************************************************************************/
+
+#define HAVE_KERNEL_8 1
+static void ddot_kernel_8( BLASLONG n, FLOAT *x, FLOAT *y , FLOAT *dot) __attribute__ ((noinline));
+
+static void ddot_kernel_8( BLASLONG n, FLOAT *x, FLOAT *y, FLOAT *dot)
+{
+
+
+       BLASLONG register i = 0;
+
+       __asm__  __volatile__
+       (
+       "vxorpd         %%xmm4, %%xmm4, %%xmm4               \n\t"
+       "vxorpd         %%xmm5, %%xmm5, %%xmm5               \n\t"
+       "vxorpd         %%xmm6, %%xmm6, %%xmm6               \n\t"
+       "vxorpd         %%xmm7, %%xmm7, %%xmm7               \n\t"
+
+       ".align 16                                           \n\t"
+       ".L01LOOP%=:                                         \n\t"
+        "vmovups                  (%2,%0,8), %%xmm12         \n\t"  // 2 * x
+        "vmovups                16(%2,%0,8), %%xmm13         \n\t"  // 2 * x
+        "vmovups                32(%2,%0,8), %%xmm14         \n\t"  // 2 * x
+        "vmovups                48(%2,%0,8), %%xmm15         \n\t"  // 2 * x
+
+       "vfmaddpd       %%xmm4,   (%3,%0,8), %%xmm12, %%xmm4 \n\t"  // 2 * y
+       "vfmaddpd       %%xmm5, 16(%3,%0,8), %%xmm13, %%xmm5 \n\t"  // 2 * y
+       "vfmaddpd       %%xmm6, 32(%3,%0,8), %%xmm14, %%xmm6 \n\t"  // 2 * y
+       "vfmaddpd       %%xmm7, 48(%3,%0,8), %%xmm15, %%xmm7 \n\t"  // 2 * y
+
+       "addq           $8 , %0                              \n\t"
+       "subq           $8 , %1                              \n\t"              
+       "jnz            .L01LOOP%=                           \n\t"
+
+       "vaddpd        %%xmm4, %%xmm5, %%xmm4   \n\t"
+       "vaddpd        %%xmm6, %%xmm7, %%xmm6   \n\t"
+       "vaddpd        %%xmm4, %%xmm6, %%xmm4   \n\t"
+
+       "vhaddpd        %%xmm4, %%xmm4, %%xmm4  \n\t"
+
+       "vmovsd         %%xmm4,    (%4)         \n\t"
+
+       :
+        : 
+          "r" (i),     // 0    
+         "r" (n),      // 1
+          "r" (x),      // 2
+          "r" (y),      // 3
+          "r" (dot)     // 4
+       : "cc", 
+         "%xmm4", "%xmm5", 
+         "%xmm6", "%xmm7", 
+         "%xmm12", "%xmm13", "%xmm14", "%xmm15",
+         "memory"
+       );
+
+} 
+
+