From c309781f7e3243d2e3642a2372bf550c01563d8e Mon Sep 17 00:00:00 2001 From: Bob Manson Date: Fri, 21 Feb 1997 00:22:50 +0000 Subject: [PATCH] * lib/gdb.exp(gdb_init): New function. --- gdb/testsuite/ChangeLog | 2 ++ gdb/testsuite/gdb.base/setvar.exp | 12 ++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 806f58a83af..1c7c090bf7c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,7 @@ Thu Feb 20 13:57:01 1997 Bob Manson + * 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. diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp index 7ff717d71a9..cc1d9621e16 100644 --- a/gdb/testsuite/gdb.base/setvar.exp +++ b/gdb/testsuite/gdb.base/setvar.exp @@ -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. -- 2.30.2