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

* lib/gdb.exp(gdb_init): New function.

Browse Source
This commit is contained in:
Bob Manson 1997-02-21 00:22:50 +00:00
parent eb659148ad
commit c309781f7e
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gdb/testsuite/ChangeLog
View File

@ -1,5 +1,7 @@
Thu Feb 20 13:57:01 1997 Bob Manson <manson@charmed.cygnus.com>
* lib/gdb.exp(gdb_init): New function.
* gdb.base/setvar.exp(test_set): Don't bother printing a PASS/FAIL
for each individual variable set.

12
gdb/testsuite/gdb.base/setvar.exp
View File

@ -89,12 +89,15 @@ proc test_set { args } {
for {set x 0;} {$x < $length} {incr x;} {
if { "[lindex $args $x]" != "" } {
verbose "doing [lindex $args $x]"
gdb_test "[lindex $args $x]" "" "$message (setting variable)"
if [gdb_test "[lindex $args $x]" "" ""] {
fail "$message [lindex $args $x]";
return 1;
}
}
}
verbose "expecting $print_result from '$print_cmd'"
# Now run the test.
gdb_test "$print_cmd" "$print_result" "$message";
return [gdb_test "$print_cmd" "$print_result" "$message"];
}
#
@ -352,6 +355,11 @@ v_long_member = 3,.*v_float_member = 4,.*v_double_member = 5.*\}" \
# the type of the structure to be specified, as in
# v_struct1 = (struct t_struct) {32, 33, 34, 35, 36, 37}
# GDB should do the same if it wants to provide this feature.
if [target_info exists gdb,cannot_call_functions] {
setup_xfail "*-*-*" 2416
fail "set variable v_struct1 = {32, 33, 34, 35, 36, 37}"
continue
}
gdb_test "set variable v_struct1 = {32, 33, 34, 35, 36, 37}" "Invalid.*"
# And after the error the structure should be unchanged.