1 /* Copyright 1999, 2004, 2007, 2008 Free Software Foundation, Inc.
3 This file is part of GDB.
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/>. */
21 struct _simple_struct
{
23 unsigned int unsigned_integer
;
25 signed char signed_character
;
30 typedef struct _simple_struct simpleton
;
32 simpleton global_simple
;
39 typedef enum foo efoo
;
47 typedef struct _struct_decl
{
55 void (*func_ptr
) (void);
56 struct _struct_decl (*func_ptr_struct
) (int, char *, long);
57 struct _struct_decl
*(*func_ptr_ptr
) (int, char *, long);
77 int (*func
) (int, char *);
87 struct _struct_n_pointer
{
90 struct _struct_n_pointer
*ptrs
[3];
91 struct _struct_n_pointer
*next
;
94 void do_locals_tests (void);
95 void do_block_tests (void);
96 void subroutine1 (int, long *);
98 void do_children_tests (void);
99 void do_special_tests (void);
108 int array
[] = {1,2,3};
109 int array2
[] = {4,5,6};
110 int *array_ptr
= array
;
117 char lcharacter
[2] = { 0, 0 };
118 char *lpcharacter
= 0;
124 double *lpdouble
= 0;
125 struct _simple_struct lsimple
;
126 struct _simple_struct
*lpsimple
;
129 /* Simple assignments */
131 lpinteger
= &linteger
;
133 lpcharacter
= lcharacter
;
138 ldouble
= 2.718281828459045;
140 lsimple
.integer
= 1234;
141 lsimple
.unsigned_integer
= 255;
142 lsimple
.character
= 'a';
143 lsimple
.signed_character
= 21;
144 lsimple
.char_ptr
= lcharacter
;
153 ldouble
= 5.498548281828172;
154 lsimple
.integer
= 255;
155 lsimple
.unsigned_integer
= 4321;
156 lsimple
.character
= 'b';
157 lsimple
.signed_character
= 0;
159 subroutine1 (linteger
, &llong
);
168 subroutine1 (int i
, long *l
)
170 global_simple
.integer
= i
+ 3;
199 do_children_tests (void)
202 struct _struct_n_pointer
*psnp
;
203 struct _struct_n_pointer snp0
, snp1
, snp2
;
204 char a0
[2] = {}, *a1
, **a2
, ***a3
;
205 char b0
[2] = {}, *b1
, **b2
, ***b3
;
206 char c0
[2] = {}, *c1
, **c2
, ***c3
;
207 long z0
, *z1
, **z2
, ***z3
;
208 long y0
, *y1
, **y2
, ***y3
;
209 long x0
, *x1
, **x2
, ***x3
;
213 struct _struct_decl struct_declarations
;
214 memset (&struct_declarations
, 0, sizeof (struct_declarations
));
215 weird
= &struct_declarations
;
217 struct_declarations
.integer
= 123;
218 weird
->char_ptr
= "hello";
221 struct_declarations
.int_ptr_ptr
= &foo
;
222 weird
->long_array
[0] = 1234;
223 struct_declarations
.long_array
[1] = 2345;
224 weird
->long_array
[2] = 3456;
225 struct_declarations
.long_array
[3] = 4567;
226 weird
->long_array
[4] = 5678;
227 struct_declarations
.long_array
[5] = 6789;
228 weird
->long_array
[6] = 7890;
229 struct_declarations
.long_array
[7] = 8901;
230 weird
->long_array
[8] = 9012;
231 struct_declarations
.long_array
[9] = 1234;
233 weird
->func_ptr
= nothing
;
235 /* Struct/pointer/array tests */
262 snp0
.ptrs
[0] = &snp0
;
263 snp0
.ptrs
[1] = &snp1
;
264 snp0
.ptrs
[2] = &snp2
;
268 snp1
.ptrs
[0] = &snp0
;
269 snp1
.ptrs
[1] = &snp1
;
270 snp1
.ptrs
[2] = &snp2
;
274 snp2
.ptrs
[0] = &snp0
;
275 snp2
.ptrs
[1] = &snp1
;
276 snp2
.ptrs
[2] = &snp2
;
289 do_special_tests (void)
297 struct _simple_struct s
;
304 enum { A
, B
, C
} anone
;
318 void do_frozen_tests ()
320 /*: BEGIN: frozen :*/
331 mi_create_varobj V1 v1 "create varobj for v1"
332 mi_create_varobj V2 v2 "create varobj for v2"
334 mi_list_varobj_children "V1" {
335 {"V1.i" "i" "0" "int"}
336 {"V1.nested" "nested" "2" "struct {...}"}
337 } "list children of v1"
339 mi_list_varobj_children "V1.nested" {
340 {"V1.nested.j" "j" "0" "int"}
341 {"V1.nested.k" "k" "0" "int"}
342 } "list children of v1.nested"
344 mi_check_varobj_value V1.i 1 "check V1.i: 1"
345 mi_check_varobj_value V1.nested.j 2 "check V1.nested.j: 2"
346 mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3"
347 mi_check_varobj_value V2 4 "check V2: 4"
351 mi_varobj_update * {V2} "update varobjs: V2 changed"
356 mi_varobj_update * {} "update varobjs: nothing changed"
357 mi_check_varobj_value V2 5 "check V2: 5"
358 mi_varobj_update V2 {V2} "update V2 explicitly"
359 mi_check_varobj_value V2 6 "check V2: 6"
366 mi_varobj_update * {} "update varobjs: nothing changed"
367 mi_check_varobj_value V1.i 1 "check V1.i: 1"
368 mi_check_varobj_value V1.nested.j 2 "check V1.nested.j: 2"
369 mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3"
370 # Check that explicit update for elements of structures
373 mi_varobj_update V1.nested.j {V1.nested.j} "update V1.nested.j"
374 mi_check_varobj_value V1.i 1 "check V1.i: 1"
375 mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8"
376 mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3"
377 # Update v1.nested, check that children is updated.
378 mi_varobj_update V1.nested {V1.nested.k} "update V1.nested"
379 mi_check_varobj_value V1.i 1 "check V1.i: 1"
380 mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8"
381 mi_check_varobj_value V1.nested.k 9 "check V1.nested.k: 9"
383 mi_varobj_update V1.i {V1.i} "update V1.i"
384 mi_check_varobj_value V1.i 7 "check V1.i: 7"
390 # Check that unfreeze itself does not updates the values.
392 mi_check_varobj_value V1.i 7 "check V1.i: 7"
393 mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8"
394 mi_check_varobj_value V1.nested.k 9 "check V1.nested.k: 9"
395 mi_varobj_update V1 {V1.i V1.nested.j V1.nested.k} "update V1"
396 mi_check_varobj_value V1.i 10 "check V1.i: 10"
397 mi_check_varobj_value V1.nested.j 11 "check V1.nested.j: 11"
398 mi_check_varobj_value V1.nested.k 12 "check V1.nested.k: 12"
405 main (int argc
, char *argv
[])
409 do_children_tests ();