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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse2-packssdw-1.c] - Blame information for rev 695

Line No.	Rev	Author	Line
1	691	jeremybenn	`/* { dg-do run } */`
2			`/* { dg-options "-O2 -msse2" } */`
3			`/* { dg-require-effective-target sse2 } */`
4
5			`#ifndef CHECK_H`
6			`#define CHECK_H "sse2-check.h"`
7			`#endif`
8
9			`#ifndef TEST`
10			`#define TEST sse2_test`
11			`#endif`
12
13			`#include CHECK_H`
14
15			`#include <emmintrin.h>`
16
17			`static __m128i`
18			`__attribute__((noinline, unused))`
19			`test (__m128i s1, __m128i s2)`
20			`{`
21			`return _mm_packs_epi32 (s1, s2);`
22			`}`
23
24			`static void`
25			`TEST (void)`
26			`{`
27			`union128i_d s1, s2;`
28			`union128i_w u;`
29			`short e[8];`
30			`int i;`
31
32			`s1.x = _mm_set_epi32 (2134, -128, 655366, 9999);`
33			`s2.x = _mm_set_epi32 (41124, 234, 2, -800900);`
34			`u.x = test (s1.x, s2.x);`
35
36			`for (i = 0; i < 4; i++)`
37			`{`
38			`if (s1.a[i] > 32767)`
39			`e[i] = 32767;`
40			`else if (s1.a[i] < -32768)`
41			`e[i] = -32768;`
42			`else`
43			`e[i] = s1.a[i];`
44			`}`
45
46			`for (i = 0; i < 4; i++)`
47			`{`
48			`if (s2.a[i] > 32767)`
49			`e[i+4] = 32767;`
50			`else if (s2.a[i] < -32768)`
51			`e[i+4] = -32768;`
52			`else`
53			`e[i+4] = s2.a[i];`
54			`}`
55
56			`if (check_union128i_w (u, e))`
57			`abort ();`
58			`}`