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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#include <stdio.h>
#include <emmintrin.h>
typedef union
{
__m128i x;
char a[16];
} union128i_b;
typedef union
{
__m128i x;
unsigned char a[16];
} union128i_ub;
typedef union
{
__m128i x;
short a[8];
} union128i_w;
typedef union
{
__m128i x;
unsigned short a[8];
} union128i_uw;
typedef union
{
__m128i x;
int a[4];
} union128i_d;
typedef union
{
__m128i x;
long long a[2];
} union128i_q;
typedef union
{
__m128 x;
float a[4];
} union128;
typedef union
{
__m128d x;
double a[2];
} union128d;
#ifndef ARRAY_SIZE
#define ARRAY_SIZE(A) (sizeof (A) / sizeof ((A)[0]))
#endif
#ifdef DEBUG
#define PRINTF printf
#else
#define PRINTF(...)
#endif
#define CHECK_EXP(UINON_TYPE, VALUE_TYPE, FMT) \
static int \
__attribute__((noinline, unused)) \
check_##UINON_TYPE (UINON_TYPE u, const VALUE_TYPE *v) \
{ \
int i; \
int err = 0; \
\
for (i = 0; i < ARRAY_SIZE (u.a); i++) \
if (u.a[i] != v[i]) \
{ \
err++; \
PRINTF ("%i: " FMT " != " FMT "\n", \
i, v[i], u.a[i]); \
} \
return err; \
}
CHECK_EXP (union128i_b, char, "%d")
CHECK_EXP (union128i_ub, unsigned char, "%d")
CHECK_EXP (union128i_w, short, "%d")
CHECK_EXP (union128i_uw, unsigned short, "%d")
CHECK_EXP (union128i_d, int, "0x%x")
CHECK_EXP (union128i_q, long long, "0x%llx")
CHECK_EXP (union128, float, "%f")
CHECK_EXP (union128d, double, "%f")
#define ESP_FLOAT 0.000001
#define ESP_DOUBLE 0.000001
#define CHECK_ARRAY(ARRAY, TYPE, FMT) \
static int \
__attribute__((noinline, unused)) \
checkV##ARRAY (const TYPE *v, const TYPE *e, int n) \
{ \
int i; \
int err = 0; \
\
for (i = 0; i < n; i++) \
if (v[i] != e[i]) \
{ \
err++; \
PRINTF ("%i: " FMT " != " FMT "\n", \
i, v[i], e[i]); \
} \
return err; \
}
CHECK_ARRAY(i, int, "0x%x")
CHECK_ARRAY(l, long long, "0x%llx")
#define CHECK_FP_ARRAY(ARRAY, TYPE, ESP, FMT) \
static int \
__attribute__((noinline, unused)) \
checkV##ARRAY (const TYPE *v, const TYPE *e, int n) \
{ \
int i; \
int err = 0; \
\
for (i = 0; i < n; i++) \
if (v[i] > (e[i] + (ESP)) || v[i] < (e[i] - (ESP))) \
if (e[i] != v[i]) \
{ \
err++; \
PRINTF ("%i: " FMT " != " FMT "\n", \
i, v[i], e[i]); \
} \
return err; \
}
CHECK_FP_ARRAY (d, double, ESP_DOUBLE, "%f")
CHECK_FP_ARRAY (f, float, ESP_FLOAT, "%f")
|
