X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Ftestsuite%2Fgdb.base%2Fmaint.exp;h=edf7ff3678ba4c438ff6d2edc18487fce6ce42c7;hb=43f3e411c415ac74130808a76473e05ff41a1d94;hp=6cff01339bb3b9ca7d2fe8530fb8b382eda94a93;hpb=b4ba55a1812c4bde23d52111e54d2b72a1ec4af1;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp index 6cff01339b..edf7ff3678 100644 --- a/gdb/testsuite/gdb.base/maint.exp +++ b/gdb/testsuite/gdb.base/maint.exp @@ -1,5 +1,4 @@ -# Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2007, 2008, 2009, 2010 -# Free Software Foundation, Inc. +# Copyright 1998-2014 Free Software Foundation, Inc. # 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 @@ -21,11 +20,11 @@ # source file used is break.c -#maintenance check-symtabs -- Check consistency of psymtabs and symtabs -#maintenance space -- Set the display of space usage +#maintenance check-psymtabs -- Check consistency of psymtabs vs symtabs +#maintenance check-symtabs -- Check consistency of symtabs +#maintenance expand-symtabs -- Expand symtabs matching a file regexp #maintenance set -- Set GDB internal variables used by the GDB maintainer #maintenance show -- Show GDB internal variables used by the GDB maintainer -#maintenance time -- Set the display of time usage #maintenance demangle -- Demangle a C++ mangled name #maintenance dump-me -- Get fatal error; make debugger dump its core #maintenance print -- Maintenance command for printing GDB internal state @@ -48,54 +47,60 @@ -if $tracelevel then { - strace $tracelevel - } +standard_testfile break.c break1.c -global usestubs - -# -# test running programs -# -set prms_id 0 -set bug_id 0 - -set testfile "break" -set srcfile ${testfile}.c -set srcfile1 ${testfile}1.c -set binfile ${objdir}/${subdir}/${testfile} - -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } { - untested maint.exp - return -1 +if {[prepare_for_testing $testfile.exp $testfile \ + [list $srcfile $srcfile2] {debug nowarnings}]} { + untested $testfile.exp + return -1 } -if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } { - untested maint.exp - return -1 -} - -if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } { - untested maint.exp - return -1 -} +# The commands we test here produce many lines of output; disable "press +# to continue" prompts. +gdb_test_no_output "set height 0" + +# Tests that require that no program is running + +gdb_file_cmd ${binfile} + +# Test for a regression where this command would internal-error if the +# program wasn't running. +gdb_test "maint print registers" "Name.*Nr.*Rel.*Offset.*Size.*Type.*" + +# Test "mt expand-symtabs" here as it's easier to verify before we +# run the program. +gdb_test_no_output "mt set per on" "mt set per on for expand-symtabs" +gdb_test_multiple "mt expand-symtabs $subdir/break\[.\]c$" \ + "mt expand-symtabs" { + -re "#compunits: (1|2) \\(\[+\](0|1|2)\\),.*$gdb_prompt $" { + # This should expand at most two primary symtabs. + # "Normally" it will not expand any, because the symtab + # holding "main" will already have been expanded, but if the + # file is compiled with -fdebug-types-section then a second primary + # symtab for break.c will be created for any types. + pass "mt expand-symtabs" + } + } +gdb_test "mt set per off" ".*" "mt set per off for expand-symtabs" +# Tests that can or should be done with a running program -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir gdb_load ${binfile} if ![runto_main] then { perror "tests suppressed" } - -# The commands we test here produce many lines of output; disable "press -# to continue" prompts. -send_gdb "set height 0\n" -gdb_expect -re "$gdb_prompt $" - +# If we're using .gdb_index there will be no psymtabs. +set have_gdb_index 0 +gdb_test_multiple "maint info sections .gdb_index" "check for .gdb_index" { + -re ": .gdb_index.*$gdb_prompt $" { + set have_gdb_index 1 + } + -re ".*$gdb_prompt $" { + ;# Nothing to do, present to avoid a FAIL. + } +} # # this command does not produce any output @@ -106,84 +111,37 @@ gdb_expect -re "$gdb_prompt $" # guo: on linux this command output is huge. for some reason splitting up # the regexp checks works. # -send_gdb "maint check-symtabs\n" +send_gdb "maint check-psymtabs\n" gdb_expect { - -re "^maint check-symtabs" { - gdb_expect { - -re "$gdb_prompt $" \ - { pass "maint check-symtabs" } - timeout { fail "(timeout) maint check-symtabs" } + -re "^maint check-psymtabs" { + gdb_expect { + -re "$gdb_prompt $" { + pass "maint check-psymtabs" } + timeout { fail "(timeout) maint check-psymtabs" } } - -re ".*$gdb_prompt $" { fail "maint check-symtabs" } - timeout { fail "(timeout) maint check-symtabs" } - } - -send_gdb "maint space\n" -gdb_expect { - -re "\"maintenance space\" takes a numeric argument\\..*$gdb_prompt $"\ - { pass "maint space" } - -re ".*$gdb_prompt $" { fail "maint space" } - timeout { fail "(timeout) maint space" } - } - -send_gdb "maint space 1\n" -gdb_expect { - -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint space 1" } - -re ".*$gdb_prompt $" { fail "maint space 1" } - timeout { fail "(timeout) maint space 1" } - } - - -send_gdb "maint time\n" -gdb_expect { - -re "\"maintenance time\" takes a numeric argument\\..*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time" } - -re ".*$gdb_prompt $" { fail "maint time" } - timeout { fail "(timeout) maint time" } - } + } + -re ".*$gdb_prompt $" { fail "maint check-psymtabs" } + timeout { fail "(timeout) maint check-psymtabs" } +} -send_gdb "maint time 1\n" -gdb_expect { - -re "Command execution time: $decimal.*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time 1" } - -re ".*$gdb_prompt $" { fail "maint time 1" } - timeout { fail "(timeout) maint time 1" } - } +# This command does not produce any output unless there is some problem +# with the symtabs, so that branch will really never be covered in the +# tests here!! +gdb_test_no_output "maint check-symtabs" -send_gdb "maint time 0\n" -gdb_expect { - -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time 0" } - -re ".*$gdb_prompt $" { fail "maint time 0" } - timeout { fail "(timeout) maint time 0" } - } +# Test per-command stats. +gdb_test_no_output "maint set per-command on" +gdb_test "pwd" \ + "Command execution time: \[0-9.\]+ \\(cpu\\), \[0-9.\]+ \\(wall\\)\[\r\n\]+Space used: $decimal \\(\\+$decimal for this command\\)\[\r\n\]+#symtabs: $decimal \\(\\+$decimal\\), #compunits: $decimal \\(\\+$decimal\\), #blocks: $decimal \\(\\+$decimal\\)" +gdb_test_no_output "maint set per-command off" +gdb_test "maint demangle" \ + "\"maintenance demangle\" takes an argument to demangle\\." -send_gdb "maint space 0\n" -gdb_expect { - -re "maint space 0\r\n$gdb_prompt $"\ - { pass "maint space 0" } - -re ".*$gdb_prompt $" { fail "maint space 0" } - timeout { fail "(timeout) maint space 0" } - } +gdb_test "maint demangle main" "Can't demangle \"main\"" -send_gdb "maint demangle\n" -gdb_expect { - -re "\"maintenance demangle\" takes an argument to demangle\\..*$gdb_prompt $"\ - { pass "maint demangle" } - -re ".*$gdb_prompt $" { fail "maint demangle" } - timeout { fail "(timeout) maint demangle" } - } -send_gdb "maint demangle main\n" -gdb_expect { - -re "Can't demangle \"main\".*$gdb_prompt $"\ - { pass "maint demangle" } - -re ".*$gdb_prompt $" { fail "maint demangle" } - timeout { fail "(timeout) maint demangle" } - } # The timeout value is raised, because printing all the symbols and # statistical information about Cygwin and Windows libraries takes a lot @@ -195,19 +153,20 @@ if [istarget "*-*-cygwin*"] { send_gdb "maint print statistics\n" gdb_expect { - -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for psymbol obstack.*Total memory used for psymbol cache.*Total memory used for symbol obstack.*Total memory used for type obstack.*$gdb_prompt $"\ - { - # Old output for gdb 6.0 and earlier - pass "maint print statistics" - } - -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for objfile obstack.*Total memory used for psymbol cache.*Total memory used for macro cache.*$gdb_prompt $"\ - { pass "maint print statistics" } - -re ".*$gdb_prompt $" { fail "maint print statistics" } - timeout { fail "(timeout) maint print statistics" } - } + -re "Statistics for\[^\n\r\]*maint\[^\n\r\]*:\r\n Number of \"minimal\" symbols read: $decimal\r\n( Number of \"partial\" symbols read: $decimal\r\n)? Number of \"full\" symbols read: $decimal\r\n Number of \"types\" defined: $decimal\r\n( Number of psym tables \\(not yet expanded\\): $decimal\r\n)?( Number of read CUs: $decimal\r\n Number of unread CUs: $decimal\r\n)? Number of symbol tables: $decimal\r\n Number of symbol tables with line tables: $decimal\r\n Number of symbol tables with blockvectors: $decimal\r\n Total memory used for objfile obstack: $decimal\r\n Total memory used for BFD obstack: $decimal\r\n Total memory used for psymbol cache: $decimal\r\n Total memory used for macro cache: $decimal\r\n Total memory used for file name cache: $decimal\r\n" { + gdb_expect { + -re "$gdb_prompt $" { + pass "maint print statistics" + } + timeout { fail "(timeout) maint print statistics" } + } + } + -re ".*$gdb_prompt $" { fail "maint print statistics" } + timeout { fail "(timeout) maint print statistics" } +} # There aren't any ... -gdb_test "maint print dummy-frames" "" +gdb_test_no_output "maint print dummy-frames" send_gdb "maint print objfiles\n" @@ -223,9 +182,18 @@ set keep_looking 1 while {$keep_looking} { gdb_expect { - -re ".*Object file.*break($EXEEXT)?: Objfile at $hex, bfd at $hex, \[0-9\]* minsyms\[\r\t \]+\n" { set header 1 } - -re ".*Psymtabs:\[\r\t \]+\n" { set psymtabs 1 } - -re ".*Symtabs:\[\r\t \]+\n" { set symtabs 1 } + -re "\r\n" { + set output $expect_out(buffer) + if {[regexp ".*Object file.*maint($EXEEXT)?: Objfile at ${hex}" $output]} { + set header 1 + } + if {[regexp ".*Psymtabs:\[\r\t \]+\n" $output]} { + set psymtabs 1 + } + if {[regexp ".*Symtabs:\[\r\t \]+\n" $output]} { + set symtabs 1 + } + } -re ".*$gdb_prompt $" { set keep_looking 0 @@ -242,94 +210,94 @@ proc maint_pass_if {val name} { } maint_pass_if $header "maint print objfiles: header" -maint_pass_if $psymtabs "maint print objfiles: psymtabs" +if { ! $have_gdb_index } { + maint_pass_if $psymtabs "maint print objfiles: psymtabs" +} maint_pass_if $symtabs "maint print objfiles: symtabs" -send_gdb "maint print psymbols\n" -gdb_expect { - -re "print-psymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\ - { pass "maint print psymbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print psymbols w/o args" } - timeout { fail "(timeout) maint print psymbols w/o args" } - } +gdb_test "maint print psymbols" \ + "print-psymbols takes an output file name and optional symbol file name" \ + "maint print psymbols w/o args" -send_gdb "maint print psymbols psymbols_output ${srcdir}/${subdir}/${srcfile}\n" -gdb_expect { - -re "^maint print psymbols psymbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls psymbols_output\n" - gdb_expect { - -re "psymbols_output\r\n$gdb_prompt $"\ - { - # We want this grep to be as specific as possible, - # so it's less likely to match symbol file names in - # psymbols_output. Yes, this actually happened; - # poor expect got tons of output, and timed out - # trying to match it. --- Jim Blandy - send_gdb "shell grep 'main.*function' psymbols_output\n" - gdb_expect { - -re ".main., function, $hex.*$gdb_prompt $"\ - { pass "maint print psymbols 1" } - -re ".*main. .., function, $hex.*$gdb_prompt $"\ - { pass "maint print psymbols 2" } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } - gdb_test "shell rm -f psymbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } - - -send_gdb "maint print msymbols\n" -gdb_expect { - -re "print-msymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\ - { pass "maint print msymbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print msymbols w/o args" } - timeout { fail "(timeout) maint print msymbols w/o args" } - } +if { ! $have_gdb_index } { + set psymbols_output [standard_output_file psymbols_output] + send_gdb "maint print psymbols $psymbols_output ${srcdir}/${subdir}/${srcfile}\n" + gdb_expect { + -re "^maint print psymbols $psymbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls $psymbols_output\n" + gdb_expect { + -re "$psymbols_output\r\n$gdb_prompt $" { + # We want this grep to be as specific as possible, + # so it's less likely to match symbol file names in + # psymbols_output. Yes, this actually happened; + # poor expect got tons of output, and timed out + # trying to match it. --- Jim Blandy + send_gdb "shell grep 'main.*function' $psymbols_output\n" + gdb_expect { + -re ".main., function, $hex.*$gdb_prompt $" { + pass "maint print psymbols 1" + } + -re ".*main. .., function, $hex.*$gdb_prompt $" { + pass "maint print psymbols 2" + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } + } + gdb_test "shell rm -f $psymbols_output" ".*" \ + "shell rm -f psymbols_output" + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } + } +} + +gdb_test "maint print msymbols" \ + "print-msymbols takes an output file name and optional symbol file name" \ + "maint print msymbols w/o args" -send_gdb "maint print msymbols msymbols_output ${binfile}\n" + +set msymbols_output [standard_output_file msymbols_output] +send_gdb "maint print msymbols $msymbols_output ${binfile}\n" gdb_expect { - -re "^maint print msymbols msymbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls msymbols_output\n" - gdb_expect { - -re "msymbols_output\r\n$gdb_prompt $"\ - { - send_gdb "shell grep factorial msymbols_output\n" - gdb_expect { - -re "\\\[ *$decimal\\\] T\[ \t\]+$hex factorial.*$gdb_prompt $"\ - { pass "maint print msymbols" } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } - gdb_test "shell rm -f msymbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } + -re "^maint print msymbols $msymbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls $msymbols_output\n" + gdb_expect { + -re "$msymbols_output\r\n$gdb_prompt $" { + send_gdb "shell grep factorial $msymbols_output\n" + gdb_expect { + -re "\\\[ *$decimal\\\] \[tT\]\[ \t\]+$hex \\.?factorial.*$gdb_prompt $" { + pass "maint print msymbols" + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } + } + gdb_test "shell rm -f $msymbols_output" ".*" \ + "shell rm -f msymbols_output" + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } +} # Check that maint print msymbols allows relative pathnames set mydir [pwd] -gdb_test "cd ${objdir}" "Working directory [string_to_regexp ${objdir}]\..*" "cd to objdir" -gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" "maint print msymbols" { +gdb_test "cd [standard_output_file {}]" \ + "Working directory .*\..*" \ + "cd to objdir" + +gdb_test_multiple "maint print msymbols msymbols_output2 ${testfile}" "maint print msymbols" { -re "^maint print msymbols msymbols_output2 \[^\n\]*\r\n$gdb_prompt $" { gdb_test_multiple "shell ls msymbols_output2" "maint print msymbols" { -re "msymbols_output2\r\n$gdb_prompt $" { gdb_test_multiple "shell grep factorial msymbols_output2" "maint print msymbols" { - -re "\\\[ *$decimal\\\] T\[ \t\]+$hex factorial.*$gdb_prompt $" { + -re "\\\[ *$decimal\\\] \[tT\]\[ \t\]+$hex \\.?factorial.*$gdb_prompt $" { pass "maint print msymbols" } -re ".*$gdb_prompt $" { @@ -339,7 +307,8 @@ gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" fail "(timeout) maint print msymbols" } } - gdb_test "shell rm -f msymbols_output2" "" + gdb_test "shell rm -f msymbols_output2" ".*" \ + "shell rm -f msymbols_output2" } -re ".*$gdb_prompt $" { fail "maint print msymbols" @@ -356,46 +325,45 @@ gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" fail "(timeout) maint print msymbols" } } -gdb_test "cd ${mydir}" "Working directory [string_to_regexp ${mydir}]\..*" "cd to mydir" +gdb_test "cd ${mydir}" \ + "Working directory [string_to_regexp ${mydir}]\..*" \ + "cd to mydir" + +gdb_test "maint print symbols" \ + "Arguments missing: an output file name and an optional symbol file name" \ + "maint print symbols w/o args" -send_gdb "maint print symbols\n" -gdb_expect { - -re "Arguments missing: an output file name and an optional symbol file name.*$gdb_prompt $"\ - { pass "maint print symbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print symbols w/o args" } - timeout { fail "(timeout) maint print symbols w/o args" } - } # Request symbols for one particular source file so that we don't try to # dump the symbol information for the entire C library - over 500MB nowadays # for GNU libc. -send_gdb "maint print symbols symbols_output ${srcdir}/${subdir}/${srcfile}\n" -gdb_expect { - -re "^maint print symbols symbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls symbols_output\n" - gdb_expect { - -re "symbols_output\r\n$gdb_prompt $"\ - { - # See comments for `maint print psymbols'. - send_gdb "shell grep 'main(.*block' symbols_output\n" - gdb_expect { - -re "int main\\(int, char \\*\\*, char \\*\\*\\); block.*$gdb_prompt $"\ - { pass "maint print symbols" } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } - gdb_test "shell rm -f symbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } +set symbols_output [standard_output_file symbols_output] +send_gdb "maint print symbols $symbols_output ${srcdir}/${subdir}/${srcfile}\n" +gdb_expect { + -re "^maint print symbols $symbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls $symbols_output\n" + gdb_expect { + -re "$symbols_output\r\n$gdb_prompt $" { + # See comments for `maint print psymbols'. + send_gdb "shell grep 'main(.*block' $symbols_output\n" + gdb_expect { + -re "int main\\(int, char \\*\\*, char \\*\\*\\); block.*$gdb_prompt $" { + pass "maint print symbols" + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } + } + gdb_test "shell rm -f $symbols_output" ".*" \ + "shell rm -f symbols_output" + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } +} set msg "maint print type" gdb_test_multiple "maint print type argc" $msg { @@ -406,14 +374,13 @@ gdb_test_multiple "maint print type argc" $msg { if [istarget "hppa*-*-11*"] { setup_xfail hppa*-*-*11* CLLbs14860 - send "maint print unwind &main\n" - expect { - -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $"\ - { pass "maint print unwind" } - -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $"\ - { xfail "maint print unwind" } - -re ".*$gdb_prompt $" { xfail "maint info unwind" } - timeout { fail "(timeout) maint print unwind" } + gdb_test_multiple "maint print unwind &main" "maint print unwind" { + -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $" { + pass "maint print unwind" + } + -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex
\r\n\tregion_end = $hex \r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $" { + xfail "maint print unwind" + } } } @@ -429,249 +396,98 @@ set timeout [expr $timeout + 300] # # And by the way: This testpoint will break for PA64, where a.out's # are ELF files. -# -send_gdb "maint info sections\n" -gdb_expect { - -re "Exec file:\r\n.*break($EXEEXT)?., file type.*$gdb_prompt $"\ - { pass "maint info sections" } - -re ".*$gdb_prompt $" { fail "maint info sections" } - timeout { fail "(timeout) maint info sections" } - } + +# Standard GNU names. +set text_section ".text" +set data_section ".data" + +gdb_test_multiple "maint info sections" "maint info sections" { + -re "Exec file:\r\n.*maint($EXEEXT)?., file type.*ER_RO.*$gdb_prompt $" { + # Looks like RealView which uses different section names. + set text_section ER_RO + set data_section ER_RW + pass "maint info sections" + } + -re "Exec file:\r\n.*maint($EXEEXT)?., file type.*neardata.*$gdb_prompt $" { + # c6x doesn't have .data section. It has .neardata and .fardata section. + set data_section ".neardata" + pass "maint info sections" + } + -re "Exec file:\r\n.*maint($EXEEXT)?., file type.*$gdb_prompt $" { + pass "maint info sections" + } +} # Test for new option: maint info sections
# If you don't have a .text section, this will require tweaking. -send_gdb "maint info sections .text\n" -gdb_expect { - -re ".* \\.bss .*$gdb_prompt $" { fail "maint info sections .text" } - -re ".* \\.data .*$gdb_prompt $" { fail "maint info sections .text" } - -re ".* \\.text .*$gdb_prompt $" { pass "maint info sections .text" } - -re ".*$gdb_prompt $" { fail "maint info sections .text" } - timeout { fail "(timeout) maint info sections .text" } -} + +gdb_test_multiple "maint info sections $text_section" \ + "maint info sections .text" { + -re ".* \\.bss .*$gdb_prompt $" { + fail "maint info sections .text" + } + -re ".* $data_section .*$gdb_prompt $" { + fail "maint info sections .text" + } + -re ".* $text_section .*$gdb_prompt $" { + pass "maint info sections .text" + } + } # Test for new option: CODE section flag # If your data section is tagged CODE, xfail this test. -send_gdb "maint info sections CODE\n" -gdb_expect { - -re ".* \\.data .*$gdb_prompt $" { fail "maint info sections CODE" } - -re ".* \\.text .*$gdb_prompt $" { pass "maint info sections CODE" } - -re ".*$gdb_prompt $" { fail "maint info sections CODE" } - timeout { fail "(timeout) maint info sections CODE" } + +gdb_test_multiple "maint info sections CODE" "maint info sections CODE" { + -re ".* $data_section .*$gdb_prompt $" { fail "maint info sections CODE" } + -re ".* $text_section .*$gdb_prompt $" { pass "maint info sections CODE" } } # Test for new option: DATA section flag # If your text section is tagged DATA, xfail this test. # -# The "maint info sections DATA" test is marked for XFAIL on Cygwin, +# The "maint info sections DATA" test is marked for XFAIL on Windows, # because Windows has text sections marked DATA. setup_xfail "*-*-*cygwin*" -send_gdb "maint info sections DATA\n" -gdb_expect { - -re ".* \\.text .*$gdb_prompt $" { fail "maint info sections DATA" } - -re ".* \\.data .*$gdb_prompt $" { pass "maint info sections DATA" } - -re ".*$gdb_prompt $" { fail "maint info sections DATA" } - timeout { fail "(timeout) maint info sections DATA" } +setup_xfail "*-*-*mingw*" + +gdb_test_multiple "maint info sections DATA" "maint info sections DATA" { + -re ".* $text_section .*$gdb_prompt $" { fail "maint info sections DATA" } + -re ".* $data_section .*$gdb_prompt $" { pass "maint info sections DATA" } + -re ".* .rodata .*$gdb_prompt $" { pass "maint info sections DATA" } } set bp_location6 [gdb_get_line_number "set breakpoint 6 here"] -send_gdb "maint info breakpoints\n" -gdb_expect { - -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex\[ \t\]+in main at.*break.c:$bp_location6 inf 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\ - { pass "maint info breakpoints" } - -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:$bp_location6 sspace 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\ - { pass "maint info breakpoints (with shlib events)" } - -re ".*$gdb_prompt $" { fail "maint info breakpoints" } - timeout { fail "(timeout) maint info breakpoints" } +gdb_test_multiple "maint info breakpoints" "maint info breakpoints" { + -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex\[ \t\]+in main at.*break.c:$bp_location6 inf 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $" { + pass "maint info breakpoints" + } + -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:$bp_location6 sspace 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $" { + pass "maint info breakpoints (with shlib events)" + } } -send_gdb "maint print\n" -gdb_expect { - -re "\"maintenance print\" must be followed by the name of a print command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint print w/o args" } - -re ".*$gdb_prompt $" { fail "maint print w/o args" } - timeout { fail "(timeout) maint print w/o args" } - } - -send_gdb "maint info\n" -gdb_expect { - -re "\"maintenance info\" must be followed by the name of an info command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint info w/o args" } - -re ".*$gdb_prompt $" { fail "maint info w/o args" } - timeout { fail "(timeout) maint info w/o args" } - } +gdb_test "maint print" \ + "\"maintenance print\" must be followed by the name of a print command\\.\r\nList.*unambiguous\\..*" \ + "maint print w/o args" -send_gdb "maint\n" -gdb_expect { - -re "\"maintenance\" must be followed by the name of a maintenance command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint w/o args" } - -re ".*$gdb_prompt $" { fail "maint w/o args" } - timeout { fail "(timeout) maint w/o args" } - } +gdb_test "maint info" \ + "\"maintenance info\" must be followed by the name of an info command\\.\r\nList.*unambiguous\\..*" \ + "maint info w/o args" +gdb_test "maint" \ + "\"maintenance\" must be followed by the name of a maintenance command\\.\r\nList.*unambiguous\\..*" \ + "maint w/o args" set timeout $oldtimeout #============test help on maint commands -send_gdb "help maint\n" -gdb_expect { - -re "Commands for use by GDB maintainers\\..*Includes commands to dump specific internal GDB structures in.*a human readable form, to cause GDB to deliberately dump core,.*to test internal functions such as the C../ObjC demangler, etc\\..*List of maintenance subcommands:.*maintenance check-symtabs.*maintenance demangle.*(maintenance dump-me.*)?maintenance info.*maintenance internal-error.*maintenance print.*maintenance set.*maintenance show.*maintenance space.*maintenance time.*Type.*help maintenance.*followed by maintenance subcommand name for full documentation\\..*Command name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\ - { pass "help maint" } - -re ".*$gdb_prompt $" { fail "help maint" } - timeout { fail "(timeout) help maint" } - } - - -send_gdb "help maint check-symtabs\n" -gdb_expect { - -re "Check consistency of psymtabs and symtabs\\..*$gdb_prompt $"\ - { pass "help maint check-symtabs" } - -re ".*$gdb_prompt $" { fail "help maint check-symtabs" } - timeout { fail "(timeout) help maint check-symtabs" } - } - -send_gdb "help maint space\n" -gdb_expect { - -re "Set the display of space usage\\.\r\nIf nonzero, will cause the execution space for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\ - { pass "help maint space" } - -re ".*$gdb_prompt $" { fail "help maint space" } - timeout { fail "(timeout) help maint space" } - } - -send_gdb "help maint time\n" -gdb_expect { - -re "Set the display of time usage\\.\r\nIf nonzero, will cause the execution time for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\ - { pass "help maint time" } - -re ".*$gdb_prompt $" { fail "help maint time" } - timeout { fail "(timeout) help maint time" } - } - -send_gdb "help maint demangle\n" -gdb_expect { - -re "Demangle a C\\+\\+/ObjC mangled name\\.\r\nCall internal GDB demangler routine to demangle a C\\+\\+ link name\r\nand prints the result\\..*$gdb_prompt $"\ - { pass "help maint demangle" } - -re ".*$gdb_prompt $" { fail "help maint demangle" } - timeout { fail "(timeout) help maint demangle" } - } - -send_gdb "help maint dump-me\n" -gdb_expect { - -re "Get fatal error; make debugger dump its core\\.\r\nGDB sets its handling of SIGQUIT back to SIG_DFL and then sends\r\nitself a SIGQUIT signal\\..*$gdb_prompt $"\ - { pass "help maint dump-me" } - -re ".*$gdb_prompt $" { fail "help maint dump-me" } - timeout { fail "(timeout) help maint dump-me" } - } - -send_gdb "help maint internal-error\n" -gdb_expect { - -re "Give GDB an internal error\\.\r\nCause GDB to behave as if an internal error was detected\\..*$gdb_prompt $"\ - { pass "help maint internal-error" } - -re ".*$gdb_prompt $" { fail "help maint internal-error" } - timeout { fail "(timeout) help maint internal-error" } - } - -send_gdb "help maint internal-warning\n" -gdb_expect { - -re "Give GDB an internal warning\\.\r\nCause GDB to behave as if an internal warning was reported\\..*$gdb_prompt $"\ - { pass "help maint internal-warning" } - -re ".*$gdb_prompt $" { fail "help maint internal-warning" } - timeout { fail "(timeout) help maint internal-warning" } - } - -send_gdb "help maint print statistics\n" -gdb_expect { - -re "Print statistics about internal gdb state\\..*$gdb_prompt $"\ - { pass "help maint print statistics" } - -re ".*$gdb_prompt $" { fail "help maint print statistics" } - timeout { fail "(timeout) help maint print statistics" } - } - -gdb_test "help maint print dummy-frames" \ - "Print the contents of the internal dummy-frame stack." - -send_gdb "help maint print objfiles\n" -gdb_expect { - -re "Print dump of current object file definitions\\..*$gdb_prompt $"\ - { pass "help maint print objfiles" } - -re ".*$gdb_prompt $" { fail "help maint print objfiles" } - timeout { fail "(timeout) help maint print objfiles" } - } - -send_gdb "help maint print psymbols\n" -gdb_expect { - -re "Print dump of current partial symbol definitions\\.\r\nEntries in the partial symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's partial symbols\\..*$gdb_prompt $"\ - { pass "help maint print psymbols" } - -re ".*$gdb_prompt $" { fail "help maint print psymbols" } - timeout { fail "(timeout) help maint print psymbols" } - } - -send_gdb "help maint print msymbols\n" -gdb_expect { - -re "Print dump of current minimal symbol definitions\\.\r\nEntries in the minimal symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's minimal symbols\\..*$gdb_prompt $"\ - { pass "help maint print msymbols" } - -re ".*$gdb_prompt $" { fail "help maint print msymbols" } - timeout { fail "(timeout) help maint print msymbols" } - } - -send_gdb "help maint print symbols\n" -gdb_expect { - -re "Print dump of current symbol definitions\\.\r\nEntries in the full symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's symbols\\..*$gdb_prompt $"\ - { pass "help maint print symbols" } - -re ".*$gdb_prompt $" { fail "help maint print symbols" } - timeout { fail "(timeout) help maint print symbols" } - } - - -send_gdb "help maint print type\n" -gdb_expect { - -re "Print a type chain for a given symbol\\.\r\nFor each node in a type chain, print the raw data for each member of\r\nthe type structure, and the interpretation of the data\\..*$gdb_prompt $"\ - { pass "help maint print type" } - -re ".*$gdb_prompt $" { fail "help maint print type" } - timeout { fail "(timeout) help maint print type" } - } - -if [istarget "hppa*-*-*"] { - send_gdb "help maint print unwind\n" - gdb_expect { - -re "Print unwind table entry at given address\\..*$gdb_prompt $"\ - { pass "help maint print unwind" } - -re ".*$gdb_prompt $" { fail "help maint print unwind" } - timeout { fail "(timeout) help maint print unwind" } - } -} +gdb_test "help maint" \ + "Commands for use by GDB maintainers\\..*Includes commands to dump specific internal GDB structures in.*a human readable form, to cause GDB to deliberately dump core,.*to test internal functions such as the C../ObjC demangler, etc\\..*List of maintenance subcommands:.*maintenance info.*maintenance internal-error.*maintenance print.*maintenance set.*maintenance show.*Type.*help maintenance.*followed by maintenance subcommand name for full documentation\\..*Command name abbreviations are allowed if unambiguous\\..*" -send_gdb "help maint info sections\n" -gdb_expect { - -re "List the BFD sections of the exec and core files\\..*$gdb_prompt $"\ - { pass "help maint info sections" } - -re ".*$gdb_prompt $" { fail "help maint info sections" } - timeout { fail "(timeout) help maint info sections" } - } - - -send_gdb "help maint info breakpoints\n" -gdb_expect { --re "Status of all breakpoints, or breakpoint number NUMBER.*$gdb_prompt $" { pass "help maint info breakpoints" } - -re ".*$gdb_prompt $" { fail "help maint info breakpoints" } - timeout { fail "(timeout) help maint info breakpoints" } - } - -#send_gdb "help maint info breakpoints\n" -#expect { -# -re "Status of all breakpoints, or breakpoint number NUMBER\\.\[ \r\n\t\]+The \"Type\" column indicates one of:\[ \r\n\t\]+breakpoint\[ \t\]+- normal breakpoint\[ \r\n\t\]+watchpoint\[ \t\]+- watchpoint\[ \r\n\t\]+longjmp\[ \t\]+- internal breakpoint used to step through longjmp\\(\\)\[ \r\n\t\]+longjmp resume - internal breakpoint at the target of longjmp\\(\\)\[ \r\n\t\]+until\[ \t\]+- internal breakpoint used by the \"until\" command\[ \r\n\t\]+finish\[ \t\]+- internal breakpoint used by the \"finish\" command\[ \r\n\t\]+The \"Disp\" column contains one of \"keep\", \"del\", or \"dis\" to indicate\[ \r\n\t\]+the disposition of the breakpoint after it gets hit\\. \"dis\" means that the\[ \r\n\t\]+breakpoint will be disabled\\. The \"Address\" and \"What\" columns indicate the\[ \r\n\t\]+address and file.line number respectively\\.\[ \r\n\t\]+Convenience variable \".*\" and default examine address for \"x\"\[ \r\n\t\]+are set to the address of the last breakpoint listed\\.\[ \r\n\t\]+Convenience variable \".bpnum\" contains the number of the last\[ \r\n\t\]+breakpoint set\\..*$gdb_prompt $"\ -# { pass "help maint info breakpoints" } -# -re ".*$gdb_prompt $" { fail "help maint info breakpoints" } -# timeout { fail "(timeout) help maint info breakpoints" } -# } - -send_gdb "help maint info\n" -gdb_expect { - -re "Commands for showing internal info about the program being debugged.*unambiguous\\..*$gdb_prompt $"\ - { pass "help maint info" } - -re ".*$gdb_prompt $" { fail "help maint info" } - timeout { fail "(timeout) help maint info" } - } +gdb_test "help maint info" \ + "Commands for showing internal info about the program being debugged.*unambiguous\\..*" test_prefix_command_help {"maint print" "maintenance print"} { "Maintenance command for printing GDB internal state\\.\[\r\n\]+" @@ -687,18 +503,15 @@ test_prefix_command_help {"maint" "maintenance"} { #set oldtimeout $timeout #set timeout [expr $timeout + 300] -send_gdb "maint dump-me\n" -gdb_expect { - -re "Should GDB dump core.*\\(y or n\\) $"\ - { send_gdb "n\n" - gdb_expect { - -re ".*$gdb_prompt $" { pass "maint dump-me" } - timeout { fail "(timeout) maint dump-me" } - } - } - -re ".*$gdb_prompt $" { fail "maint dump-me" } - timeout { fail "(timeout) maint dump-me" } - } +gdb_test_multiple "maint dump-me" "maint dump-me" { + -re "Should GDB dump core.*\\(y or n\\) $" { + gdb_test "n" ".*" "maint dump-me" + } + -re "Undefined maintenance command: .*$gdb_prompt $" { + # Command 'maint dump-me' is registered on non-win32 host. + unsupported "maint dump-me" + } +} send_gdb "maint internal-error\n" gdb_expect {