|
111
|
1 #include "compat-common.h"
|
|
|
2
|
|
|
3 #include "fp2-struct-defs.h"
|
|
|
4 #include "fp2-struct-check.h"
|
|
|
5
|
|
|
6 #define TEST(TYPE) \
|
|
|
7 TYPE g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE; \
|
|
|
8 TYPE g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE; \
|
|
|
9 TYPE g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE; \
|
|
|
10 TYPE g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE; \
|
|
|
11 \
|
|
|
12 extern void init##TYPE (TYPE *p, double x); \
|
|
|
13 extern void checkg##TYPE (void); \
|
|
|
14 extern void \
|
|
|
15 test##TYPE (TYPE s1, TYPE s2, TYPE s3, TYPE s4, \
|
|
|
16 TYPE s5, TYPE s6, TYPE s7, TYPE s8, \
|
|
|
17 TYPE s9, TYPE s10, TYPE s11, TYPE s12, \
|
|
|
18 TYPE s13, TYPE s14, TYPE s15, TYPE s16); \
|
|
|
19 extern void testva##TYPE (int n, ...); \
|
|
|
20 \
|
|
|
21 void \
|
|
|
22 test2_##TYPE (TYPE s1, TYPE s2, TYPE s3, TYPE s4, \
|
|
|
23 TYPE s5, TYPE s6, TYPE s7, TYPE s8) \
|
|
|
24 { \
|
|
|
25 test##TYPE (s1, g2s##TYPE, s2, g4s##TYPE, \
|
|
|
26 s3, g6s##TYPE, s4, g8s##TYPE, \
|
|
|
27 s5, g10s##TYPE, s6, g12s##TYPE, \
|
|
|
28 s7, g14s##TYPE, s8, g16s##TYPE); \
|
|
|
29 } \
|
|
|
30 \
|
|
|
31 void \
|
|
|
32 testit##TYPE (void) \
|
|
|
33 { \
|
|
|
34 DEBUG_FPUTS (#TYPE); \
|
|
|
35 DEBUG_FPUTS (" init: "); \
|
|
|
36 init##TYPE ( &g1s##TYPE, (double)1); \
|
|
|
37 init##TYPE ( &g2s##TYPE, (double)2); \
|
|
|
38 init##TYPE ( &g3s##TYPE, (double)3); \
|
|
|
39 init##TYPE ( &g4s##TYPE, (double)4); \
|
|
|
40 init##TYPE ( &g5s##TYPE, (double)5); \
|
|
|
41 init##TYPE ( &g6s##TYPE, (double)6); \
|
|
|
42 init##TYPE ( &g7s##TYPE, (double)7); \
|
|
|
43 init##TYPE ( &g8s##TYPE, (double)8); \
|
|
|
44 init##TYPE ( &g9s##TYPE, (double)9); \
|
|
|
45 init##TYPE (&g10s##TYPE, (double)10); \
|
|
|
46 init##TYPE (&g11s##TYPE, (double)11); \
|
|
|
47 init##TYPE (&g12s##TYPE, (double)12); \
|
|
|
48 init##TYPE (&g13s##TYPE, (double)13); \
|
|
|
49 init##TYPE (&g14s##TYPE, (double)14); \
|
|
|
50 init##TYPE (&g15s##TYPE, (double)15); \
|
|
|
51 init##TYPE (&g16s##TYPE, (double)16); \
|
|
|
52 checkg##TYPE (); \
|
|
|
53 DEBUG_NL; \
|
|
|
54 DEBUG_FPUTS (#TYPE); \
|
|
|
55 DEBUG_FPUTS (" test: "); \
|
|
|
56 test##TYPE (g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
57 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
58 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE, \
|
|
|
59 g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE); \
|
|
|
60 DEBUG_NL; \
|
|
|
61 DEBUG_FPUTS (#TYPE); \
|
|
|
62 DEBUG_FPUTS (" testva:"); \
|
|
|
63 DEBUG_NL; \
|
|
|
64 testva##TYPE (1, \
|
|
|
65 g1s##TYPE); \
|
|
|
66 DEBUG_NL; \
|
|
|
67 testva##TYPE (2, \
|
|
|
68 g1s##TYPE, g2s##TYPE); \
|
|
|
69 DEBUG_NL; \
|
|
|
70 testva##TYPE (3, \
|
|
|
71 g1s##TYPE, g2s##TYPE, g3s##TYPE); \
|
|
|
72 DEBUG_NL; \
|
|
|
73 testva##TYPE (4, \
|
|
|
74 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE); \
|
|
|
75 DEBUG_NL; \
|
|
|
76 testva##TYPE (5, \
|
|
|
77 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
78 g5s##TYPE); \
|
|
|
79 DEBUG_NL; \
|
|
|
80 testva##TYPE (6, \
|
|
|
81 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
82 g5s##TYPE, g6s##TYPE); \
|
|
|
83 DEBUG_NL; \
|
|
|
84 testva##TYPE (7, \
|
|
|
85 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
86 g5s##TYPE, g6s##TYPE, g7s##TYPE); \
|
|
|
87 DEBUG_NL; \
|
|
|
88 testva##TYPE (8, \
|
|
|
89 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
90 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE); \
|
|
|
91 DEBUG_NL; \
|
|
|
92 testva##TYPE (9, \
|
|
|
93 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
94 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
95 g9s##TYPE); \
|
|
|
96 DEBUG_NL; \
|
|
|
97 testva##TYPE (10, \
|
|
|
98 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
99 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
100 g9s##TYPE, g10s##TYPE); \
|
|
|
101 DEBUG_NL; \
|
|
|
102 testva##TYPE (11, \
|
|
|
103 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
104 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
105 g9s##TYPE, g10s##TYPE, g11s##TYPE); \
|
|
|
106 DEBUG_NL; \
|
|
|
107 testva##TYPE (12, \
|
|
|
108 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
109 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
110 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE); \
|
|
|
111 DEBUG_NL; \
|
|
|
112 testva##TYPE (13, \
|
|
|
113 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
114 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
115 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE, \
|
|
|
116 g13s##TYPE); \
|
|
|
117 DEBUG_NL; \
|
|
|
118 testva##TYPE (14, \
|
|
|
119 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
120 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
121 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE, \
|
|
|
122 g13s##TYPE, g14s##TYPE); \
|
|
|
123 DEBUG_NL; \
|
|
|
124 testva##TYPE (15, \
|
|
|
125 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
126 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
127 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE, \
|
|
|
128 g13s##TYPE, g14s##TYPE, g15s##TYPE); \
|
|
|
129 DEBUG_NL; \
|
|
|
130 testva##TYPE (16, \
|
|
|
131 g1s##TYPE, g2s##TYPE, g3s##TYPE, g4s##TYPE, \
|
|
|
132 g5s##TYPE, g6s##TYPE, g7s##TYPE, g8s##TYPE, \
|
|
|
133 g9s##TYPE, g10s##TYPE, g11s##TYPE, g12s##TYPE, \
|
|
|
134 g13s##TYPE, g14s##TYPE, g15s##TYPE, g16s##TYPE); \
|
|
|
135 DEBUG_NL; \
|
|
|
136 DEBUG_FPUTS (#TYPE); \
|
|
|
137 DEBUG_FPUTS (" test2: "); \
|
|
|
138 test2_##TYPE (g1s##TYPE, g3s##TYPE, g5s##TYPE, g7s##TYPE, \
|
|
|
139 g9s##TYPE, g11s##TYPE, g13s##TYPE, g15s##TYPE); \
|
|
|
140 DEBUG_NL; \
|
|
|
141 }
|
|
|
142
|
|
|
143 TEST(Sfd)
|
|
|
144 TEST(Sfl)
|
|
|
145 TEST(Sdf)
|
|
|
146 TEST(Sdl)
|
|
|
147 TEST(Slf)
|
|
|
148 TEST(Sld)
|
|
|
149 TEST(Sfdl)
|
|
|
150 TEST(Sfld)
|
|
|
151 TEST(Sdfl)
|
|
|
152 TEST(Sdlf)
|
|
|
153 TEST(Slfd)
|
|
|
154 TEST(Sldf)
|
|
|
155
|
|
|
156 #undef T
|
|
|
157
|
|
|
158 void
|
|
|
159 struct_by_value_10_x ()
|
|
|
160 {
|
|
|
161 DEBUG_INIT
|
|
|
162
|
|
|
163 #define T(TYPE) testit##TYPE ();
|
|
|
164
|
|
|
165 T(Sfd)
|
|
|
166 T(Sfl)
|
|
|
167 T(Sdf)
|
|
|
168 T(Sdl)
|
|
|
169 T(Slf)
|
|
|
170 T(Sld)
|
|
|
171 T(Sfdl)
|
|
|
172 T(Sfld)
|
|
|
173 T(Sdfl)
|
|
|
174 T(Sdlf)
|
|
|
175 T(Slfd)
|
|
|
176 T(Sldf)
|
|
|
177
|
|
|
178 DEBUG_FINI
|
|
|
179
|
|
|
180 if (fails != 0)
|
|
|
181 abort ();
|
|
|
182
|
|
|
183 #undef T
|
|
|
184 }
|
