gcc/testsuite/gcc.target/i386/sse4_2-pcmpistri-2.c

   1 /* { dg-do run } */
   2 /* { dg-require-effective-target sse4 } */
   3 /* { dg-options "-O2 -msse4.2" } */
   4
   5 #include "sse4_2-check.h"
   6 #include "sse4_2-pcmpstr.h"
   7
   8 #define NUM 1024
   9
  10 #define IMM_VAL0 \
  11   (SIDD_SBYTE_OPS | SIDD_CMP_RANGES | SIDD_MASKED_POSITIVE_POLARITY)
  12 #define IMM_VAL1 \
  13  (SIDD_UBYTE_OPS | SIDD_CMP_EQUAL_EACH | SIDD_NEGATIVE_POLARITY \
  14   | SIDD_MOST_SIGNIFICANT)
  15 #define IMM_VAL2 \
  16  (SIDD_UWORD_OPS | SIDD_CMP_EQUAL_ANY | SIDD_MASKED_NEGATIVE_POLARITY)
  17 #define IMM_VAL3 \
  18   (SIDD_SWORD_OPS | SIDD_CMP_EQUAL_ORDERED \
  19    | SIDD_MASKED_NEGATIVE_POLARITY | SIDD_MOST_SIGNIFICANT)
  20
  21
  22 static void
  23 sse4_2_test (void)
  24 {
  25   union
  26     {
  27       __m128i x[NUM];
  28       char c[NUM *16];
  29     } src1, src2;
  30   int res, correct, correct_flags;
  31   int flags, cf, zf, sf, of, af;
  32   int i;
  33
  34   for (i = 0; i < NUM *16; i++)
  35     {
  36       src1.c[i] = rand ();
  37       src2.c[i] = rand ();
  38     }
  39
  40   for (i = 0; i < NUM; i++)
  41     {
  42       switch ((rand () % 4))
  43         {
  44         case 0:
  45           res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL0);
  46           cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL0);
  47           zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL0);
  48           sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL0);
  49           of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL0);
  50           af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL0);
  51           correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL0,
  52                             &correct_flags);
  53           break;
  54
  55         case 1:
  56           res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL1);
  57           cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL1);
  58           zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL1);
  59           sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL1);
  60           of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL1);
  61           af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL1);
  62           correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL1,
  63                             &correct_flags);
  64           break;
  65
  66         case 2:
  67           res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL2);
  68           cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL2);
  69           zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL2);
  70           sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL2);
  71           of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL2);
  72           af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL2);
  73           correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL2,
  74                             &correct_flags);
  75           break;
  76
  77         default:
  78           res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL3);
  79           cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL3);
  80           zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL3);
  81           sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL3);
  82           of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL3);
  83           af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL3);
  84           correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL3,
  85                             &correct_flags);
  86           break;
  87         }
  88
  89       if (correct != res)
  90         abort ();
  91
  92       flags = 0;
  93       if (cf)
  94         flags |= CFLAG;
  95       if (zf)
  96         flags |= ZFLAG;
  97       if (sf)
  98         flags |= SFLAG;
  99       if (of)
 100         flags |= OFLAG;
 101
 102       if (flags != correct_flags
 103           || (af && (cf || zf))
 104           || (!af && !(cf || zf)))
 105         abort ();
 106     }
 107 }