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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [i386/] [sse2-packsswb-1.c] - Blame information for rev 318

Line No.	Rev	Author	Line
1	318	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_epi16 (s1, s2);`
22			`}`
23
24			`static void`
25			`TEST (void)`
26			`{`
27			`union128i_w s1, s2;`
28			`union128i_b u;`
29			`char e[16];`
30			`int i;`
31
32			`s1.x = _mm_set_epi16 (2134, -128, 1234, 6354, 1002, 3004, 4050, 9999);`
33			`s2.x = _mm_set_epi16 (41124, 234, 2344, 2354, 607, 1, 2, -8009);`
34			`u.x = test (s1.x, s2.x);`
35
36			`for (i = 0; i < 8; i++)`
37			`{`
38			`if (s1.a[i] > 127)`
39			`e[i] = 127;`
40			`else if (s1.a[i] < -128)`
41			`e[i] = -128;`
42			`else`
43			`e[i] = s1.a[i];`
44			`}`
45
46			`for (i = 0; i < 8; i++)`
47			`{`
48			`if (s2.a[i] > 127)`
49			`e[i+8] = 127;`
50			`else if (s2.a[i] < -128)`
51			`e[i+8] = -128;`
52			`else`
53			`e[i+8] = s2.a[i];`
54			`}`
55
56			`if (check_union128i_b (u, e))`
57			`abort ();`
58			`}`