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 */ 9 #include <stdlib.h> 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[]; 62 t_char_array *pv_char_array; 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 216 #undef FALSE 217 #undef TRUE 218 typedef enum {FALSE, TRUE} boolean; 219 boolean v_boolean; 220 /*note: aCC has bool type predefined with 'false' and 'true'*/ 221 typedef enum bvals {my_false, my_true} boolean2; 222 boolean2 v_boolean2; 223 224 enum misordered {two = 2, one = 1, zero = 0, three = 3}; 225 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 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 241 func_type v_func_type; 242 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 260 /***********/ 261 262 int main () 263 { 264 /* Ensure that malloc is a pointer type; avoid use of "void" and any include files. */ 265 /* extern char *malloc();*/ 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; 347 v_boolean2 = my_false; 348 return 0; 349 } 350