IBM Z: Fix vec_init default expander

Do not reinitialize vector lanes to zero since they are already
initialized to zero.

gcc/ChangeLog:

	* config/s390/s390.cc (vec_init): Fix default case

gcc/testsuite/ChangeLog:

	* gcc.target/s390/vector/vec-init-3.c: New test.

diff --git a/gcc/config/s390/s390.cc b/gcc/config/s390/s390.cc
index d9f10542473415c07d01c06e40b5630e435a9d47..13970edcb5e7d25edba06312a0b8d0428f46e147 100644 (file)
--- a/gcc/config/s390/s390.cc
+++ b/gcc/config/s390/s390.cc
@@ -7381,11 +7381,12 @@ s390_expand_vec_init (rtx target, rtx vals)
       if (!general_operand (elem, GET_MODE (elem)))
        elem = force_reg (inner_mode, elem);
 
-      emit_insn (gen_rtx_SET (target,
-                             gen_rtx_UNSPEC (mode,
-                                             gen_rtvec (3, elem,
-                                                        GEN_INT (i), target),
-                                             UNSPEC_VEC_SET)));
+      if (elem != const0_rtx)
+       emit_insn (gen_rtx_SET (target,
+                               gen_rtx_UNSPEC (mode,
+                                               gen_rtvec (3, elem,
+                                                          GEN_INT (i), target),
+                                               UNSPEC_VEC_SET)));
     }
 }
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/vec-init-3.c b/gcc/testsuite/gcc.target/s390/vector/vec-init-3.c
new file mode 100644 (file)
index 0000000..12008a9
--- /dev/null
+++ b/gcc/testsuite/gcc.target/s390/vector/vec-init-3.c
@@ -0,0 +1,17 @@
+/* Check that the default case of the vec_init expander does its job.  */
+
+/* { dg-do compile } */
+/* { dg-options "-O3 -mzarch -march=z13" } */
+
+typedef __attribute__((vector_size(16))) signed int v4si;
+
+extern v4si G;
+
+v4si
+n (signed int a)
+{
+  return G == (v4si){ a };
+}
+/* { dg-final { scan-assembler-times "vzero" 1 } } */
+/* { dg-final { scan-assembler-times "vlvgf\t" 1 } } */
+/* { dg-final { scan-assembler-not "vleif\t" } } */