+2018-06-08 Carl Love <cel@us.ibm.com>
+
+ * gcc.target/powerpc/p8vector-builtin-3.c: Add vec_pack test. Update
+ vpkudum counts.
+ * gcc.target/powerpc/p9-extract-3.c: Make second argument of
+ vec_extract a signed int.
+ * gcc.target/powerpc/vec-cmp.c: Add vec_cmple, vec_cmpge tests. Update,
+ vcmpgtsb, vcmpgtub, vcmpgtsh, vcmpgtuh, vcmpgtsw, vcmpgtsw, vcmpgtuw,
+ vcmpgtsd, vcmpgtud.
+ * gcc.target/powerpc/vsx-extract-4.c: Make second argument of
+ vec_extract a signed int.
+ * gcc.target/powerpc/vsx-extract-5.c: Make second argument of
+ vec_extract a signed int.
+ * gcc.target/powerpc/vsx-vector-7.c (foo): Add tests for vec_sel and
+ vec_xor builtins. Update xxsel, xxlxor counts.
+
2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/86059
return vec_pack (a, b);
}
-vi_sign vi_pack_3 (vll_sign a, vll_sign b)
+vi_uns vi_pack_3 (vll_uns a, vll_uns b)
+{
+ return vec_pack (a, b);
+}
+
+vi_sign vi_pack_4 (vll_sign a, vll_sign b)
{
return vec_vpkudum (a, b);
}
return vec_vupklsw (a);
}
-/* { dg-final { scan-assembler-times "vpkudum" 3 } } */
+/* { dg-final { scan-assembler-times "vpkudum" 4 } } */
/* { dg-final { scan-assembler-times "vpkuwum" 3 } } */
/* { dg-final { scan-assembler-times "vpkuhum" 3 } } */
/* { dg-final { scan-assembler-times "vupklsw" 3 } } */
double
fpcvt_int_0 (vector int a)
{
- int b = vec_extract (a, 0);
+ int c = 0;
+ int b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_int_3 (vector int a)
{
- int b = vec_extract (a, 3);
+ int c = 3;
+ int b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_uint_0 (vector unsigned int a)
{
- unsigned int b = vec_extract (a, 0);
+ int c = 0;
+ unsigned int b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_uint_3 (vector unsigned int a)
{
- unsigned int b = vec_extract (a, 3);
+ int c = 3;
+ unsigned int b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_short_0 (vector short a)
{
- short b = vec_extract (a, 0);
+ int c = 0;
+ short b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_short_7 (vector short a)
{
- short b = vec_extract (a, 7);
+ int c = 7;
+ short b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_ushort_0 (vector unsigned short a)
{
- unsigned short b = vec_extract (a, 0);
+ int c = 0;
+ unsigned short b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_ushort_7 (vector unsigned short a)
{
- unsigned short b = vec_extract (a, 7);
+ int c = 7;
+ unsigned short b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_schar_0 (vector signed char a)
{
- signed char b = vec_extract (a, 0);
+ int c = 0;
+ signed char b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_schar_15 (vector signed char a)
{
- signed char b = vec_extract (a, 15);
+ int c = 15;
+ signed char b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_uchar_0 (vector unsigned char a)
{
- unsigned char b = vec_extract (a, 0);
+ int c = 0;
+ unsigned char b = vec_extract (a, c);
return (double)b;
}
double
fpcvt_uchar_15 (vector unsigned char a)
{
- signed char b = vec_extract (a, 15);
+ int c = 15;
+ signed char b = vec_extract (a, c);
return (double)b;
}
/* { dg-require-effective-target powerpc_p8vector_ok } */
/* { dg-skip-if "do not override -mcpu" { powerpc64*-*-* } { "-mcpu=*" } { "-mcpu=power8" } } */
/* { dg-options "-O2 -mcpu=power8" } */
-/* { dg-final { scan-assembler-times "vcmpgtsb" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtub" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtsh" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtuh" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtsw" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtuw" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtsd" 2 } } */
-/* { dg-final { scan-assembler-times "vcmpgtud" 2 } } */
+/* { dg-final { scan-assembler-times "vcmpgtsb" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtub" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtsh" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtuh" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtsw" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtuw" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtsd" 4 } } */
+/* { dg-final { scan-assembler-times "vcmpgtud" 4 } } */
/* { dg-final { scan-assembler-times "xxlnor" 16 } } */
#include <altivec.h>
return vec_cmple (x, y);
}
+vector bool int
+cmple_f (vector float x, vector float y)
+{
+ return vec_cmple (x, y);
+}
+
+vector bool long long int
+cmple_d (vector double x, vector double y)
+{
+ return vec_cmple (x, y);
+}
+
vector bool char
cmpge_sc (vector signed char x, vector signed char y)
{
return vec_cmpge (x, y);
}
+vector bool int
+cmpge_f (vector float x, vector float y)
+{
+ return vec_cmpge (x, y);
+}
+
+vector bool long long int
+cmpge_d (vector double x, vector double y)
+{
+ return vec_cmpge (x, y);
+}
+
+vector bool int
+cmpgt_ui (vector unsigned int x, vector unsigned int y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool int
+cmpgt_f (vector float x, vector float y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool long long int
+cmpgt_d (vector double x, vector double y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool long long
+cmpgt_sl (vector signed long long x, vector signed long long y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool long long
+cmpgt_ul (vector unsigned long long x, vector unsigned long long y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool char
+cmpgt_sc (vector signed char x, vector signed char y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool char
+cmpgt_uc (vector unsigned char x, vector unsigned char y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool short
+cmpgt_ss (vector signed short x, vector signed short y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool short
+cmpgt_us (vector unsigned short x, vector unsigned short y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool int
+cmpgt_si (vector signed int x, vector signed int y)
+{
+ return vec_cmpgt (x, y);
+}
+
+vector bool int
+cmplt_ui (vector unsigned int x, vector unsigned int y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool int
+cmplt_f (vector float x, vector float y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool long long int
+cmplt_d (vector double x, vector double y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool long long
+cmplt_sl (vector signed long long x, vector signed long long y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool long long
+cmplt_ul (vector unsigned long long x, vector unsigned long long y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool char
+cmplt_sc (vector signed char x, vector signed char y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool char
+cmplt_uc (vector unsigned char x, vector unsigned char y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool short
+cmplt_ss (vector signed short x, vector signed short y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool short
+cmplt_us (vector unsigned short x, vector unsigned short y)
+{
+ return vec_cmplt (x, y);
+}
+
+vector bool int
+cmplt_si (vector signed int x, vector signed int y)
+{
+ return vec_cmplt (x, y);
+}
TYPE
foo_0s (vector int v)
{
- int i = vec_extract (v, 0);
+ int c = 0;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_1s (vector int v)
{
- int i = vec_extract (v, 1);
+ int c = 1;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_2s (vector int v)
{
- int i = vec_extract (v, 2);
+ int c = 2;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_3s (vector int v)
{
- int i = vec_extract (v, 3);
+ int c = 3;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_0u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 0);
+ int c = 0;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_1u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 1);
+ int c = 1;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_2u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 2);
+ int c = 2;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_3u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 3);
+ int c = 3;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_0s (vector int v)
{
- int i = vec_extract (v, 0);
+ int c = 0;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_1s (vector int v)
{
- int i = vec_extract (v, 1);
+ int c = 1;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_2s (vector int v)
{
- int i = vec_extract (v, 2);
+ int c = 2;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_3s (vector int v)
{
- int i = vec_extract (v, 3);
+ int c = 3;
+ int i = vec_extract (v, c);
return (TYPE) i;
}
TYPE
foo_0u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 0);
+ int c = 0;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_1u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 1);
+ int c = 1;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_2u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 2);
+ int c = 2;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
TYPE
foo_3u (vector unsigned int v)
{
- unsigned int u = vec_extract (v, 3);
+ int c = 3;
+ unsigned int u = vec_extract (v, c);
return (TYPE) u;
}
/* Test VSX built-ins added for version 1.1 of ELFv2 ABI. */
vector bool long long vbla, vblb, vblc;
-vector signed long long vsla;
-vector unsigned long long vula, vulb, vulc;
+vector bool char vbca, vbcb, vbcc;
+vector bool int vbia, vbib, vbic;
+vector signed char vsca, vscb, vscc;
+vector unsigned char vuca, vucb, vucc;
+vector signed int vsia, vsib, vsic;
+vector unsigned int vuia, vuib, vuic;
+
+vector unsigned long long vulla, vullb, vullc;
+vector signed long long vslla, vsllb, vsllc;
+vector bool long long vblla, vbllb, vbllc;
+vector bool short int vbsia, vbsib, vbsic;
+vector signed short int vssia, vssib, vssic;
+vector unsigned short int vusia, vusib, vusic;
vector double vda, vdb;
vector float vfa, vfb;
void foo (vector bool long long *vblr,
- vector double *vdr, vector unsigned long long *vulz, vector double *vdz)
+ vector double *vdr, vector unsigned long long *vullz,
+ vector double *vdz, vector bool char *vbcz,
+ vector signed char *vscz, vector unsigned char *vucz,
+ vector bool int *vbiz, vector int *viz,
+ vector unsigned int *vuiz, vector signed long long int *vslliz,
+ vector bool short int *vbsiz, vector signed short int *vssiz,
+ vector unsigned short int *vusiz, vector float *vfz)
{
*vblr++ = vec_andc (vbla, vblb);
- *vdr++ = vec_double (vsla);
- *vdr++ = vec_double (vula);
+ *vdr++ = vec_double (vslla);
+ *vdr++ = vec_double (vulla);
+
*vblr++ = vec_mergeh (vbla, vblb);
*vblr++ = vec_mergel (vbla, vblb);
*vblr++ = vec_nor (vbla, vblb);
*vblr++ = vec_or (vbla, vblb);
*vblr++ = vec_sel (vbla, vblb, vblc);
- *vblr++ = vec_sel (vbla, vblb, vulc);
+ *vblr++ = vec_sel (vbla, vblb, vullc);
*vblr++ = vec_xor (vbla, vblb);
- *vulz++ = vec_sel (vula, vulb, vblc);
+ *vullz++ = vec_sel (vulla, vullb, vbllc);
+ *vullz++ = vec_sel (vulla, vullb, vullc);
+
+ *vdz++ = vec_sel(vda, vdb, vullc);
+
+ *vbcz++ = vec_sel (vbca, vbcb, vbcc);
+ *vbcz++ = vec_sel (vbca, vbcb, vucc);
+ *vbcz++ = vec_xor (vbca, vbcb);
+ *vscz++ = vec_sel (vsca, vscb, vbcc);
+ *vscz++ = vec_sel (vsca, vscb, vucc);
+ *vucz++ = vec_sel (vuca, vucb, vbcc);
+ *vucz++ = vec_sel (vuca, vucb, vucc);
+
+ *vbiz++ = vec_sel (vbia, vbib, vbic);
+ *vbiz++ = vec_sel (vbia, vbib, vuic);
+ *vbiz++ = vec_xor (vbia, vbib);
+ *viz++ = vec_sel (vsia, vsib, vbic);
+ *viz++ = vec_sel (vsia, vsib, vuic);
+ *vuiz++ = vec_sel (vuia, vuib, vbic);
+ *vuiz++ = vec_sel (vuia, vuib, vuic);
+
+ *vslliz++ = vec_sel(vslla, vsllb, vbllc);
+ *vslliz++ = vec_sel(vslla, vsllb, vullc);
+
+ *vssiz++ = vec_sel(vssia, vssib, vbsic);
+ *vssiz++ = vec_sel(vssia, vssib, vusic);
+ *vusiz++ = vec_sel(vusia, vusib, vbsic);
+ *vusiz++ = vec_sel(vusia, vusib, vusic);
+
+ *vbsiz++ = vec_sel (vbsia, vbsib, vbsic);
+ *vbsiz++ = vec_sel (vbsia, vbsib, vusic);
+ *vbsiz++ = vec_xor (vbsia, vbsib);
- *vdz++ = vec_sel(vda, vdb, vulc);
+ *vdz++ = vec_sel (vda, vdb, vbllc);
+ *vfz++ = vec_sel (vfa, vfb, vbic);
+ *vfz++ = vec_sel (vfa, vfb, vuic);
+ *vfz++ = vec_xor (vfa, vfb);
}
/* { dg-final { scan-assembler-times "xxlandc" 1 } } */
/* { dg-final { scan-assembler-times "xxpermdi .*,.*,.*,0" 1 } } */
/* { dg-final { scan-assembler-times "xxlnor" 1 } } */
/* { dg-final { scan-assembler-times "xxlor" 1 } } */
-/* { dg-final { scan-assembler-times "xxsel" 4 } } */
-/* { dg-final { scan-assembler-times "xxlxor" 1 } } */
+/* { dg-final { scan-assembler-times "xxsel" 28 } } */
+/* { dg-final { scan-assembler-times "xxlxor" 5 } } */