URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse4_2-pcmpistri-2.c] - Blame information for rev 691

Details | Compare with Previous | View Log


/* { dg-do run } */
/* { dg-require-effective-target sse4 } */
/* { dg-options "-O2 -msse4.2" } */
 
#ifndef CHECK_H
#define CHECK_H "sse4_2-check.h"
#endif
 
#ifndef TEST
#define TEST sse4_2_test
#endif
 
#include CHECK_H
 
#include "sse4_2-pcmpstr.h"
 
#define NUM 1024
 
#define IMM_VAL0 \
  (_SIDD_SBYTE_OPS | _SIDD_CMP_RANGES | _SIDD_MASKED_POSITIVE_POLARITY)
#define IMM_VAL1 \
 (_SIDD_UBYTE_OPS | _SIDD_CMP_EQUAL_EACH | _SIDD_NEGATIVE_POLARITY \
  | _SIDD_MOST_SIGNIFICANT)
#define IMM_VAL2 \
 (_SIDD_UWORD_OPS | _SIDD_CMP_EQUAL_ANY | _SIDD_MASKED_NEGATIVE_POLARITY)
#define IMM_VAL3 \
  (_SIDD_SWORD_OPS | _SIDD_CMP_EQUAL_ORDERED \
   | _SIDD_MASKED_NEGATIVE_POLARITY | _SIDD_MOST_SIGNIFICANT)
 
 
static void
TEST (void)
{
  union
    {
      __m128i x[NUM];
      char c[NUM *16];
    } src1, src2;
  int res, correct, correct_flags;
  int flags, cf, zf, sf, of, af;
  int i;
 
  for (i = 0; i < NUM *16; i++)
    {
      src1.c[i] = rand ();
      src2.c[i] = rand ();
    }
 
  for (i = 0; i < NUM; i++)
    {
      switch ((rand () % 4))
        {
        case 0:
          res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL0);
          cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL0);
          zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL0);
          sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL0);
          of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL0);
          af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL0);
          correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL0,
                            &correct_flags);
          break;
 
        case 1:
          res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL1);
          cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL1);
          zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL1);
          sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL1);
          of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL1);
          af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL1);
          correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL1,
                            &correct_flags);
          break;
 
        case 2:
          res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL2);
          cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL2);
          zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL2);
          sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL2);
          of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL2);
          af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL2);
          correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL2,
                            &correct_flags);
          break;
 
        default:
          res = _mm_cmpistri (src1.x[i], src2.x[i], IMM_VAL3);
          cf = _mm_cmpistrc (src1.x[i], src2.x[i], IMM_VAL3);
          zf = _mm_cmpistrz (src1.x[i], src2.x[i], IMM_VAL3);
          sf = _mm_cmpistrs (src1.x[i], src2.x[i], IMM_VAL3);
          of = _mm_cmpistro (src1.x[i], src2.x[i], IMM_VAL3);
          af = _mm_cmpistra (src1.x[i], src2.x[i], IMM_VAL3);
          correct = cmp_ii (&src1.x[i], &src2.x[i], IMM_VAL3,
                            &correct_flags);
          break;
        }
 
      if (correct != res)
        abort ();
 
      flags = 0;
      if (cf)
        flags |= CFLAG;
      if (zf)
        flags |= ZFLAG;
      if (sf)
        flags |= SFLAG;
      if (of)
        flags |= OFLAG;
 
      if (flags != correct_flags
          || (af && (cf || zf))
          || (!af && !(cf || zf)))
        abort ();
    }
}

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse4_2-pcmpistri-2.c] - Blame information for rev 691