From bbc8b9587bab7500d8be7394a4f86528c11eb884 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 25 May 2010 21:02:00 +0000 Subject: [PATCH] * gdb.arch/i386-prologue.exp (skip_breakpoint): Fix setup_kfail argument order. * gdb.base/macscp.exp: Fix setup_kfail argument order. * gdb.base/long_long.exp (gdb_test_xxx): Fix setup_kfail argument order. * gdb.base/sigbpt.exp (stepi_out): Fix setup_kfail argument order. * gdb.base/call-sc.exp (setup_kfails): Remove. (setup_compiler_kfails): Remove. * gdb.base/callfuncs.exp (do_function_calls): Fix setup_kfail argument order. * gdb.base/siginfo.exp: Fix setup_kfail argument order. * gdb.base/sigstep.exp (advance): Fix setup_kfail argument order. (advancei): Fix setup_kfail argument order. * gdb.base/radix.exp: Fix setup_kfail argument order. * gdb.base/solib-weak.exp (do_test): Fix setup_kfail argument order. * gdb.base/structs.exp (setup_kfails): Remove. (setup_compiler_kfails): Fix setup_kfail argument order. * gdb.base/sigaltstack.exp (finish_test): Fix setup_kfail argument order. * gdb.java/jmain.exp: Fix setup_kfail argument order. * gdb.pascal/types.exp (test_string_literal_types_accepted): Fix setup_kfail argument order. * gdb.cp/overload.exp: Fix setup_kfail argument order. --- gdb/testsuite/ChangeLog | 28 ++++++++++++++++++++++++++++ gdb/testsuite/gdb.arch/i386-prologue.exp | 2 +- gdb/testsuite/gdb.base/call-sc.exp | 32 -------------------------------- gdb/testsuite/gdb.base/callfuncs.exp | 18 +++++++++--------- gdb/testsuite/gdb.base/long_long.exp | 2 +- gdb/testsuite/gdb.base/macscp.exp | 6 +++--- gdb/testsuite/gdb.base/radix.exp | 4 ++-- gdb/testsuite/gdb.base/sigaltstack.exp | 4 ++-- gdb/testsuite/gdb.base/sigbpt.exp | 2 +- gdb/testsuite/gdb.base/siginfo.exp | 2 +- gdb/testsuite/gdb.base/sigstep.exp | 10 +++++----- gdb/testsuite/gdb.base/solib-weak.exp | 2 +- gdb/testsuite/gdb.base/structs.exp | 9 +-------- gdb/testsuite/gdb.cp/overload.exp | 4 ++-- gdb/testsuite/gdb.java/jmain.exp | 4 ++-- gdb/testsuite/gdb.pascal/types.exp | 2 +- 16 files changed, 60 insertions(+), 71 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 5b0d817..1581b55 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,33 @@ 2010-05-25 Tom Tromey + * gdb.arch/i386-prologue.exp (skip_breakpoint): Fix setup_kfail + argument order. + * gdb.base/macscp.exp: Fix setup_kfail argument order. + * gdb.base/long_long.exp (gdb_test_xxx): Fix setup_kfail argument + order. + * gdb.base/sigbpt.exp (stepi_out): Fix setup_kfail argument + order. + * gdb.base/call-sc.exp (setup_kfails): Remove. + (setup_compiler_kfails): Remove. + * gdb.base/callfuncs.exp (do_function_calls): Fix setup_kfail + argument order. + * gdb.base/siginfo.exp: Fix setup_kfail argument order. + * gdb.base/sigstep.exp (advance): Fix setup_kfail argument order. + (advancei): Fix setup_kfail argument order. + * gdb.base/radix.exp: Fix setup_kfail argument order. + * gdb.base/solib-weak.exp (do_test): Fix setup_kfail argument + order. + * gdb.base/structs.exp (setup_kfails): Remove. + (setup_compiler_kfails): Fix setup_kfail argument order. + * gdb.base/sigaltstack.exp (finish_test): Fix setup_kfail argument + order. + * gdb.java/jmain.exp: Fix setup_kfail argument order. + * gdb.pascal/types.exp (test_string_literal_types_accepted): Fix + setup_kfail argument order. + * gdb.cp/overload.exp: Fix setup_kfail argument order. + +2010-05-25 Tom Tromey + * gdb.dwarf2/pieces.exp (pieces_test_f3): Mention PR 11636. 2010-05-25 Michael Snyder diff --git a/gdb/testsuite/gdb.arch/i386-prologue.exp b/gdb/testsuite/gdb.arch/i386-prologue.exp index 03c1b17..be4b263 100644 --- a/gdb/testsuite/gdb.arch/i386-prologue.exp +++ b/gdb/testsuite/gdb.arch/i386-prologue.exp @@ -202,7 +202,7 @@ gdb_test "backtrace 10" \ "#0\[ \t\]*$hex in gdb1718.*\r\n#1\[ \t\]*$hex in main.*" \ "backtrace in gdb1718" -setup_kfail *-*-* gdb/1718 +setup_kfail gdb/1718 *-*-* gdb_test "info frame" \ ".*Saved registers:.*esi at.*ebx at.*eip at.*" \ "saved registers in gdb1718" diff --git a/gdb/testsuite/gdb.base/call-sc.exp b/gdb/testsuite/gdb.base/call-sc.exp index 3a8dd33..77cac74 100644 --- a/gdb/testsuite/gdb.base/call-sc.exp +++ b/gdb/testsuite/gdb.base/call-sc.exp @@ -43,22 +43,6 @@ if [get_compiler_info ${binfile}] { return -1; } -# Use the file name, compiler and tuples to set up any needed KFAILs. - -proc setup_kfails { file tuples bug } { - global testfile - if [string match $file $testfile] { - foreach f $tuples { setup_kfail $f $bug } - } -} - -proc setup_compiler_kfails { file compiler format tuples bug } { - global testfile - if {[string match $file $testfile] && [test_compiler_info $compiler] && [test_debug_format $format]} { - foreach f $tuples { setup_kfail $f $bug } - } -} - # Compile a variant of scalars.c using TYPE to specify the type of the # parameter and return-type. Run the compiled program up to "main". # Also updates the global "testfile" to reflect the most recent build. @@ -134,22 +118,6 @@ proc I2A { n } { } -# Use the file name, compiler and tuples to set up any needed KFAILs. - -proc setup_kfails { file tuples bug } { - global testfile - if [string match $file $testfile] { - foreach f $tuples { setup_kfail $f $bug } - } -} - -proc setup_compiler_kfails { file compiler format tuples bug } { - global testfile - if {[string match $file $testfile] && [test_compiler_info $compiler] && [test_debug_format $format]} { - foreach f $tuples { setup_kfail $f $bug } - } -} - # Test GDB's ability to make inferior function calls to functions # returning (or passing) in a single scalar. diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp index d660051..b6bd885 100644 --- a/gdb/testsuite/gdb.base/callfuncs.exp +++ b/gdb/testsuite/gdb.base/callfuncs.exp @@ -190,17 +190,17 @@ proc do_function_calls {} { # function body. This results in the called function treating the # first few instructions of the function proper as a descriptor # and attempting a jump through that (a totally random address). - setup_kfail "rs6000*-*-aix*" gdb/1457 - setup_kfail "powerpc*-*-aix*" gdb/1457 - setup_kfail hppa*-*-hpux* gdb/1457 + setup_kfail gdb/1457 "rs6000*-*-aix*" + setup_kfail gdb/1457 "powerpc*-*-aix*" + setup_kfail gdb/1457 hppa*-*-hpux* gdb_test "p t_func_values(add,func_val2)" " = 1" - setup_kfail "rs6000*-*-aix*" gdb/1457 - setup_kfail "powerpc*-*-aix*" gdb/1457 - setup_kfail hppa*-*-hpux* gdb/1457 + setup_kfail gdb/1457 "rs6000*-*-aix*" + setup_kfail gdb/1457 "powerpc*-*-aix*" + setup_kfail gdb/1457 hppa*-*-hpux* gdb_test "p t_func_values(func_val1,doubleit)" " = 1" - setup_kfail "rs6000*-*-aix*" gdb/1457 - setup_kfail "powerpc*-*-aix*" gdb/1457 - setup_kfail hppa*-*-hpux* gdb/1457 + setup_kfail gdb/1457 "rs6000*-*-aix*" + setup_kfail gdb/1457 "powerpc*-*-aix*" + setup_kfail gdb/1457 hppa*-*-hpux* gdb_test "p t_call_add(add,3,4)" " = 7" gdb_test "p t_call_add(func_val1,3,4)" " = 7" diff --git a/gdb/testsuite/gdb.base/long_long.exp b/gdb/testsuite/gdb.base/long_long.exp index bc84b18..9112b65 100644 --- a/gdb/testsuite/gdb.base/long_long.exp +++ b/gdb/testsuite/gdb.base/long_long.exp @@ -85,7 +85,7 @@ proc pat2 { n pats } { proc gdb_test_xxx { test pat name } { if { $pat == "" } { - setup_kfail *-*-* gdb/1672 + setup_kfail gdb/1672 *-*-* gdb_test $test "xxx" $name } else { gdb_test $test $pat $name diff --git a/gdb/testsuite/gdb.base/macscp.exp b/gdb/testsuite/gdb.base/macscp.exp index ed39bf4..97cb1bb 100644 --- a/gdb/testsuite/gdb.base/macscp.exp +++ b/gdb/testsuite/gdb.base/macscp.exp @@ -243,7 +243,7 @@ switch -exact -- [info_macro WHERE] { pass "info macro WHERE after `list macscp_4_2_from_macscp2'" } {macscp4.h macscp3.h macscp1.c {before macscp4_2_..., from macscp3.h}} { - setup_kfail *-*-* "gdb/555" + setup_kfail"gdb/555" *-*-* fail "info macro WHERE after `list macscp_4_2_from_macscp2' (gdb/555)" } timeout { @@ -258,7 +258,7 @@ switch -exact -- [info_macro WHERE] { pass "info macro WHERE after `list macscp_4_2_from_macscp3'" } {macscp4.h macscp2.h macscp1.c {before macscp4_2_..., from macscp2.h}} { - setup_kfail *-*-* "gdb/555" + setup_kfail"gdb/555" *-*-* fail "info macro WHERE after `list macscp_4_2_from_macscp3' (gdb/555)" } timeout { @@ -370,7 +370,7 @@ for {set i 0} {$i < [llength $funcs]} {incr i} { if {[string compare $result $expected] == 0} { pass "info macro WHERE stopped in $func" } elseif {[string compare $result $kfail_expected] == 0} { - setup_kfail *-*-* "gdb/555" + setup_kfail"gdb/555" *-*-* fail "info macro WHERE stopped in $func (gdb/555)" } elseif {[string compare $result timeout] == 0} { fail "info macro WHERE stopped in $func (timeout)" diff --git a/gdb/testsuite/gdb.base/radix.exp b/gdb/testsuite/gdb.base/radix.exp index 3d7c0a0..72cf575 100644 --- a/gdb/testsuite/gdb.base/radix.exp +++ b/gdb/testsuite/gdb.base/radix.exp @@ -133,7 +133,7 @@ test_output_radix 8 "8" "10" test_one_output 8 "0xf" "17" test_one_output 8 "10" "12" test_one_output 8 "100" "144" - setup_kfail *-*-* "gdb/1715" + setup_kfail "gdb/1715" *-*-* test_one_output 8 "20." "24" test_one_output 8 "(int) 20." "24" @@ -150,7 +150,7 @@ test_output_radix 16 "10" "20" test_one_output 16 "0xf" "f" test_one_output 16 "10" "a" test_one_output 16 "100" "64" - setup_kfail *-*-* "gdb/1715" + setup_kfail "gdb/1715" *-*-* test_one_output 16 "20." "14" test_one_output 16 "(int) 20." "14" diff --git a/gdb/testsuite/gdb.base/sigaltstack.exp b/gdb/testsuite/gdb.base/sigaltstack.exp index 2482b9d..869e89f 100644 --- a/gdb/testsuite/gdb.base/sigaltstack.exp +++ b/gdb/testsuite/gdb.base/sigaltstack.exp @@ -83,8 +83,8 @@ proc finish_test { pattern msg } { # Some platforms use a special read-only page for signal # trampolines. We can't set a breakpoint there, and we # don't gracefully fall back to single-stepping. - setup_kfail "i?86-*-linux*" gdb/1736 - setup_kfail "*-*-openbsd*" gdb/1736 + setup_kfail gdb/1736 "i?86-*-linux*" + setup_kfail gdb/1736 "*-*-openbsd*" fail "$msg (could not set breakpoint)" } -re "$pattern.*${gdb_prompt} $" { diff --git a/gdb/testsuite/gdb.base/sigbpt.exp b/gdb/testsuite/gdb.base/sigbpt.exp index 660190a..6a6c58e 100644 --- a/gdb/testsuite/gdb.base/sigbpt.exp +++ b/gdb/testsuite/gdb.base/sigbpt.exp @@ -171,7 +171,7 @@ proc stepi_out { name args } { set test "${name}; stepi out of handler" gdb_test_multiple "stepi" "$test" { -re "Could not insert single-step breakpoint.*$gdb_prompt $" { - setup_kfail "sparc*-*-openbsd*" gdb/1736 + setup_kfail gdb/1736 "sparc*-*-openbsd*" fail "$test (could not insert single-step breakpoint)" } -re "keeper.*$gdb_prompt $" { diff --git a/gdb/testsuite/gdb.base/siginfo.exp b/gdb/testsuite/gdb.base/siginfo.exp index 102d894..03f4c20 100644 --- a/gdb/testsuite/gdb.base/siginfo.exp +++ b/gdb/testsuite/gdb.base/siginfo.exp @@ -73,7 +73,7 @@ gdb_expect_list "backtrace for nexti" ".*$gdb_prompt $" { set test "step out of handler" gdb_test_multiple "step" "${test}" { -re "Could not insert single-step breakpoint.*$gdb_prompt $" { - setup_kfail sparc*-*-openbsd* gdb/1736 + setup_kfail gdb/1736 sparc*-*-openbsd* fail "$test (could not insert single-step breakpoint)" } -re "done = 1;.*${gdb_prompt} $" { diff --git a/gdb/testsuite/gdb.base/sigstep.exp b/gdb/testsuite/gdb.base/sigstep.exp index 81d90c9..e0c236a 100644 --- a/gdb/testsuite/gdb.base/sigstep.exp +++ b/gdb/testsuite/gdb.base/sigstep.exp @@ -78,7 +78,7 @@ proc advance { i } { set test "$prefix; leave handler" gdb_test_multiple "$i" "${test}" { -re "Could not insert single-step breakpoint.*$gdb_prompt $" { - setup_kfail "sparc*-*-openbsd*" gdb/1736 + setup_kfail gdb/1736 "sparc*-*-openbsd*" fail "$test (could not insert single-step breakpoint)" } -re "done = 1;.*${gdb_prompt} $" { @@ -90,7 +90,7 @@ proc advance { i } { exp_continue -continue_timer } -re "Program exited normally.*${gdb_prompt} $" { - setup_kfail powerpc-*-*bsd* gdb/1639 + setup_kfail gdb/1639 powerpc-*-*bsd* fail "$test (program exited)" } -re "(while ..done|done = 0).*${gdb_prompt} $" { @@ -119,13 +119,13 @@ proc advancei { i } { # Some platforms use a special read-only page for signal # trampolines. We can't set a breakpoint there, and we # don't gracefully fall back to single-stepping. - setup_kfail "i?86-*-linux*" gdb/1736 - setup_kfail "*-*-openbsd*" gdb/1736 + setup_kfail gdb/1736 "i?86-*-linux*" + setup_kfail gdb/1736 "*-*-openbsd*" fail "$test (could not set breakpoint)" return } -re "Could not insert single-step breakpoint.*$gdb_prompt $" { - setup_kfail "sparc*-*-openbsd*" gdb/1736 + setup_kfail gdb/1736 "sparc*-*-openbsd*" fail "$test (could not insert single-step breakpoint)" } -re "Breakpoint \[0-9\]*, handler .*${gdb_prompt} $" { diff --git a/gdb/testsuite/gdb.base/solib-weak.exp b/gdb/testsuite/gdb.base/solib-weak.exp index 34bb6d0..bfa59ee 100644 --- a/gdb/testsuite/gdb.base/solib-weak.exp +++ b/gdb/testsuite/gdb.base/solib-weak.exp @@ -106,7 +106,7 @@ proc do_test { lib1opts lib2opts lib1first } { if {(${lib1opts} == "" && ${lib2opts} != "" && ${lib1first} == 1) || (${lib1opts} != "" && ${lib2opts} == "" && ${lib1first} == 0)} { - setup_kfail *-*-* gdb/1824 + setup_kfail gdb/1824 *-*-* } gdb_test "continue" "Breakpoint .* bar .*${expected_file}\\..*" \ diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp index ddfd208..c739084 100644 --- a/gdb/testsuite/gdb.base/structs.exp +++ b/gdb/testsuite/gdb.base/structs.exp @@ -215,17 +215,10 @@ proc I2A { n } { # Use the file name, compiler and tuples to set up any needed KFAILs. -proc setup_kfails { file tuples bug } { - global testfile - if [string match $file $testfile] { - foreach f $tuples { setup_kfail $f $bug } - } -} - proc setup_compiler_kfails { file compiler format tuples bug } { global testfile if {[string match $file $testfile] && [test_compiler_info $compiler] && [test_debug_format $format]} { - foreach f $tuples { setup_kfail $f $bug } + foreach f $tuples { setup_kfail $bug $f } } } diff --git a/gdb/testsuite/gdb.cp/overload.exp b/gdb/testsuite/gdb.cp/overload.exp index 1d65475..bcee0e8 100644 --- a/gdb/testsuite/gdb.cp/overload.exp +++ b/gdb/testsuite/gdb.cp/overload.exp @@ -302,10 +302,10 @@ gdb_test "list '${srcfile}':'intToChar(char)'" "int intToChar.*" # And with filename and namespace... which does not work. -setup_kfail *-*-* gdb/11289 +setup_kfail gdb/11289 *-*-* gdb_test "list ${srcfile}:foo::overloadfnarg(int)" "int foo::overloadfnarg" -setup_kfail *-*-* gdb/11289 +setup_kfail gdb/11289 *-*-* gdb_test "list ${srcfile}:'foo::overloadfnarg(int)'" "int foo::overloadfnarg" # Now some tests to see how overloading and namespaces interact. diff --git a/gdb/testsuite/gdb.java/jmain.exp b/gdb/testsuite/gdb.java/jmain.exp index cdb3c99..c7c57a4 100644 --- a/gdb/testsuite/gdb.java/jmain.exp +++ b/gdb/testsuite/gdb.java/jmain.exp @@ -52,13 +52,13 @@ set bpmain "Breakpoint .* file .*jmain.java, line 5\." set earlybpmain "Breakpoint .* file .*jmain.java, line 4\." gdb_load "${binfile}" -setup_kfail *-*-* java/1567 +setup_kfail java/1567 *-*-* gdb_test "break main" "${bpmain}" # Check that an unqualified "main" works. gdb_load "${binfile}" -setup_kfail *-*-* java/1565 +setup_kfail java/1565 *-*-* gdb_test "break jmain.main" "${bpmain}" # Check that a fully qualified "main" works. diff --git a/gdb/testsuite/gdb.pascal/types.exp b/gdb/testsuite/gdb.pascal/types.exp index a51f725..a29f0cc 100644 --- a/gdb/testsuite/gdb.pascal/types.exp +++ b/gdb/testsuite/gdb.pascal/types.exp @@ -61,7 +61,7 @@ proc test_string_literal_types_accepted {} { # Test various character values. - setup_kfail *-*-* gdb/2326 + setup_kfail gdb/2326 *-*-* gdb_test "pt 'a simple string'" "type = string" } -- 2.7.4