Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* |
2 | * Test file with lots of different types, for testing the | |
3 | * "ptype" command. | |
4 | */ | |
5 | ||
6 | /* | |
7 | * First the basic C types. | |
8 | */ | |
085dd6e6 | 9 | #include <stdlib.h> |
c906108c SS |
10 | |
11 | #if !defined (__STDC__) && !defined (_AIX) | |
12 | #define signed /**/ | |
13 | #endif | |
14 | ||
15 | char v_char; | |
16 | signed char v_signed_char; | |
17 | unsigned char v_unsigned_char; | |
18 | ||
19 | short v_short; | |
20 | signed short v_signed_short; | |
21 | unsigned short v_unsigned_short; | |
22 | ||
23 | int v_int; | |
24 | signed int v_signed_int; | |
25 | unsigned int v_unsigned_int; | |
26 | ||
27 | long v_long; | |
28 | signed long v_signed_long; | |
29 | unsigned long v_unsigned_long; | |
30 | ||
31 | float v_float; | |
32 | double v_double; | |
33 | ||
34 | /* | |
35 | * Now some derived types, which are arrays, functions-returning, | |
36 | * pointers, structures, unions, and enumerations. | |
37 | */ | |
38 | ||
39 | /**** arrays *******/ | |
40 | ||
41 | char v_char_array[2]; | |
42 | signed char v_signed_char_array[2]; | |
43 | unsigned char v_unsigned_char_array[2]; | |
44 | ||
45 | short v_short_array[2]; | |
46 | signed short v_signed_short_array[2]; | |
47 | unsigned short v_unsigned_short_array[2]; | |
48 | ||
49 | int v_int_array[2]; | |
50 | signed int v_signed_int_array[2]; | |
51 | unsigned int v_unsigned_int_array[2]; | |
52 | ||
53 | long v_long_array[2]; | |
54 | signed long v_signed_long_array[2]; | |
55 | unsigned long v_unsigned_long_array[2]; | |
56 | ||
57 | float v_float_array[2]; | |
58 | double v_double_array[2]; | |
59 | ||
60 | /* PR 3742 */ | |
61 | typedef char t_char_array[]; | |
e8c71839 | 62 | t_char_array *pv_char_array; |
c906108c SS |
63 | |
64 | /**** pointers *******/ | |
65 | ||
66 | char *v_char_pointer; | |
67 | signed char *v_signed_char_pointer; | |
68 | unsigned char *v_unsigned_char_pointer; | |
69 | ||
70 | short *v_short_pointer; | |
71 | signed short *v_signed_short_pointer; | |
72 | unsigned short *v_unsigned_short_pointer; | |
73 | ||
74 | int *v_int_pointer; | |
75 | signed int *v_signed_int_pointer; | |
76 | unsigned int *v_unsigned_int_pointer; | |
77 | ||
78 | long *v_long_pointer; | |
79 | signed long *v_signed_long_pointer; | |
80 | unsigned long *v_unsigned_long_pointer; | |
81 | ||
82 | float *v_float_pointer; | |
83 | double *v_double_pointer; | |
84 | ||
85 | /**** structs *******/ | |
86 | ||
87 | struct t_struct { | |
88 | char v_char_member; | |
89 | short v_short_member; | |
90 | int v_int_member; | |
91 | long v_long_member; | |
92 | float v_float_member; | |
93 | double v_double_member; | |
94 | } v_struct1; | |
95 | ||
96 | struct t_struct *v_t_struct_p; | |
97 | ||
98 | struct { | |
99 | char v_char_member; | |
100 | short v_short_member; | |
101 | int v_int_member; | |
102 | long v_long_member; | |
103 | float v_float_member; | |
104 | double v_double_member; | |
105 | } v_struct2; | |
106 | ||
107 | /* typedef'd struct without a tag. */ | |
108 | typedef struct { | |
109 | double v_double_member; | |
110 | int v_int_member; | |
111 | } t_struct3; | |
112 | /* GCC seems to want a variable of this type, or else it won't put out | |
113 | a symbol. */ | |
114 | t_struct3 v_struct3; | |
115 | ||
116 | /**** unions *******/ | |
117 | ||
118 | union t_union { | |
119 | char v_char_member; | |
120 | short v_short_member; | |
121 | int v_int_member; | |
122 | long v_long_member; | |
123 | float v_float_member; | |
124 | double v_double_member; | |
125 | } v_union; | |
126 | ||
127 | union { | |
128 | char v_char_member; | |
129 | short v_short_member; | |
130 | int v_int_member; | |
131 | long v_long_member; | |
132 | float v_float_member; | |
133 | double v_double_member; | |
134 | } v_union2; | |
135 | ||
136 | /* typedef'd union without a tag. */ | |
137 | typedef union { | |
138 | double v_double_member; | |
139 | int v_int_member; | |
140 | } t_union3; | |
141 | /* GCC seems to want a variable of this type, or else it won't put out | |
142 | a symbol. */ | |
143 | t_union3 v_union3; | |
144 | ||
145 | /*** Functions returning type ********/ | |
146 | ||
147 | char v_char_func () { return(0); } | |
148 | signed char v_signed_char_func () { return (0); } | |
149 | unsigned char v_unsigned_char_func () { return (0); } | |
150 | ||
151 | short v_short_func () { return (0); } | |
152 | signed short v_signed_short_func () { return (0); } | |
153 | unsigned short v_unsigned_short_func () { return (0); } | |
154 | ||
155 | int v_int_func () { return (0); } | |
156 | signed int v_signed_int_func () { return (0); } | |
157 | unsigned int v_unsigned_int_func () { return (0); } | |
158 | ||
159 | long v_long_func () { return (0); } | |
160 | signed long v_signed_long_func () { return (0); } | |
161 | unsigned long v_unsigned_long_func () { return (0); } | |
162 | ||
163 | float v_float_func () { return (0.0); } | |
164 | double v_double_func () { return (0.0); } | |
165 | ||
166 | /**** Some misc more complicated things *******/ | |
167 | ||
168 | struct link { | |
169 | struct link *next; | |
170 | #ifdef __STDC__ | |
171 | struct link *(*linkfunc) (struct link *this, int flags); | |
172 | #else | |
173 | struct link *(*linkfunc) (); | |
174 | #endif | |
175 | struct t_struct stuff[1][2][3]; | |
176 | } *s_link; | |
177 | ||
178 | union tu_link { | |
179 | struct link *next; | |
180 | #ifdef __STDC__ | |
181 | struct link *(*linkfunc) (struct link *this, int flags); | |
182 | #else | |
183 | struct link *(*linkfunc) (); | |
184 | #endif | |
185 | struct t_struct stuff[1][2][3]; | |
186 | } u_link; | |
187 | ||
188 | struct outer_struct { | |
189 | int outer_int; | |
190 | struct inner_struct { | |
191 | int inner_int; | |
192 | long inner_long; | |
193 | }inner_struct_instance; | |
194 | union inner_union { | |
195 | int inner_union_int; | |
196 | long inner_union_long; | |
197 | }inner_union_instance; | |
198 | long outer_long; | |
199 | } nested_su; | |
200 | ||
201 | /**** Enumerations *******/ | |
202 | ||
203 | enum | |
204 | /* Work around the bug for compilers which don't put out the right stabs. */ | |
205 | #if __GNUC__ < 2 && !defined (_AIX) | |
206 | primary1_tag | |
207 | #endif | |
208 | {red1, green1, blue1} primary1; | |
209 | ||
210 | enum {red, green, blue} primary; | |
211 | enum colors {yellow, purple, pink} nonprimary; | |
212 | ||
213 | enum {chevy, ford} clunker; | |
214 | enum cars {bmw, porsche} sportscar; | |
215 | ||
c3f6f71d JM |
216 | #undef FALSE |
217 | #undef TRUE | |
c906108c SS |
218 | typedef enum {FALSE, TRUE} boolean; |
219 | boolean v_boolean; | |
085dd6e6 JM |
220 | /*note: aCC has bool type predefined with 'false' and 'true'*/ |
221 | typedef enum bvals {my_false, my_true} boolean2; | |
c906108c SS |
222 | boolean2 v_boolean2; |
223 | ||
224 | enum misordered {two = 2, one = 1, zero = 0, three = 3}; | |
225 | ||
085dd6e6 JM |
226 | /* Seems like we need a variable of this type to get the type to be put |
227 | in the executable, at least for AIX xlc. */ | |
228 | enum misordered v_misordered = three; | |
229 | ||
a640f7fc JB |
230 | /**** Pointers to functions *******/ |
231 | ||
232 | typedef int (*func_type) (int (*) (int, float), float); | |
233 | double (*old_fptr) (); | |
234 | double (*new_fptr) (void); | |
235 | int (*fptr) (int, float); | |
236 | int *(*fptr2) (int (*) (int, float), float); | |
237 | int (*xptr) (int (*) (), int (*) (void), int); | |
238 | int (*(*ffptr) (char)) (short); | |
239 | int (*(*(*fffptr) (char)) (short)) (long); | |
240 | ||
e8c71839 MC |
241 | func_type v_func_type; |
242 | ||
a640f7fc JB |
243 | /* Here are the sort of stabs we expect to see for the above: |
244 | ||
245 | .stabs "func_type:t(0,100)=*(0,101)=g(0,1)(0,102)=*(0,103)=g(0,1)(0,1)(0,14)#(0,14)#",128,0,234,0 | |
246 | .stabs "old_fptr:G(0,110)=*(0,111)=f(0,15)",32,0,231,0 | |
247 | .stabs "new_fptr:G(0,120)=*(0,121)=g(0,15)(0,122)=(0,122)#",32,0,232,0 | |
248 | .stabs "fptr:G(0,130)=*(0,103)#",32,0,233,0 | |
249 | .stabs "fptr2:G(0,140)=*(0,141)=g(0,142)=*(0,1)(0,102)(0,14)#",32,0,235,0 | |
250 | .stabs "xptr:G(0,150)=*(0,151)=g(0,1)(0,152)=*(0,153)=f(0,1)(0,154)=*(0,155)=g(0,1)(0,122)#(0,1)#",32,0,236,0 | |
251 | .stabs "ffptr:G(0,160)=*(0,161)=g(0,162)=*(0,163)=g(0,1)(0,8)#(0,2)#",32,0,237,0\ | |
252 | .stabs "fffptr:G(0,170)=*(0,171)=g(0,172)=*(0,173)=g(0,174)=*(0,175)=g(0,1)(0,3)#(0,8)#(0,2)#",32,0,237,0 | |
253 | ||
254 | Most of these use Sun's extension for prototyped function types --- | |
255 | the 'g' type descriptor. As of around 9 Feb 2002, GCC didn't emit | |
256 | those, but GDB can read them, so the related tests in ptype.exp | |
257 | will all xfail. */ | |
258 | ||
259 | ||
c906108c SS |
260 | /***********/ |
261 | ||
085dd6e6 | 262 | int main () |
c906108c SS |
263 | { |
264 | /* Ensure that malloc is a pointer type; avoid use of "void" and any include files. */ | |
085dd6e6 | 265 | /* extern char *malloc();*/ |
c906108c SS |
266 | |
267 | /* Some of the tests in ptype.exp require invoking malloc, so make | |
268 | sure it is linked in to this program. */ | |
269 | v_char_pointer = (char *) malloc (1); | |
270 | ||
271 | #ifdef usestubs | |
272 | set_debug_traps(); | |
273 | breakpoint(); | |
274 | #endif | |
275 | /* Some linkers (e.g. on AIX) remove unreferenced variables, | |
276 | so make sure to reference them. */ | |
277 | primary = blue; | |
278 | primary1 = blue1; | |
279 | nonprimary = pink; | |
280 | sportscar = porsche; | |
281 | clunker = ford; | |
282 | v_struct1.v_int_member = 5; | |
283 | v_struct2.v_int_member = 6; | |
284 | v_struct3.v_int_member = 7; | |
285 | ||
286 | v_char = 0; | |
287 | v_signed_char = 0; | |
288 | v_unsigned_char = 0; | |
289 | ||
290 | v_short = 0; | |
291 | v_signed_short = 0; | |
292 | v_unsigned_short = 0; | |
293 | ||
294 | v_int = 0; | |
295 | v_signed_int = 0; | |
296 | v_unsigned_int = 0; | |
297 | ||
298 | v_long = 0; | |
299 | v_signed_long = 0; | |
300 | v_unsigned_long = 0; | |
301 | ||
302 | v_float = 0; | |
303 | v_double = 0; | |
304 | ||
305 | v_char_array[0] = 0; | |
306 | v_signed_char_array[0] = 0; | |
307 | v_unsigned_char_array[0] = 0; | |
308 | ||
309 | v_short_array[0] = 0; | |
310 | v_signed_short_array[0] = 0; | |
311 | v_unsigned_short_array[0] = 0; | |
312 | ||
313 | v_int_array[0] = 0; | |
314 | v_signed_int_array[0] = 0; | |
315 | v_unsigned_int_array[0] = 0; | |
316 | ||
317 | v_long_array[0] = 0; | |
318 | v_signed_long_array[0] = 0; | |
319 | v_unsigned_long_array[0] = 0; | |
320 | ||
321 | v_float_array[0] = 0; | |
322 | v_double_array[0] = 0; | |
323 | ||
324 | v_char_pointer = 0; | |
325 | v_signed_char_pointer = 0; | |
326 | v_unsigned_char_pointer = 0; | |
327 | ||
328 | v_short_pointer = 0; | |
329 | v_signed_short_pointer = 0; | |
330 | v_unsigned_short_pointer = 0; | |
331 | ||
332 | v_int_pointer = 0; | |
333 | v_signed_int_pointer = 0; | |
334 | v_unsigned_int_pointer = 0; | |
335 | ||
336 | v_long_pointer = 0; | |
337 | v_signed_long_pointer = 0; | |
338 | v_unsigned_long_pointer = 0; | |
339 | ||
340 | v_float_pointer = 0; | |
341 | v_double_pointer = 0; | |
342 | ||
343 | nested_su.outer_int = 0; | |
344 | v_t_struct_p = 0; | |
345 | ||
346 | v_boolean = FALSE; | |
085dd6e6 JM |
347 | v_boolean2 = my_false; |
348 | return 0; | |
c906108c | 349 | } |