[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.base / ptype.c

/*
 *	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 *this, 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 *this, 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 ();

typedef int foo;

foo intfoo (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);

#ifdef usestubs
  set_debug_traps();
  breakpoint();
#endif
  /* 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;
}
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
919809b9 JB	201	struct highest
	202	{
	203	int a;
	204	struct
	205	{
	206	int b;
	207	struct { int c; } anonymous_level_2;
	208	} anonymous_level_1;
	209	} the_highest;
	210
c906108c SS	211	/** Enumerations *****/
	212
	213	enum
	214	/* Work around the bug for compilers which don't put out the right stabs. */
	215	#if __GNUC__ < 2 && !defined (_AIX)
	216	primary1_tag
	217	#endif
	218	{red1, green1, blue1} primary1;
	219
	220	enum {red, green, blue} primary;
	221	enum colors {yellow, purple, pink} nonprimary;
	222
	223	enum {chevy, ford} clunker;
	224	enum cars {bmw, porsche} sportscar;
	225
c3f6f71d JM	226	#undef FALSE
c3f6f71d JM	227	#undef TRUE
c906108c SS	228	typedef enum {FALSE, TRUE} boolean;
c906108c SS	229	boolean v_boolean;
085dd6e6 JM	230	/note: aCC has bool type predefined with 'false' and 'true'/
085dd6e6 JM	231	typedef enum bvals {my_false, my_true} boolean2;
c906108c SS	232	boolean2 v_boolean2;
	233
	234	enum misordered {two = 2, one = 1, zero = 0, three = 3};
	235
085dd6e6 JM	236	/* Seems like we need a variable of this type to get the type to be put
	237	in the executable, at least for AIX xlc. */
	238	enum misordered v_misordered = three;
	239
a640f7fc JB	240	/** Pointers to functions *****/
	241
	242	typedef int (func_type) (int () (int, float), float);
	243	double (*old_fptr) ();
	244	double (*new_fptr) (void);
	245	int (*fptr) (int, float);
	246	int (fptr2) (int (*) (int, float), float);
	247	int (xptr) (int () (), int (*) (void), int);
	248	int ((ffptr) (char)) (short);
	249	int (((*fffptr) (char)) (short)) (long);
	250
e8c71839 MC	251	func_type v_func_type;
e8c71839 MC	252
a640f7fc JB	253	/* Here are the sort of stabs we expect to see for the above:
	254
	255	.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
	256	.stabs "old_fptr:G(0,110)=*(0,111)=f(0,15)",32,0,231,0
	257	.stabs "new_fptr:G(0,120)=*(0,121)=g(0,15)(0,122)=(0,122)#",32,0,232,0
	258	.stabs "fptr:G(0,130)=*(0,103)#",32,0,233,0
	259	.stabs "fptr2:G(0,140)=(0,141)=g(0,142)=(0,1)(0,102)(0,14)#",32,0,235,0
	260	.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
	261	.stabs "ffptr:G(0,160)=(0,161)=g(0,162)=(0,163)=g(0,1)(0,8)#(0,2)#",32,0,237,0\
	262	.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
	263
	264	Most of these use Sun's extension for prototyped function types ---
	265	the 'g' type descriptor. As of around 9 Feb 2002, GCC didn't emit
	266	those, but GDB can read them, so the related tests in ptype.exp
	267	will all xfail. */
	268
	269
f4d85314 FF	270	/***********/
f4d85314 FF	271
0219b378 DJ	272	extern char charfoo ();
0219b378 DJ	273
f4d85314 FF	274	typedef int foo;
	275
	276	foo intfoo (afoo)
	277	{
0219b378	278	charfoo (afoo);
f4d85314 FF	279	return (afoo * 2);
	280	}
	281
c906108c SS	282	/***********/
c906108c SS	283
085dd6e6	284	int main ()
c906108c SS	285	{
c906108c SS	286	/* Ensure that malloc is a pointer type; avoid use of "void" and any include files. */
085dd6e6	287	/* extern char malloc();/
c906108c SS	288
	289	/* Some of the tests in ptype.exp require invoking malloc, so make
	290	sure it is linked in to this program. */
	291	v_char_pointer = (char *) malloc (1);
	292
	293	#ifdef usestubs
	294	set_debug_traps();
	295	breakpoint();
	296	#endif
	297	/* Some linkers (e.g. on AIX) remove unreferenced variables,
	298	so make sure to reference them. */
	299	primary = blue;
	300	primary1 = blue1;
	301	nonprimary = pink;
	302	sportscar = porsche;
	303	clunker = ford;
	304	v_struct1.v_int_member = 5;
	305	v_struct2.v_int_member = 6;
	306	v_struct3.v_int_member = 7;
	307
	308	v_char = 0;
	309	v_signed_char = 0;
	310	v_unsigned_char = 0;
	311
	312	v_short = 0;
	313	v_signed_short = 0;
	314	v_unsigned_short = 0;
	315
	316	v_int = 0;
	317	v_signed_int = 0;
	318	v_unsigned_int = 0;
	319
	320	v_long = 0;
	321	v_signed_long = 0;
	322	v_unsigned_long = 0;
	323
	324	v_float = 0;
	325	v_double = 0;
	326
	327	v_char_array[0] = 0;
	328	v_signed_char_array[0] = 0;
	329	v_unsigned_char_array[0] = 0;
	330
	331	v_short_array[0] = 0;
	332	v_signed_short_array[0] = 0;
	333	v_unsigned_short_array[0] = 0;
	334
	335	v_int_array[0] = 0;
	336	v_signed_int_array[0] = 0;
	337	v_unsigned_int_array[0] = 0;
	338
	339	v_long_array[0] = 0;
	340	v_signed_long_array[0] = 0;
	341	v_unsigned_long_array[0] = 0;
	342
	343	v_float_array[0] = 0;
	344	v_double_array[0] = 0;
	345
	346	v_char_pointer = 0;
	347	v_signed_char_pointer = 0;
	348	v_unsigned_char_pointer = 0;
	349
	350	v_short_pointer = 0;
	351	v_signed_short_pointer = 0;
352	v_unsigned_short_pointer = 0;
353
354	v_int_pointer = 0;
355	v_signed_int_pointer = 0;
356	v_unsigned_int_pointer = 0;
357
358	v_long_pointer = 0;
359	v_signed_long_pointer = 0;
360	v_unsigned_long_pointer = 0;
361
362	v_float_pointer = 0;
363	v_double_pointer = 0;
364
365	nested_su.outer_int = 0;
366	v_t_struct_p = 0;
367
919809b9 JB	368	the_highest.a = 0;
919809b9 JB	369
c906108c	370	v_boolean = FALSE;
085dd6e6 JM	371	v_boolean2 = my_false;
085dd6e6 JM	372	return 0;
c906108c	373	}