URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gdb/] [gdb-6.8/] [gdb-6.8.openrisc-2.1/] [gdb/] [testsuite/] [gdb.mi/] [var-cmd.c] - Rev 33
Compare with Previous | Blame | View Log
/* Copyright 1999, 2004, 2007, 2008 Free Software Foundation, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>. */ #include <stdlib.h> #include <string.h> struct _simple_struct { int integer; unsigned int unsigned_integer; char character; signed char signed_character; char *char_ptr; int array_of_10[10]; }; typedef struct _simple_struct simpleton; simpleton global_simple; enum foo { bar = 1, baz }; typedef enum foo efoo; union named_union { int integer; char *char_ptr; }; typedef struct _struct_decl { int integer; char character; char *char_ptr; long long_int; int **int_ptr_ptr; long long_array[10]; void (*func_ptr) (void); struct _struct_decl (*func_ptr_struct) (int, char *, long); struct _struct_decl *(*func_ptr_ptr) (int, char *, long); union { int a; char *b; long c; enum foo d; } u1; struct { union { struct { int d; char e[10]; int *(*func) (void); efoo foo; } u1s1; long f; struct { char array_ptr[2]; int (*func) (int, char *); } u1s2; } u2; int g; char h; long i[10]; } s2; } weird_struct; struct _struct_n_pointer { char ****char_ptr; long ****long_ptr; struct _struct_n_pointer *ptrs[3]; struct _struct_n_pointer *next; }; void do_locals_tests (void); void do_block_tests (void); void subroutine1 (int, long *); void nothing (void); void do_children_tests (void); void do_special_tests (void); void incr_a (char); void incr_a (char a) { int b; b = a; } int array[] = {1,2,3}; int array2[] = {4,5,6}; int *array_ptr = array; void do_locals_tests () { int linteger = 0; int *lpinteger = 0; char lcharacter[2] = { 0, 0 }; char *lpcharacter = 0; long llong = 0; long *lplong = 0; float lfloat = 0; float *lpfloat = 0; double ldouble = 0; double *lpdouble = 0; struct _simple_struct lsimple; struct _simple_struct *lpsimple; void (*func) (void); /* Simple assignments */ linteger = 1234; lpinteger = &linteger; lcharacter[0] = 'a'; lpcharacter = lcharacter; llong = 2121L; lplong = &llong; lfloat = 2.1; lpfloat = &lfloat; ldouble = 2.718281828459045; lpdouble = &ldouble; lsimple.integer = 1234; lsimple.unsigned_integer = 255; lsimple.character = 'a'; lsimple.signed_character = 21; lsimple.char_ptr = lcharacter; lpsimple = &lsimple; func = nothing; /* Check pointers */ linteger = 4321; lcharacter[0] = 'b'; llong = 1212L; lfloat = 1.2; ldouble = 5.498548281828172; lsimple.integer = 255; lsimple.unsigned_integer = 4321; lsimple.character = 'b'; lsimple.signed_character = 0; subroutine1 (linteger, &llong); } void nothing () { } void subroutine1 (int i, long *l) { global_simple.integer = i + 3; i = 212; *l = 12; } void do_block_tests () { int cb = 12; { int foo; foo = 123; { int foo2; foo2 = 123; { int foo; foo = 321; } foo2 = 0; } foo = 0; } cb = 21; } void do_children_tests (void) { weird_struct *weird; struct _struct_n_pointer *psnp; struct _struct_n_pointer snp0, snp1, snp2; char a0[2] = {}, *a1, **a2, ***a3; char b0[2] = {}, *b1, **b2, ***b3; char c0[2] = {}, *c1, **c2, ***c3; long z0, *z1, **z2, ***z3; long y0, *y1, **y2, ***y3; long x0, *x1, **x2, ***x3; int *foo; int bar; /* Avoid pointing into NULL, as that is editable on some systems. */ int dummy; int *dummy_ptr = &dummy; struct _struct_decl struct_declarations = { 0, 0, NULL, 0, &dummy_ptr }; weird = &struct_declarations; struct_declarations.integer = 123; weird->char_ptr = "hello"; bar = 2121; foo = &bar; struct_declarations.int_ptr_ptr = &foo; weird->long_array[0] = 1234; struct_declarations.long_array[1] = 2345; weird->long_array[2] = 3456; struct_declarations.long_array[3] = 4567; weird->long_array[4] = 5678; struct_declarations.long_array[5] = 6789; weird->long_array[6] = 7890; struct_declarations.long_array[7] = 8901; weird->long_array[8] = 9012; struct_declarations.long_array[9] = 1234; weird->func_ptr = nothing; /* Struct/pointer/array tests */ a0[0] = '0'; a1 = a0; a2 = &a1; a3 = &a2; b0[0] = '1'; b1 = b0; b2 = &b1; b3 = &b2; c0[0] = '2'; c1 = c0; c2 = &c1; c3 = &c2; z0 = 0xdead + 0; z1 = &z0; z2 = &z1; z3 = &z2; y0 = 0xdead + 1; y1 = &y0; y2 = &y1; y3 = &y2; x0 = 0xdead + 2; x1 = &x0; x2 = &x1; x3 = &x2; snp0.char_ptr = &a3; snp0.long_ptr = &z3; snp0.ptrs[0] = &snp0; snp0.ptrs[1] = &snp1; snp0.ptrs[2] = &snp2; snp0.next = &snp1; snp1.char_ptr = &b3; snp1.long_ptr = &y3; snp1.ptrs[0] = &snp0; snp1.ptrs[1] = &snp1; snp1.ptrs[2] = &snp2; snp1.next = &snp2; snp2.char_ptr = &c3; snp2.long_ptr = &x3; snp2.ptrs[0] = &snp0; snp2.ptrs[1] = &snp1; snp2.ptrs[2] = &snp2; snp2.next = 0x0; psnp = &snp0; snp0.char_ptr = &b3; snp1.char_ptr = &c3; snp2.char_ptr = &a3; snp0.long_ptr = &y3; snp1.long_ptr = &x3; snp2.long_ptr = &z3; {int a = 0;} } void do_special_tests (void) { union named_union u; union { int a; char b; long c; } anonu; struct _simple_struct s; struct { int a; char b; long c; } anons; enum foo e; enum { A, B, C } anone; int array[21]; int a; a = 1; u.integer = a; anonu.a = a; s.integer = a; anons.a = a; e = bar; anone = A; incr_a(2); } void do_frozen_tests () { /*: BEGIN: frozen :*/ struct { int i; struct { int j; int k; } nested; } v1 = {1, {2, 3}}; int v2 = 4; /*: mi_create_varobj V1 v1 "create varobj for v1" mi_create_varobj V2 v2 "create varobj for v2" mi_list_varobj_children "V1" { {"V1.i" "i" "0" "int"} {"V1.nested" "nested" "2" "struct {...}"} } "list children of v1" mi_list_varobj_children "V1.nested" { {"V1.nested.j" "j" "0" "int"} {"V1.nested.k" "k" "0" "int"} } "list children of v1.nested" mi_check_varobj_value V1.i 1 "check V1.i: 1" mi_check_varobj_value V1.nested.j 2 "check V1.nested.j: 2" mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3" mi_check_varobj_value V2 4 "check V2: 4" :*/ v2 = 5; /*: mi_varobj_update * {V2} "update varobjs: V2 changed" set_frozen V2 1 :*/ v2 = 6; /*: mi_varobj_update * {} "update varobjs: nothing changed" mi_check_varobj_value V2 5 "check V2: 5" mi_varobj_update V2 {V2} "update V2 explicitly" mi_check_varobj_value V2 6 "check V2: 6" :*/ v1.i = 7; v1.nested.j = 8; v1.nested.k = 9; /*: set_frozen V1 1 mi_varobj_update * {} "update varobjs: nothing changed" mi_check_varobj_value V1.i 1 "check V1.i: 1" mi_check_varobj_value V1.nested.j 2 "check V1.nested.j: 2" mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3" # Check that explicit update for elements of structures # works. # Update v1.j mi_varobj_update V1.nested.j {V1.nested.j} "update V1.nested.j" mi_check_varobj_value V1.i 1 "check V1.i: 1" mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8" mi_check_varobj_value V1.nested.k 3 "check V1.nested.k: 3" # Update v1.nested, check that children is updated. mi_varobj_update V1.nested {V1.nested.k} "update V1.nested" mi_check_varobj_value V1.i 1 "check V1.i: 1" mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8" mi_check_varobj_value V1.nested.k 9 "check V1.nested.k: 9" # Update v1.i mi_varobj_update V1.i {V1.i} "update V1.i" mi_check_varobj_value V1.i 7 "check V1.i: 7" :*/ v1.i = 10; v1.nested.j = 11; v1.nested.k = 12; /*: # Check that unfreeze itself does not updates the values. set_frozen V1 0 mi_check_varobj_value V1.i 7 "check V1.i: 7" mi_check_varobj_value V1.nested.j 8 "check V1.nested.j: 8" mi_check_varobj_value V1.nested.k 9 "check V1.nested.k: 9" mi_varobj_update V1 {V1.i V1.nested.j V1.nested.k} "update V1" mi_check_varobj_value V1.i 10 "check V1.i: 10" mi_check_varobj_value V1.nested.j 11 "check V1.nested.j: 11" mi_check_varobj_value V1.nested.k 12 "check V1.nested.k: 12" :*/ /*: END: frozen :*/ } int main (int argc, char *argv []) { do_locals_tests (); do_block_tests (); do_children_tests (); do_special_tests (); do_frozen_tests (); exit (0); }