gcc/testsuite/gcc.target/powerpc/vsx-extract-5.c

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-skip-if "" { powerpc*-*-darwin* } } */
   3 /* { dg-require-effective-target powerpc_p8vector_ok } */
   4 /* { dg-skip-if "do not override -mcpu" { powerpc*-*-* } { "-mcpu=*" } { "-mcpu=power8" } } */
   5 /* { dg-options "-O2 -mcpu=power8" } */
   6
   7 /* { dg-final { scan-assembler-times "vspltw"      6 } } */
   8 /* { dg-final { scan-assembler-times "xvcvsxwdp"   4 } } */
   9 /* { dg-final { scan-assembler-times "xvcvuxwdp"   4 } } */
  10 /* { dg-final { scan-assembler-times "frsp\|xsrsp" 8 } } */
  11 /* { dg-final { scan-assembler-not   "mtvsrd"        } } */
  12 /* { dg-final { scan-assembler-not   "mtvsrwa"       } } */
  13 /* { dg-final { scan-assembler-not   "mtvsrwz"       } } */
  14 /* { dg-final { scan-assembler-not   "mfvsrd"        } } */
  15 /* { dg-final { scan-assembler-not   "mfvsrwz"       } } */
  16
  17 #include <altivec.h>
  18
  19 #ifndef TYPE
  20 #define TYPE float
  21 #endif
  22
  23 TYPE
  24 foo_0s (vector int v)
  25 {
  26   int i = vec_extract (v, 0);
  27   return (TYPE) i;
  28 }
  29
  30 TYPE
  31 foo_1s (vector int v)
  32 {
  33   int i = vec_extract (v, 1);
  34   return (TYPE) i;
  35 }
  36
  37 TYPE
  38 foo_2s (vector int v)
  39 {
  40   int i = vec_extract (v, 2);
  41   return (TYPE) i;
  42 }
  43
  44 TYPE
  45 foo_3s (vector int v)
  46 {
  47   int i = vec_extract (v, 3);
  48   return (TYPE) i;
  49 }
  50
  51 TYPE
  52 foo_0u (vector unsigned int v)
  53 {
  54   unsigned int u = vec_extract (v, 0);
  55   return (TYPE) u;
  56 }
  57
  58 TYPE
  59 foo_1u (vector unsigned int v)
  60 {
  61   unsigned int u = vec_extract (v, 1);
  62   return (TYPE) u;
  63 }
  64
  65 TYPE
  66 foo_2u (vector unsigned int v)
  67 {
  68   unsigned int u = vec_extract (v, 2);
  69   return (TYPE) u;
  70 }
  71
  72 TYPE
  73 foo_3u (vector unsigned int v)
  74 {
  75   unsigned int u = vec_extract (v, 3);
  76   return (TYPE) u;
  77 }