OSDN Git Service

d9249337b5947971e94c7c0b2164e7b8ff72a590
[pf3gnuchains/gcc-fork.git] / 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 }