gcc/testsuite/gcc.target/i386/sse4a-extract.c

   1 /* { dg-do run { target i?86-*-* x86_64-*-* } } */
   2 /* { dg-require-effective-target sse4a } */
   3 /* { dg-options "-O2 -msse4a" } */
   4 #include <ammintrin.h>
   5 #include <stdlib.h>
   6 #include "../../gcc.dg/i386-cpuid.h"
   7
   8 static void sse4a_test (void);
   9
  10 typedef union
  11 {
  12   long long i[2];
  13   __m128i vec;
  14 } LI;
  15
  16 int
  17 main ()
  18 {
  19   unsigned long cpu_facilities;
  20
  21   cpu_facilities = i386_extended_cpuid_ecx ();
  22
  23   /* Run SSE4a test only if host has SSE4a support.  */
  24   if ((cpu_facilities & bit_SSE4a))
  25     sse4a_test ();
  26
  27   exit (0);
  28 }
  29
  30 static long long
  31 sse4a_test_extrq (long long in)
  32 {
  33   __m128i v1, v2;
  34   long long index_length, pad;
  35   LI v_out;
  36   index_length = 0x0000000000000810LL;
  37   pad = 0x0;
  38   v1 = _mm_set_epi64x (pad, in);
  39   v2 = _mm_set_epi64x (pad, index_length);
  40   v_out.vec = _mm_extract_si64 (v1, v2);
  41   return (v_out.i[0]);
  42 }
  43
  44 static long long
  45 sse4a_test_extrqi (long long in)
  46 {
  47   __m128i v1;
  48   long long pad =0x0;
  49   LI v_out;
  50   v1 = _mm_set_epi64x (pad, in);
  51   v_out.vec = _mm_extracti_si64 (v1, (unsigned int) 0x10,(unsigned int) 0x08);
  52   return (v_out.i[0]);
  53 }
  54
  55 static chk (long long i1, long long i2)
  56 {
  57   int n_fails =0;
  58   if (i1 != i2)
  59     n_fails +=1;
  60   return n_fails;
  61 }
  62
  63 long long vals_in[5] =
  64   {
  65     0x1234567887654321LL,
  66     0x1456782093002490LL,
  67     0x2340909123990390LL,
  68     0x9595959599595999LL,
  69     0x9099038798000029LL
  70   };
  71
  72 long long vals_out[5] =
  73   {
  74     0x0000000000006543LL,
  75     0x0000000000000024LL,
  76     0x0000000000009903LL,
  77     0x0000000000005959LL,
  78     0x0000000000000000LL
  79   };
  80
  81 static void
  82 sse4a_test (void)
  83 {
  84   int i;
  85   int fail = 0;
  86   long long out;
  87
  88   for (i = 0; i < 5; i += 1)
  89     {
  90       out = sse4a_test_extrq (vals_in[i]);
  91       fail += chk(out, vals_out[i]);
  92
  93       out = sse4a_test_extrqi (vals_in[i]);
  94       fail += chk(out, vals_out[i]);
  95     }
  96
  97   if (fail != 0)
  98     abort ();
  99
 100   exit (0);
 101 }