blob: 0210ac130b6e0216dedd4902a69f83df47c1895a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#include <smmintrin.h>
#include <math.h>
#define NUM 64
static void
init_round (FP_T *src)
{
int i, sign = 1;
FP_T f = rand ();
for (i = 0; i < NUM; i++)
{
src[i] = (i + 1)* f * M_PI * sign;
if (i < (NUM / 2))
{
if ((i % 6) == 0)
f = f * src[i];
}
else if (i == (NUM / 2))
f = rand ();
else if ((i % 6) == 0)
f = 1 / (f * (i + 1) * src[i] * M_PI *sign);
sign = -sign;
}
}
static FP_T
do_round (FP_T f, int type)
{
short saved_cw, new_cw, clr_mask;
FP_T ret;
if ((type & 4))
{
type = 0;
clr_mask = 0xFFFF;
}
else
{
type = 0x003F | ((type & 3) << 10);
clr_mask = ~0x0C3F;
}
__asm__ ("fld" ASM_SUFFIX " %0" : : "m" (*&f));
__asm__ ("fstcw %0" : "=m" (*&saved_cw));
new_cw = saved_cw & clr_mask;
new_cw |= type;
__asm__ ("fldcw %0" : : "m" (*&new_cw));
__asm__ ("frndint\n"
"fstp" ASM_SUFFIX " %0\n" : "=m" (*&ret));
__asm__ ("fldcw %0" : : "m" (*&saved_cw));
return ret;
}
static void
sse4_1_test (void)
{
int i;
FP_T f;
union
{
VEC_T x[NUM / LOOP_INCREMENT];
FP_T f[NUM];
} dst, src;
init_round (src.f);
for (i = 0; i < NUM / LOOP_INCREMENT; i++)
dst.x[i] = ROUND_INTRIN (src.x[i], ROUND_MODE);
for (i = 0; i < NUM; i += CHECK_LOOP_INCREMENT)
{
f = do_round (src.f[i], CHECK_ROUND_MODE);
if (f != dst.f[i])
abort ();
}
if (_MM_FROUND_TO_NEAREST_INT != 0x00
|| _MM_FROUND_TO_NEG_INF != 0x01
|| _MM_FROUND_TO_POS_INF != 0x02
|| _MM_FROUND_TO_ZERO != 0x03
|| _MM_FROUND_CUR_DIRECTION != 0x04
|| _MM_FROUND_RAISE_EXC != 0x00
|| _MM_FROUND_NO_EXC != 0x08
|| _MM_FROUND_NINT != 0x00
|| _MM_FROUND_FLOOR != 0x01
|| _MM_FROUND_CEIL != 0x02
|| _MM_FROUND_TRUNC != 0x03
|| _MM_FROUND_RINT != 0x04
|| _MM_FROUND_NEARBYINT != 0x0C)
abort ();
}
|
