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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
/* { dg-do run { target { powerpc*-*-* } } } */
/* { dg-options "-O2 -std=c99" } */
#ifdef DEBUG
#include <stdio.h>
#endif
#define RN_MASK 0x3LL /* RN field mask */
void abort (void);
void __attribute__ ((noipa)) wrap_set_fpscr_rn (int val)
{
__builtin_set_fpscr_rn (val);
}
int main ()
{
int i;
int val, bit;
double fpscr_val;
union blah {
double d;
unsigned long long ll;
} conv_val;
unsigned long long ll_value;
register double f14;
/* __builtin_set_fpscr_rn() builtin can take a const or a variable
value between 0 and 3 as the argument.
__builtin_mtfsb0 and __builtin_mtfsb1 argument must be a constant
30 or 31.
*/
/* Test reading the FPSCR register */
__asm __volatile ("mffs %0" : "=f"(f14));
conv_val.d = f14;
if (conv_val.d != __builtin_mffs())
{
#ifdef DEBUG
printf("ERROR, __builtin_mffs() returned 0x%llx, not the expecected value 0x%llx\n",
__builtin_mffs(), conv_val.d);
#else
abort();
#endif
}
/* Test float rounding mode builtin with const value argument. */
val = 3;
__builtin_set_fpscr_rn (val);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & RN_MASK;
if (ll_value != 3)
{
#ifdef DEBUG
printf("ERROR, __builtin_set_fpscr_rn(3) returned 0x%llx, not the expecected value 0x%x\n",
ll_value, 3);
#else
abort();
#endif
}
val = 2;
__builtin_set_fpscr_rn (val);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & RN_MASK;
if (ll_value != val)
{
#ifdef DEBUG
printf("ERROR, __builtin_set_fpscr_rn(val=%d) returned 0x%llx, not the expecected value 0x%x\n",
val, ll_value, val);
#else
abort();
#endif
}
/* Reset to 0 for testing */
val = 0;
__builtin_set_fpscr_rn (val);
__builtin_mtfsb1(31);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & 0x1LL;
if (ll_value != 1)
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb1(31) did not set the bit to a 1.\n");
#else
abort();
#endif
}
__builtin_mtfsb0(31);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & 0x1LL;
if (ll_value != 0)
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb0(31) did not set the bit to a 0.\n");
#else
abort();
#endif
}
__builtin_mtfsb1(30);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & 0x2LL;
if (ll_value != 2)
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb1(31) did not set the bit to a 1.\n");
#else
abort();
#endif
}
__builtin_mtfsb0(30);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & 0x2LL;
if (ll_value != 0)
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb1(31) did not set the bit to a 0.\n");
#else
abort();
#endif
}
__builtin_mtfsb1(0);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & (0x1LL << (31-0));
if (ll_value != (0x1LL << (31-0)))
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb1(0) did not set the bit to a 1.\n");
#else
abort();
#endif
}
__builtin_mtfsb0(0);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & (0x1LL << (31-0));
if (ll_value != 0)
{
#ifdef DEBUG
printf("ERROR, __builtin_mtfsb0(0) did not set the bit to a 0.\n");
#else
abort();
#endif
}
/* Test builtin float rounding mode with variable as argument. */
val = 0;
wrap_set_fpscr_rn (val);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & RN_MASK;
if (ll_value != val)
{
#ifdef DEBUG
printf("ERROR, __builtin_set_fpscr_rn(val=%d) did not set rounding mode to %x.\n",
val, val);
#else
abort();
#endif
}
val = 3;
wrap_set_fpscr_rn (val);
conv_val.d = __builtin_mffs();
ll_value = conv_val.ll & RN_MASK;
if (ll_value != val)
{
#ifdef DEBUG
printf("ERROR, __builtin_set_fpscr_rn(val=%d) did not set rounding mode to %x.\n",
val, val);
#else
abort();
#endif
}
}
|
