OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2000-03-14 Elena Zannoni <ezannoni@kwikemart.cygnus.com>

Browse Source 
* eval.c (evaluate_subexp_with_coercion): Add call to
 	check_typedef, to handle typedeffed vars correctly.

	* gdb.base/printcmds.c: Add typedeffed arrays.

	* gdb.base/printcmds.exp (test_print_typedef_arrays): New
 	procedure to test arrays that are typedef'd.
This commit is contained in:
Elena Zannoni 2000-03-14 17:01:05 +00:00
parent ee4dd2c975
commit 751a959bb8
5 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2000-03-14 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* eval.c (evaluate_subexp_with_coercion): Add call to
check_typedef, to handle typedeffed vars correctly.
Mon Mar 13 21:21:41 2000 Andrew Cagney <cagney@b1.cygnus.com>
* defs.h (STREQ, STRCMP, STREQN): Document that these macros are

2
gdb/eval.c
View File

@ -1875,7 +1875,7 @@ evaluate_subexp_with_coercion (exp, pos, noside)
val =
locate_var_value
(var, block_innermost_frame (exp->elts[pc + 1].block));
return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (SYMBOL_TYPE (var))),
return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (check_typedef (SYMBOL_TYPE (var)))),
val);
}
/* FALLTHROUGH */

7
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2000-03-14 Elena Zannoni <ezannoni@kwikemart.cygnus.com>
* gdb.base/printcmds.c: Add typedeffed arrays.
* gdb.base/printcmds.exp (test_print_typedef_arrays): New
procedure to test arrays that are typedef'd.
2000-03-13 James Ingham <jingham@leda.cygnus.com>
* lib/gdb.exp: Fix the gdbtk_start routine to correctly find all

8
gdb/testsuite/gdb.base/printcmds.c
View File

@ -59,6 +59,12 @@ unsigned char ctable2[] = {
/* Single and multidimensional arrays to test access and printing of array
members. */
typedef int ArrayInt [10];
ArrayInt a1 = {2,4,6,8,10,12,14,16,18,20};
typedef char ArrayChar [5];
ArrayChar a2 = {'a','b','c','d','\0'};
int int1dim[12] = {0,1,2,3,4,5,6,7,8,9,10,11};
int int2dim[3][4] = {{0,1,2,3},{4,5,6,7},{8,9,10,11}};
int int3dim[2][3][2] = {{{0,1},{2,3},{4,5}},{{6,7},{8,9},{10,11}}};
@ -97,5 +103,5 @@ int main ()
/* Prevent AIX linker from removing variables. */
return ctable1[0] + ctable2[0] + int1dim[0] + int2dim[0][0]
+ int3dim[0][0][0] + int4dim[0][0][0][0] + teststring[0] +
*parrays -> array1;
*parrays -> array1 + a1[0] + a2[0];
}

17
gdb/testsuite/gdb.base/printcmds.exp
View File

@ -552,6 +552,22 @@ proc test_print_int_arrays {} {
" = {{{{0, 1}, {2, 3}, {4, 5}}, {{6, 7}, {8, 9}, {10, 11}}}}"
}
proc test_print_typedef_arrays {} {
global gdb_prompt
gdb_test "set print elements 24" ""
gdb_test "p a1" \
" = {2, 4, 6, 8, 10, 12, 14, 16, 18, 20}"
gdb_test "p a1\[0\]" " = 2"
gdb_test "p a1\[9\]" " = 20"
gdb_test "p a2" \
" = \"abcd\""
gdb_test "p a2\[0\]" " = 97 'a'"
gdb_test "p a2\[3\]" " = 100 'd'"
}
proc test_artificial_arrays {} {
# Send \026@ instead of just @ in case the kill character is @.
gdb_test "p int1dim\[0\]\026@2" " = {0, 1}" {p int1dim[0]@2}
@ -691,6 +707,7 @@ if [set_lang_c] then {
test_print_repeats_10
test_print_strings
test_print_int_arrays
test_print_typedef_arrays
test_artificial_arrays
test_print_char_arrays
# We used to do the runto main here.