blob: 6d12c2add423abaf4e0fcf3e1f4778c5c5cd9473 [file] [log] [blame]
/*
* Test file with lots of different types, for testing the
* "ptype" command.
*/
/*
* First the basic C types.
*/
#include <stdlib.h>
#if !defined (__STDC__) && !defined (_AIX)
#define signed /**/
#endif
char v_char;
signed char v_signed_char;
unsigned char v_unsigned_char;
short v_short;
signed short v_signed_short;
unsigned short v_unsigned_short;
int v_int;
signed int v_signed_int;
unsigned int v_unsigned_int;
long v_long;
signed long v_signed_long;
unsigned long v_unsigned_long;
float v_float;
double v_double;
/*
* Now some derived types, which are arrays, functions-returning,
* pointers, structures, unions, and enumerations.
*/
/**** arrays *******/
char v_char_array[2];
signed char v_signed_char_array[2];
unsigned char v_unsigned_char_array[2];
short v_short_array[2];
signed short v_signed_short_array[2];
unsigned short v_unsigned_short_array[2];
int v_int_array[2];
signed int v_signed_int_array[2];
unsigned int v_unsigned_int_array[2];
long v_long_array[2];
signed long v_signed_long_array[2];
unsigned long v_unsigned_long_array[2];
float v_float_array[2];
double v_double_array[2];
/* PR 3742 */
typedef char t_char_array[];
t_char_array *pv_char_array;
/**** pointers *******/
char *v_char_pointer;
signed char *v_signed_char_pointer;
unsigned char *v_unsigned_char_pointer;
short *v_short_pointer;
signed short *v_signed_short_pointer;
unsigned short *v_unsigned_short_pointer;
int *v_int_pointer;
signed int *v_signed_int_pointer;
unsigned int *v_unsigned_int_pointer;
long *v_long_pointer;
signed long *v_signed_long_pointer;
unsigned long *v_unsigned_long_pointer;
float *v_float_pointer;
double *v_double_pointer;
/**** structs *******/
struct t_struct {
char v_char_member;
short v_short_member;
int v_int_member;
long v_long_member;
float v_float_member;
double v_double_member;
} v_struct1;
struct t_struct *v_t_struct_p;
struct {
char v_char_member;
short v_short_member;
int v_int_member;
long v_long_member;
float v_float_member;
double v_double_member;
} v_struct2;
/* typedef'd struct without a tag. */
typedef struct {
double v_double_member;
int v_int_member;
} t_struct3;
/* GCC seems to want a variable of this type, or else it won't put out
a symbol. */
t_struct3 v_struct3;
/**** unions *******/
union t_union {
char v_char_member;
short v_short_member;
int v_int_member;
long v_long_member;
float v_float_member;
double v_double_member;
} v_union;
union {
char v_char_member;
short v_short_member;
int v_int_member;
long v_long_member;
float v_float_member;
double v_double_member;
} v_union2;
/* typedef'd union without a tag. */
typedef union {
double v_double_member;
int v_int_member;
} t_union3;
/* GCC seems to want a variable of this type, or else it won't put out
a symbol. */
t_union3 v_union3;
/*** Functions returning type ********/
char v_char_func () { return(0); }
signed char v_signed_char_func () { return (0); }
unsigned char v_unsigned_char_func () { return (0); }
short v_short_func () { return (0); }
signed short v_signed_short_func () { return (0); }
unsigned short v_unsigned_short_func () { return (0); }
int v_int_func () { return (0); }
signed int v_signed_int_func () { return (0); }
unsigned int v_unsigned_int_func () { return (0); }
long v_long_func () { return (0); }
signed long v_signed_long_func () { return (0); }
unsigned long v_unsigned_long_func () { return (0); }
float v_float_func () { return (0.0); }
double v_double_func () { return (0.0); }
/**** Some misc more complicated things *******/
struct link {
struct link *next;
#ifdef __STDC__
struct link *(*linkfunc) (struct link *self, int flags);
#else
struct link *(*linkfunc) ();
#endif
struct t_struct stuff[1][2][3];
} *s_link;
union tu_link {
struct link *next;
#ifdef __STDC__
struct link *(*linkfunc) (struct link *self, int flags);
#else
struct link *(*linkfunc) ();
#endif
struct t_struct stuff[1][2][3];
} u_link;
struct outer_struct {
int outer_int;
struct inner_struct {
int inner_int;
long inner_long;
}inner_struct_instance;
union inner_union {
int inner_union_int;
long inner_union_long;
}inner_union_instance;
long outer_long;
} nested_su;
struct highest
{
int a;
struct
{
int b;
struct { int c; } anonymous_level_2;
} anonymous_level_1;
} the_highest;
/**** Enumerations *******/
enum
/* Work around the bug for compilers which don't put out the right stabs. */
#if __GNUC__ < 2 && !defined (_AIX)
primary1_tag
#endif
{red1, green1, blue1} primary1;
enum {red, green, blue} primary;
enum colors {yellow, purple, pink} nonprimary;
enum {chevy, ford} clunker;
enum cars {bmw, porsche} sportscar;
#undef FALSE
#undef TRUE
typedef enum {FALSE, TRUE} boolean;
boolean v_boolean;
/*note: aCC has bool type predefined with 'false' and 'true'*/
typedef enum bvals {my_false, my_true} boolean2;
boolean2 v_boolean2;
enum misordered {two = 2, one = 1, zero = 0, three = 3};
/* Seems like we need a variable of this type to get the type to be put
in the executable, at least for AIX xlc. */
enum misordered v_misordered = three;
/**** Pointers to functions *******/
typedef int (*func_type) (int (*) (int, float), float);
double (*old_fptr) ();
double (*new_fptr) (void);
int (*fptr) (int, float);
int *(*fptr2) (int (*) (int, float), float);
int (*xptr) (int (*) (), int (*) (void), int);
int (*(*ffptr) (char)) (short);
int (*(*(*fffptr) (char)) (short)) (long);
func_type v_func_type;
/* Here are the sort of stabs we expect to see for the above:
.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
.stabs "old_fptr:G(0,110)=*(0,111)=f(0,15)",32,0,231,0
.stabs "new_fptr:G(0,120)=*(0,121)=g(0,15)(0,122)=(0,122)#",32,0,232,0
.stabs "fptr:G(0,130)=*(0,103)#",32,0,233,0
.stabs "fptr2:G(0,140)=*(0,141)=g(0,142)=*(0,1)(0,102)(0,14)#",32,0,235,0
.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
.stabs "ffptr:G(0,160)=*(0,161)=g(0,162)=*(0,163)=g(0,1)(0,8)#(0,2)#",32,0,237,0\
.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
Most of these use Sun's extension for prototyped function types ---
the 'g' type descriptor. As of around 9 Feb 2002, GCC didn't emit
those, but GDB can read them, so the related tests in ptype.exp
will all xfail. */
/***********/
extern char charfoo (int);
typedef int foo;
foo intfoo (int afoo)
{
charfoo (afoo);
return (afoo * 2);
}
/***********/
int main ()
{
/* Ensure that malloc is a pointer type; avoid use of "void" and any include files. */
/* extern char *malloc();*/
/* Some of the tests in ptype.exp require invoking malloc, so make
sure it is linked in to this program. */
v_char_pointer = (char *) malloc (1);
/* Some linkers (e.g. on AIX) remove unreferenced variables,
so make sure to reference them. */
primary = blue;
primary1 = blue1;
nonprimary = pink;
sportscar = porsche;
clunker = ford;
v_struct1.v_int_member = 5;
v_struct2.v_int_member = 6;
v_struct3.v_int_member = 7;
v_char = 0;
v_signed_char = 0;
v_unsigned_char = 0;
v_short = 0;
v_signed_short = 0;
v_unsigned_short = 0;
v_int = 0;
v_signed_int = 0;
v_unsigned_int = 0;
v_long = 0;
v_signed_long = 0;
v_unsigned_long = 0;
v_float = 0;
v_double = 0;
v_char_array[0] = 0;
v_signed_char_array[0] = 0;
v_unsigned_char_array[0] = 0;
v_short_array[0] = 0;
v_signed_short_array[0] = 0;
v_unsigned_short_array[0] = 0;
v_int_array[0] = 0;
v_signed_int_array[0] = 0;
v_unsigned_int_array[0] = 0;
v_long_array[0] = 0;
v_signed_long_array[0] = 0;
v_unsigned_long_array[0] = 0;
v_float_array[0] = 0;
v_double_array[0] = 0;
v_char_pointer = 0;
v_signed_char_pointer = 0;
v_unsigned_char_pointer = 0;
v_short_pointer = 0;
v_signed_short_pointer = 0;
v_unsigned_short_pointer = 0;
v_int_pointer = 0;
v_signed_int_pointer = 0;
v_unsigned_int_pointer = 0;
v_long_pointer = 0;
v_signed_long_pointer = 0;
v_unsigned_long_pointer = 0;
v_float_pointer = 0;
v_double_pointer = 0;
nested_su.outer_int = 0;
v_t_struct_p = 0;
the_highest.a = 0;
v_boolean = FALSE;
v_boolean2 = my_false;
return 0;
}