gcc/testsuite/gcc.target/powerpc/p8vector-int128-1.c

   1 /* { dg-do compile { target { powerpc*-*-* && lp64 } } } */
   2 /* { dg-skip-if "" { powerpc*-*-darwin* } { "*" } { "" } } */
   3 /* { dg-require-effective-target powerpc_p8vector_ok } */
   4 /* { dg-options "-mcpu=power8 -O3 -mvsx-timode" } */
   5
   6 #include <altivec.h>
   7
   8 #ifndef TYPE
   9 #define TYPE vector __int128_t
  10 #endif
  11
  12 TYPE
  13 do_addcuq (TYPE p, TYPE q)
  14 {
  15   return __builtin_vec_vaddcuq (p, q);
  16 }
  17
  18 TYPE
  19 do_adduqm (TYPE p, TYPE q)
  20 {
  21   return __builtin_vec_add (p, q);
  22 }
  23
  24 TYPE
  25 do_addeuqm (TYPE p, TYPE q, TYPE r)
  26 {
  27   return __builtin_vec_vaddeuqm (p, q, r);
  28 }
  29
  30 TYPE
  31 do_addecuq (TYPE p, TYPE q, TYPE r)
  32 {
  33   return __builtin_vec_vaddecuq (p, q, r);
  34 }
  35
  36 TYPE
  37 do_subeuqm (TYPE p, TYPE q, TYPE r)
  38 {
  39   return __builtin_vec_vsubeuqm (p, q, r);
  40 }
  41
  42 TYPE
  43 do_subecuq (TYPE p, TYPE q, TYPE r)
  44 {
  45   return __builtin_vec_vsubecuq (p, q, r);
  46 }
  47
  48 TYPE
  49 do_subcuq (TYPE p, TYPE q)
  50 {
  51   return __builtin_vec_vsubcuq (p, q);
  52 }
  53
  54 TYPE
  55 do_subuqm (TYPE p, TYPE q)
  56 {
  57   return __builtin_vec_vsubuqm (p, q);
  58 }
  59
  60 TYPE
  61 do_zero (void)
  62 {
  63   return (TYPE) { 0 };
  64 }
  65
  66 TYPE
  67 do_minus_one (void)
  68 {
  69   return (TYPE) { -1 };
  70 }
  71
  72 /* { dg-final { scan-assembler     "vaddcuq"   } } */
  73 /* { dg-final { scan-assembler     "vadduqm"   } } */
  74 /* { dg-final { scan-assembler     "vaddecuq"  } } */
  75 /* { dg-final { scan-assembler     "vaddeuqm"  } } */
  76 /* { dg-final { scan-assembler     "vsubecuq"  } } */
  77 /* { dg-final { scan-assembler     "vsubeuqm"  } } */
  78 /* { dg-final { scan-assembler     "vsubcuq"   } } */
  79 /* { dg-final { scan-assembler     "vsubuqm"   } } */
  80 /* { dg-final { scan-assembler-not "mtvsrd"    } } */
  81 /* { dg-final { scan-assembler-not "mfvsrd"    } } */
  82 /* { dg-final { scan-assembler-not "ori 2,2,0" } } */
  83 /* { dg-final { scan-assembler-not "xxpermdi"  } } */
  84 /* { dg-final { scan-assembler-not "stxvd2x"   } } */
  85 /* { dg-final { scan-assembler-not "stxvw4x"   } } */