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

   1 /* { dg-do run { target i?86-*-* x86_64-*-* } } */
   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_BIT_MASK)
  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_POSITIVE_POLARITY | SIDD_UNIT_MASK)
  20
  21 static void
  22 sse4_2_test (void)
  23 {
  24   union
  25     {
  26       __m128i x[NUM];
  27       char c[NUM *16];
  28     } src1, src2;
  29   __m128i res, correct;
  30   int 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_cmpistrm (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_im (&src1.x[i], &src2.x[i], IMM_VAL0,
  52                             &correct_flags);
  53           break;
  54
  55         case 1:
  56           res = _mm_cmpistrm (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_im (&src1.x[i], &src2.x[i], IMM_VAL1,
  63                             &correct_flags);
  64           break;
  65
  66         case 2:
  67           res = _mm_cmpistrm (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_im (&src1.x[i], &src2.x[i], IMM_VAL2,
  74                             &correct_flags);
  75           break;
  76
  77         default:
  78           res = _mm_cmpistrm (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_im (&src1.x[i], &src2.x[i], IMM_VAL3,
  85                             &correct_flags);
  86           break;
  87         }
  88
  89       if (memcmp (&correct, &res, sizeof (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 }