1 /* This testcase is part of GDB, the GNU debugger.
3 Copyright 1998-2013 Free Software Foundation, Inc.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19 * Test program for trace action commands
24 static char gdb_char_test
;
25 static short gdb_short_test
;
26 static long gdb_long_test
;
27 static char gdb_arr_test
[25];
28 static struct GDB_STRUCT_TEST
33 int bfield
: 11; /* collect bitfield */
35 struct GDB_STRUCT_TEST
*next
;
36 } gdb_struct1_test
, gdb_struct2_test
, *gdb_structp_test
, **gdb_structpp_test
;
38 static union GDB_UNION_TEST
43 int bfield
: 11; /* collect bitfield */
45 union GDB_UNION_TEST
*next
;
48 void gdb_recursion_test (int, int, int, int, int, int, int);
50 void gdb_recursion_test (int depth
,
57 { /* gdb_recursion_test line 0 */
58 int q
= q1
; /* gdbtestline 1 */
60 q1
= q2
; /* gdbtestline 2 */
61 q2
= q3
; /* gdbtestline 3 */
62 q3
= q4
; /* gdbtestline 4 */
63 q4
= q5
; /* gdbtestline 5 */
64 q5
= q6
; /* gdbtestline 6 */
65 q6
= q
; /* gdbtestline 7 */
66 if (depth
--) /* gdbtestline 8 */
67 gdb_recursion_test (depth
, q1
, q2
, q3
, q4
, q5
, q6
); /* gdbtestline 9 */
71 unsigned long gdb_c_test( unsigned long *parm
)
74 char *p
= "gdb_c_test";
75 char *ridiculously_long_variable_name_with_equally_long_string_assignment
;
76 register long local_reg
= 7;
77 static unsigned long local_static
, local_static_sizeof
;
79 unsigned long *stack_ptr
;
80 unsigned long end_of_stack
;
82 ridiculously_long_variable_name_with_equally_long_string_assignment
=
83 "ridiculously long variable name with equally long string assignment";
85 local_static_sizeof
= sizeof (struct GDB_STRUCT_TEST
);
86 local_long
= local_reg
+ 1;
87 stack_ptr
= (unsigned long *) &local_long
;
89 (unsigned long) &stack_ptr
+ sizeof(stack_ptr
) + sizeof(end_of_stack
) - 1;
91 gdb_char_test
= gdb_struct1_test
.c
= (char) ((long) parm
[1] & 0xff);
92 gdb_short_test
= gdb_struct1_test
.s
= (short) ((long) parm
[2] & 0xffff);
93 gdb_long_test
= gdb_struct1_test
.l
= (long) ((long) parm
[3] & 0xffffffff);
94 gdb_union1_test
.l
= (long) parm
[4];
95 gdb_arr_test
[0] = gdb_struct1_test
.arr
[0] = (char) ((long) parm
[1] & 0xff);
96 gdb_arr_test
[1] = gdb_struct1_test
.arr
[1] = (char) ((long) parm
[2] & 0xff);
97 gdb_arr_test
[2] = gdb_struct1_test
.arr
[2] = (char) ((long) parm
[3] & 0xff);
98 gdb_arr_test
[3] = gdb_struct1_test
.arr
[3] = (char) ((long) parm
[4] & 0xff);
99 gdb_arr_test
[4] = gdb_struct1_test
.arr
[4] = (char) ((long) parm
[5] & 0xff);
100 gdb_arr_test
[5] = gdb_struct1_test
.arr
[5] = (char) ((long) parm
[6] & 0xff);
101 gdb_struct1_test
.bfield
= 144;
102 gdb_struct1_test
.next
= &gdb_struct2_test
;
103 gdb_structp_test
= &gdb_struct1_test
;
104 gdb_structpp_test
= &gdb_structp_test
;
106 gdb_recursion_test (3, (long) parm
[1], (long) parm
[2], (long) parm
[3],
107 (long) parm
[4], (long) parm
[5], (long) parm
[6]);
109 gdb_char_test
= gdb_short_test
= gdb_long_test
= 0;
110 gdb_structp_test
= (void *) 0;
111 gdb_structpp_test
= (void *) 0;
112 memset ((char *) &gdb_struct1_test
, 0, sizeof (gdb_struct1_test
));
113 memset ((char *) &gdb_struct2_test
, 0, sizeof (gdb_struct2_test
));
114 local_static_sizeof
= 0;
116 return ( (unsigned long) 0 );
119 static void gdb_asm_test (void)
123 static void begin () /* called before anything else */
127 static void end () /* called after everything else */
132 main (argc
, argv
, envp
)
134 char *argv
[], **envp
;
137 unsigned long myparms
[10];
140 for (i
= 0; i
< sizeof (myparms
) / sizeof (myparms
[0]); i
++)
143 gdb_c_test (&myparms
[0]);