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
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
/* { dg-do run { target { powerpc_fprs && { ilp32 && dfprt } } } } */
/* { dg-options "-std=gnu99 -O2 -fno-strict-aliasing" } */
/* Testcase to check for ABI compliance of parameter passing
for the PowerPC ELF ABI for decimal float values. */
extern void abort (void);
int failcnt = 0;
/* Support compiling the test to report individual failures; default is
to abort as soon as a check fails. */
#ifdef DBG
#include <stdio.h>
#define FAILURE { printf ("failed at line %d\n", __LINE__); failcnt++; }
#else
#define FAILURE abort ();
#endif
typedef struct
{
int pad;
_Decimal32 d;
} d32parm_t;
typedef struct
{
unsigned int gprs[8];
double fprs[8];
} reg_parms_t;
reg_parms_t gparms;
/* Testcase could break on future gcc's, if parameter regs
are changed before this asm. */
#define save_parms(lparms) \
asm volatile ("lis 11,gparms@ha\n\t" \
"la 11,gparms@l(11)\n\t" \
"st 3,0(11)\n\t" \
"st 4,4(11)\n\t" \
"st 5,8(11)\n\t" \
"st 6,12(11)\n\t" \
"st 7,16(11)\n\t" \
"st 8,20(11)\n\t" \
"st 9,24(11)\n\t" \
"st 10,28(11)\n\t" \
"stfd 1,32(11)\n\t" \
"stfd 2,40(11)\n\t" \
"stfd 3,48(11)\n\t" \
"stfd 4,56(11)\n\t" \
"stfd 5,64(11)\n\t" \
"stfd 6,72(11)\n\t" \
"stfd 7,80(11)\n\t" \
"stfd 8,88(11)\n\t":::"11", "memory"); \
lparms = gparms;
typedef struct sf
{
struct sf *backchain;
int a1;
unsigned int slot[200];
} stack_frame_t;
/* Fill up floating point registers with double arguments, forcing
decimal float arguments into the parameter save area. */
void __attribute__ ((noinline))
func0 (double a1, double a2, double a3, double a4, double a5,
double a6, double a7, double a8, _Decimal64 a9, _Decimal128 a10)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
if (a1 != lparms.fprs[0]) FAILURE
if (a2 != lparms.fprs[1]) FAILURE
if (a3 != lparms.fprs[2]) FAILURE
if (a4 != lparms.fprs[3]) FAILURE
if (a5 != lparms.fprs[4]) FAILURE
if (a6 != lparms.fprs[5]) FAILURE
if (a7 != lparms.fprs[6]) FAILURE
if (a8 != lparms.fprs[7]) FAILURE
if (a9 != *(_Decimal64 *)&sp->slot[0]) FAILURE
if (a10 != *(_Decimal128 *)&sp->slot[2]) FAILURE
}
/* Alternate 64-bit and 128-bit decimal float arguments, checking that
_Decimal128 is always passed in even/odd register pairs. */
void __attribute__ ((noinline))
func1 (_Decimal64 a1, _Decimal128 a2, _Decimal64 a3, _Decimal128 a4,
_Decimal64 a5, _Decimal128 a6, _Decimal64 a7, _Decimal128 a8)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
if (a1 != *(_Decimal64 *)&lparms.fprs[0]) FAILURE /* f1 */
if (a2 != *(_Decimal128 *)&lparms.fprs[1]) FAILURE /* f2 & f3 */
if (a3 != *(_Decimal64 *)&lparms.fprs[3]) FAILURE /* f4 */
if (a4 != *(_Decimal128 *)&lparms.fprs[5]) FAILURE /* f6 & f7 */
if (a5 != *(_Decimal64 *)&lparms.fprs[7]) FAILURE /* f8 */
if (a6 != *(_Decimal128 *)&sp->slot[0]) FAILURE
if (a7 != *(_Decimal64 *)&sp->slot[4]) FAILURE
if (a8 != *(_Decimal128 *)&sp->slot[6]) FAILURE
}
void __attribute__ ((noinline))
func2 (_Decimal128 a1, _Decimal64 a2, _Decimal128 a3, _Decimal64 a4,
_Decimal128 a5, _Decimal64 a6, _Decimal128 a7, _Decimal64 a8)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
if (a1 != *(_Decimal128 *)&lparms.fprs[1]) FAILURE /* f2 & f3 */
if (a2 != *(_Decimal64 *)&lparms.fprs[3]) FAILURE /* f4 */
if (a3 != *(_Decimal128 *)&lparms.fprs[5]) FAILURE /* f6 & f7 */
if (a4 != *(_Decimal64 *)&lparms.fprs[7]) FAILURE /* f8 */
if (a5 != *(_Decimal128 *)&sp->slot[0]) FAILURE
if (a6 != *(_Decimal64 *)&sp->slot[4]) FAILURE
if (a7 != *(_Decimal128 *)&sp->slot[6]) FAILURE
if (a8 != *(_Decimal64 *)&sp->slot[10]) FAILURE
}
void __attribute__ ((noinline))
func3 (_Decimal64 a1, _Decimal128 a2, _Decimal64 a3, _Decimal128 a4,
_Decimal64 a5)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
if (a1 != *(_Decimal64 *)&lparms.fprs[0]) FAILURE /* f1 */
if (a2 != *(_Decimal128 *)&lparms.fprs[1]) FAILURE /* f2 & f3 */
if (a3 != *(_Decimal64 *)&lparms.fprs[3]) FAILURE /* f4 */
if (a4 != *(_Decimal128 *)&lparms.fprs[5]) FAILURE /* f6 & f7 */
if (a5 != *(_Decimal128 *)&sp->slot[0]) FAILURE
}
void __attribute__ ((noinline))
func4 (_Decimal32 a1, _Decimal32 a2, _Decimal32 a3, _Decimal32 a4,
_Decimal32 a5, _Decimal32 a6, _Decimal32 a7, _Decimal32 a8,
_Decimal32 a9, _Decimal32 a10, _Decimal32 a11, _Decimal32 a12,
_Decimal32 a13, _Decimal32 a14, _Decimal32 a15, _Decimal32 a16)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
/* _Decimal32 is passed in the lower half of an FPR, or in parameter slot. */
if (a1 != ((d32parm_t *)&lparms.fprs[0])->d) FAILURE /* f1 */
if (a2 != ((d32parm_t *)&lparms.fprs[1])->d) FAILURE /* f2 */
if (a3 != ((d32parm_t *)&lparms.fprs[2])->d) FAILURE /* f3 */
if (a4 != ((d32parm_t *)&lparms.fprs[3])->d) FAILURE /* f4 */
if (a5 != ((d32parm_t *)&lparms.fprs[4])->d) FAILURE /* f5 */
if (a6 != ((d32parm_t *)&lparms.fprs[5])->d) FAILURE /* f6 */
if (a7 != ((d32parm_t *)&lparms.fprs[6])->d) FAILURE /* f7 */
if (a8 != ((d32parm_t *)&lparms.fprs[7])->d) FAILURE /* f8 */
if (a9 != *(_Decimal32 *)&sp->slot[0]) FAILURE
if (a10 != *(_Decimal32 *)&sp->slot[1]) FAILURE
if (a11 != *(_Decimal32 *)&sp->slot[2]) FAILURE
if (a12 != *(_Decimal32 *)&sp->slot[3]) FAILURE
if (a13 != *(_Decimal32 *)&sp->slot[4]) FAILURE
if (a14 != *(_Decimal32 *)&sp->slot[5]) FAILURE
if (a15 != *(_Decimal32 *)&sp->slot[6]) FAILURE
if (a16 != *(_Decimal32 *)&sp->slot[7]) FAILURE
}
void __attribute__ ((noinline))
func5 (_Decimal32 a1, _Decimal64 a2, _Decimal128 a3,
_Decimal32 a4, _Decimal64 a5, _Decimal128 a6,
_Decimal32 a7, _Decimal64 a8, _Decimal128 a9,
_Decimal32 a10, _Decimal64 a11, _Decimal128 a12)
{
reg_parms_t lparms;
stack_frame_t *sp;
save_parms (lparms);
sp = __builtin_frame_address (0);
sp = sp->backchain;
if (a1 != ((d32parm_t *)&lparms.fprs[0])->d) FAILURE /* f1 */
if (a2 != *(_Decimal64 *)&lparms.fprs[1]) FAILURE /* f2 */
if (a3 != *(_Decimal128 *)&lparms.fprs[3]) FAILURE /* f4 & f5 */
if (a4 != ((d32parm_t *)&lparms.fprs[5])->d) FAILURE /* f6 */
if (a5 != *(_Decimal64 *)&lparms.fprs[6]) FAILURE /* f7 */
if (a6 != *(_Decimal128 *)&sp->slot[0]) FAILURE
if (a7 != *(_Decimal32 *)&sp->slot[4]) FAILURE
if (a8 != *(_Decimal64 *)&sp->slot[6]) FAILURE
if (a9 != *(_Decimal128 *)&sp->slot[8]) FAILURE
if (a10 != *(_Decimal32 *)&sp->slot[12]) FAILURE
if (a11 != *(_Decimal64 *)&sp->slot[14]) FAILURE
if (a12 != *(_Decimal128 *)&sp->slot[16]) FAILURE
}
int
main ()
{
func0 (1., 2., 3., 4., 5., 6., 7., 8., 9.dd, 10.dl);
func1 (1.dd, 2.dl, 3.dd, 4.dl, 5.dd, 6.dl, 7.dd, 8.dl);
func2 (1.dl, 2.dd, 3.dl, 4.dd, 5.dl, 6.dd, 7.dl, 8.dd);
func3 (1.dd, 2.dl, 3.dd, 4.dl, 5.dl);
func4 (501.2df, 502.2df, 503.2df, 504.2df, 505.2df, 506.2df, 507.2df,
508.2df, 509.2df, 510.2df, 511.2df, 512.2df, 513.2df, 514.2df,
515.2df, 516.2df);
func5 (601.2df, 602.2dd, 603.2dl, 604.2df, 605.2dd, 606.2dl,
607.2df, 608.2dd, 609.2dl, 610.2df, 611.2dd, 612.2dl);
if (failcnt != 0)
abort ();
return 0;
}
|
