added optimized zscal kernel for bulldozer

kernel/x86_64/KERNEL.BULLDOZER

@@ -1,4 +1,5 @@
 DSCALKERNEL = dscal.c
+ZSCALKERNEL = zscal.c
 
 DAXPYKERNEL = daxpy.c
 CAXPYKERNEL = caxpy.c

kernel/x86_64/zscal.c

@@ -30,6 +30,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 #if defined(HASWELL)
 #include "zscal_microk_haswell-2.c"
+#elif defined(BULLDOZER)
+#include "zscal_microk_bulldozer-2.c"
 #endif
 
 

kernel/x86_64/zscal_microk_bulldozer-2.c

@@ -0,0 +1,348 @@
+/***************************************************************************
+Copyright (c) 2014-2015, 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 zscal_kernel_8( BLASLONG n, FLOAT *alpha, FLOAT *x) __attribute__ ((noinline));
+
+static void zscal_kernel_8( BLASLONG n, FLOAT *alpha, FLOAT *x)
+{
+
+
+	__asm__  __volatile__
+	(
+	"vmovddup    		(%2), %%xmm0		    \n\t"  // da_r	
+	"vmovddup              8(%2), %%xmm1		    \n\t"  // da_i 	
+
+	"addq	$128, %1				    \n\t"
+
+	"vmovups	-128(%1), %%xmm4		    \n\t"
+	"vmovups	-112(%1), %%xmm5		    \n\t"
+	"vmovups	 -96(%1), %%xmm6		    \n\t"
+	"vmovups	 -80(%1), %%xmm7		    \n\t"
+
+	"vpermilpd	$0x01 , %%xmm4, %%xmm12		    \n\t"
+	"vpermilpd	$0x01 , %%xmm5, %%xmm13		    \n\t"
+	"vpermilpd	$0x01 , %%xmm6, %%xmm14 	    \n\t"
+	"vpermilpd	$0x01 , %%xmm7, %%xmm15		    \n\t"
+
+	"subq	        $4 , %0			            \n\t"		
+	"jz	2f					    \n\t"
+
+	".align 16				            \n\t"
+	"1:				            	    \n\t"
+
+	"prefetcht0     192(%1)				    \n\t"
+	// ".align 2				            \n\t"
+
+	"vmulpd		%%xmm0, %%xmm4 , %%xmm8		    \n\t" // da_r*x0 , da_r *x1
+	"vmovups	 -64(%1), %%xmm4		    \n\t"
+	"vmulpd		%%xmm0, %%xmm5 , %%xmm9		    \n\t"
+	"vmovups	 -48(%1), %%xmm5		    \n\t"
+	"vmulpd		%%xmm0, %%xmm6 , %%xmm10	    \n\t" 
+	"vmovups	 -32(%1), %%xmm6		    \n\t"
+	"vmulpd		%%xmm0, %%xmm7 , %%xmm11	    \n\t" 
+	"vmovups	 -16(%1), %%xmm7		    \n\t"
+
+	"vmulpd		%%xmm1, %%xmm12, %%xmm12	    \n\t" // da_i*x1 , da_i *x0
+	"vaddsubpd	%%xmm12 , %%xmm8 , %%xmm8	    \n\t"
+	"vmulpd		%%xmm1, %%xmm13, %%xmm13	    \n\t" 
+	"vaddsubpd	%%xmm13 , %%xmm9 , %%xmm9	    \n\t"
+	"vmulpd		%%xmm1, %%xmm14, %%xmm14	    \n\t" 
+	"vaddsubpd	%%xmm14 , %%xmm10, %%xmm10	    \n\t"
+	"vmulpd		%%xmm1, %%xmm15, %%xmm15	    \n\t" 
+	"vaddsubpd	%%xmm15 , %%xmm11, %%xmm11	    \n\t"
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm4, %%xmm12		    \n\t"
+	"vpermilpd	$0x01 , %%xmm5, %%xmm13		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm6, %%xmm14 	    \n\t"
+	"vpermilpd	$0x01 , %%xmm7, %%xmm15		    \n\t"
+
+	"addq		$64  ,%1  	 	            \n\t"
+	"subq	        $4 , %0			            \n\t"		
+	"jnz		1b		             	    \n\t"
+
+	"2:				            	    \n\t"
+
+
+	"vmulpd		%%xmm0, %%xmm4 , %%xmm8		    \n\t" // da_r*x0 , da_r *x1
+	"vmulpd		%%xmm0, %%xmm5 , %%xmm9		    \n\t"
+	"vmulpd		%%xmm0, %%xmm6 , %%xmm10	    \n\t" 
+	"vmulpd		%%xmm0, %%xmm7 , %%xmm11	    \n\t" 
+
+	"vmulpd		%%xmm1, %%xmm12, %%xmm12	    \n\t" // da_i*x1 , da_i *x0
+	"vaddsubpd	%%xmm12 , %%xmm8 , %%xmm8	    \n\t"
+	"vmulpd		%%xmm1, %%xmm13, %%xmm13	    \n\t" 
+	"vaddsubpd	%%xmm13 , %%xmm9 , %%xmm9	    \n\t"
+	"vmulpd		%%xmm1, %%xmm14, %%xmm14	    \n\t" 
+	"vaddsubpd	%%xmm14 , %%xmm10, %%xmm10	    \n\t"
+	"vmulpd		%%xmm1, %%xmm15, %%xmm15	    \n\t" 
+	"vaddsubpd	%%xmm15 , %%xmm11, %%xmm11	    \n\t"
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+
+	"vzeroupper					    \n\t"
+
+	:
+        : 
+	  "r" (n),  	// 0
+          "r" (x),      // 1
+          "r" (alpha)   // 2
+	: "cc", "%0", "%1",
+	  "%xmm0", "%xmm1", "%xmm2", "%xmm3", 
+	  "%xmm4", "%xmm5", "%xmm6", "%xmm7", 
+	  "%xmm8", "%xmm9", "%xmm10", "%xmm11", 
+	  "%xmm12", "%xmm13", "%xmm14", "%xmm15",
+	  "memory"
+	);
+
+} 
+
+static void zscal_kernel_8_zero_r( BLASLONG n, FLOAT *alpha, FLOAT *x) __attribute__ ((noinline));
+
+static void zscal_kernel_8_zero_r( BLASLONG n, FLOAT *alpha, FLOAT *x)
+{
+
+
+	__asm__  __volatile__
+	(
+	"vxorpd	           %%xmm0, %%xmm0, %%xmm0	    \n\t"
+	"vmovddup              8(%2), %%xmm1		    \n\t"  // da_i 	
+
+	"addq	$128, %1				    \n\t"
+
+	"vmovups	-128(%1), %%xmm4		    \n\t"
+	"vmovups	-112(%1), %%xmm5		    \n\t"
+	"vmovups	 -96(%1), %%xmm6		    \n\t"
+	"vmovups	 -80(%1), %%xmm7		    \n\t"
+
+	"vpermilpd	$0x01 , %%xmm4, %%xmm12		    \n\t"
+	"vpermilpd	$0x01 , %%xmm5, %%xmm13		    \n\t"
+	"vpermilpd	$0x01 , %%xmm6, %%xmm14 	    \n\t"
+	"vpermilpd	$0x01 , %%xmm7, %%xmm15		    \n\t"
+
+	"subq	        $4 , %0			            \n\t"		
+	"jz	2f					    \n\t"
+
+	".align 16				            \n\t"
+	"1:				            	    \n\t"
+
+	//"prefetcht0     128(%1)				    \n\t"
+	// ".align 2				            \n\t"
+
+	"vmovups	 -64(%1), %%xmm4		    \n\t"
+	"vmovups	 -48(%1), %%xmm5		    \n\t"
+	"vmovups	 -32(%1), %%xmm6		    \n\t"
+	"vmovups	 -16(%1), %%xmm7		    \n\t"
+
+	"vmulpd		%%xmm1, %%xmm12, %%xmm12	    \n\t" // da_i*x1 , da_i *x0
+	"vaddsubpd	%%xmm12 , %%xmm0 , %%xmm8	    \n\t"
+	"vmulpd		%%xmm1, %%xmm13, %%xmm13	    \n\t" 
+	"vaddsubpd	%%xmm13 , %%xmm0 , %%xmm9	    \n\t"
+	"vmulpd		%%xmm1, %%xmm14, %%xmm14	    \n\t" 
+	"vaddsubpd	%%xmm14 , %%xmm0 , %%xmm10	    \n\t"
+	"vmulpd		%%xmm1, %%xmm15, %%xmm15	    \n\t" 
+	"vaddsubpd	%%xmm15 , %%xmm0 , %%xmm11	    \n\t"
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm4, %%xmm12		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm5, %%xmm13		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm6, %%xmm14 	    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+	"vpermilpd	$0x01 , %%xmm7, %%xmm15		    \n\t"
+
+	"addq		$64  ,%1  	 	            \n\t"
+	"subq	        $4 , %0			            \n\t"		
+	"jnz		1b		             	    \n\t"
+
+	"2:				            	    \n\t"
+
+	"vmulpd		%%xmm1, %%xmm12, %%xmm12	    \n\t" // da_i*x1 , da_i *x0
+	"vaddsubpd	%%xmm12 , %%xmm0 , %%xmm8	    \n\t"
+	"vmulpd		%%xmm1, %%xmm13, %%xmm13	    \n\t" 
+	"vaddsubpd	%%xmm13 , %%xmm0 , %%xmm9	    \n\t"
+	"vmulpd		%%xmm1, %%xmm14, %%xmm14	    \n\t" 
+	"vaddsubpd	%%xmm14 , %%xmm0 , %%xmm10	    \n\t"
+	"vmulpd		%%xmm1, %%xmm15, %%xmm15	    \n\t" 
+	"vaddsubpd	%%xmm15 , %%xmm0 , %%xmm11	    \n\t"
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+
+	"vzeroupper					    \n\t"
+
+	:
+        : 
+	  "r" (n),  	// 0
+          "r" (x),      // 1
+          "r" (alpha)   // 2
+	: "cc", "%0", "%1",
+	  "%xmm0", "%xmm1", "%xmm2", "%xmm3", 
+	  "%xmm4", "%xmm5", "%xmm6", "%xmm7", 
+	  "%xmm8", "%xmm9", "%xmm10", "%xmm11", 
+	  "%xmm12", "%xmm13", "%xmm14", "%xmm15",
+	  "memory"
+	);
+
+} 
+
+
+
+static void zscal_kernel_8_zero_i( BLASLONG n, FLOAT *alpha, FLOAT *x) __attribute__ ((noinline));
+
+static void zscal_kernel_8_zero_i( BLASLONG n, FLOAT *alpha, FLOAT *x)
+{
+
+
+	__asm__  __volatile__
+	(
+	"vmovddup    		(%2), %%xmm0		    \n\t"  // da_r	
+
+	"addq	$128, %1				    \n\t"
+
+	"vmovups	-128(%1), %%xmm4		    \n\t"
+	"vmovups	-112(%1), %%xmm5		    \n\t"
+	"vmovups	 -96(%1), %%xmm6		    \n\t"
+	"vmovups	 -80(%1), %%xmm7		    \n\t"
+
+
+	"subq	        $4 , %0			            \n\t"		
+	"jz	2f					    \n\t"
+
+	".align 16				            \n\t"
+	"1:				            	    \n\t"
+
+	//"prefetcht0     128(%1)				    \n\t"
+	// ".align 2				            \n\t"
+
+	"vmulpd		%%xmm0, %%xmm4 , %%xmm8		    \n\t" // da_r*x0 , da_r *x1
+	"vmovups	 -64(%1), %%xmm4		    \n\t"
+	"vmulpd		%%xmm0, %%xmm5 , %%xmm9		    \n\t"
+	"vmovups	 -48(%1), %%xmm5		    \n\t"
+	"vmulpd		%%xmm0, %%xmm6 , %%xmm10	    \n\t" 
+	"vmovups	 -32(%1), %%xmm6		    \n\t"
+	"vmulpd		%%xmm0, %%xmm7 , %%xmm11	    \n\t" 
+	"vmovups	 -16(%1), %%xmm7		    \n\t"
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+
+	"addq		$64  ,%1  	 	            \n\t"
+	"subq	        $4 , %0			            \n\t"		
+	"jnz		1b		             	    \n\t"
+
+	"2:				            	    \n\t"
+
+
+	"vmulpd		%%xmm0, %%xmm4 , %%xmm8		    \n\t" // da_r*x0 , da_r *x1
+	"vmulpd		%%xmm0, %%xmm5 , %%xmm9		    \n\t"
+	"vmulpd		%%xmm0, %%xmm6 , %%xmm10	    \n\t" 
+	"vmulpd		%%xmm0, %%xmm7 , %%xmm11	    \n\t" 
+
+	"vmovups	%%xmm8 , -128(%1)		    \n\t"
+	"vmovups	%%xmm9 , -112(%1)		    \n\t"
+	"vmovups	%%xmm10,  -96(%1)		    \n\t"
+	"vmovups	%%xmm11,  -80(%1)		    \n\t"
+
+	"vzeroupper					    \n\t"
+
+	:
+        : 
+	  "r" (n),  	// 0
+          "r" (x),      // 1
+          "r" (alpha)   // 2
+	: "cc", "%0", "%1",
+	  "%xmm0", "%xmm1", "%xmm2", "%xmm3", 
+	  "%xmm4", "%xmm5", "%xmm6", "%xmm7", 
+	  "%xmm8", "%xmm9", "%xmm10", "%xmm11", 
+	  "%xmm12", "%xmm13", "%xmm14", "%xmm15",
+	  "memory"
+	);
+
+} 
+
+
+static void zscal_kernel_8_zero( BLASLONG n, FLOAT *alpha, FLOAT *x) __attribute__ ((noinline));
+
+static void zscal_kernel_8_zero( BLASLONG n, FLOAT *alpha, FLOAT *x)
+{
+
+
+	__asm__  __volatile__
+	(
+	"vxorpd	           %%xmm0, %%xmm0, %%xmm0	    \n\t"
+
+	"addq	$128, %1				    \n\t"
+
+	".align 16				            \n\t"
+	"1:				            	    \n\t"
+
+	//"prefetcht0     128(%1)				    \n\t"
+	// ".align 2				            \n\t"
+
+	"vmovups	%%xmm0 , -128(%1)		    \n\t"
+	"vmovups	%%xmm0 , -112(%1)		    \n\t"
+	"vmovups	%%xmm0 ,  -96(%1)		    \n\t"
+	"vmovups	%%xmm0 ,  -80(%1)		    \n\t"
+
+	"addq		$64  ,%1  	 	            \n\t"
+	"subq	        $4 , %0			            \n\t"		
+	"jnz		1b		             	    \n\t"
+
+	"vzeroupper					    \n\t"
+
+	:
+        : 
+	  "r" (n),  	// 0
+          "r" (x),      // 1
+          "r" (alpha)   // 2
+	: "cc", "%0", "%1",
+	  "%xmm0", "%xmm1", "%xmm2", "%xmm3", 
+	  "%xmm4", "%xmm5", "%xmm6", "%xmm7", 
+	  "%xmm8", "%xmm9", "%xmm10", "%xmm11", 
+	  "%xmm12", "%xmm13", "%xmm14", "%xmm15",
+	  "memory"
+	);
+
+} 
+
+
+