diff options
author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2012-12-24 19:40:05 +0000 |
---|---|---|
committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2012-12-24 19:40:05 +0000 |
commit | 858174054dbd9970d840c043aeb318f721fcf4fd (patch) | |
tree | d760627d6598309aeb29147734384069c2be6c17 /gdb/testsuite | |
parent | 884f2a8d06d3793f8a611feaccc8bc7c29cd9f8b (diff) | |
download | binutils-gdb-858174054dbd9970d840c043aeb318f721fcf4fd.tar.gz |
gdb/
* breakpoint.c (breakpoint_re_set): Remove the skip_re_set call.
* infrun.c (handle_inferior_event): Rename the called function to
function_name_is_marked_for_skip, pass it TMP_SAL.
* skip.c (struct skiplist_entry): Update function_name comment. Remove
fields pc, gdbarch and pending.
(skip_function_pc): Rename this forward declaration to ...
(skip_function): ... here.
(skip_file_command): Remove variable pending and its use, remove
initialization of E fields pending and gdbarch. Do not use SYMTAB
filename, use the specified one.
(skip_function_command): Remove variable func_pc, do not set it.
Update the caller of skip_function. Replace decode_line_1 call by
a lookup_symbol call. Remove variables orig_arg, decode_exception and
sals. Update the caller of skip_function.
(skip_info): Remove variable address_width and its use. Do not print
address (PC). Renumber column 5 to 4.
(skip_function_pc): Rename to ...
(skip_function): ... here and remove its parameters pc, arch and
pending. Update the function comment and no longer use those
parameters.
(function_pc_is_marked_for_skip): Rename to ...
(function_name_is_marked_for_skip): ... here, update function comment
just to a skip.h reference, replace pc parameter by function_name and
function_sal. No longer use E field pending and pc. Remove variables
searched_for_sal, sal and filename. Call compare_filenames_for_search
instead of just strcmp.
(skip_re_set): Remove the function.
* skip.h (struct symtab_and_line): New declaration.
(function_pc_is_marked_for_skip): Rename to ...
(function_name_is_marked_for_skip): ... here, replace pc parameter by
function_name and function_sal, update the function comment.
gdb/testsuite/
* gdb.base/skip-solib.exp (info skip with pending file): Update the
expected output.
(info skip with pending file): Remove.
(ignoring function in solib, info skip for function multiply): Update
the expected output.
* gdb.base/skip.ex (skip (main), skip function baz, info skip)
(info skip (delete 1), info skip after disabling all)
(info skip after enabling all, info skip after disabling 4 2-3)
(info skip after enabling 2-3, info skip 2-3)
(info skip after deleting 2 3): Update the expected output.
* gdb.linespec/base/two/thefile.cc (n): New variable v, split the
statement to its initialization and return.
* gdb.linespec/skip-two.exp: New file.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r-- | gdb/testsuite/ChangeLog | 16 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/skip-solib.exp | 23 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/skip.exp | 60 | ||||
-rw-r--r-- | gdb/testsuite/gdb.linespec/base/two/thefile.cc | 3 | ||||
-rw-r--r-- | gdb/testsuite/gdb.linespec/skip-two.exp | 84 |
5 files changed, 139 insertions, 47 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 5e9ce9abb0c..b83d445a608 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,19 @@ +2012-12-24 Jan Kratochvil <jan.kratochvil@redhat.com> + + * gdb.base/skip-solib.exp (info skip with pending file): Update the + expected output. + (info skip with pending file): Remove. + (ignoring function in solib, info skip for function multiply): Update + the expected output. + * gdb.base/skip.ex (skip (main), skip function baz, info skip) + (info skip (delete 1), info skip after disabling all) + (info skip after enabling all, info skip after disabling 4 2-3) + (info skip after enabling 2-3, info skip 2-3) + (info skip after deleting 2 3): Update the expected output. + * gdb.linespec/base/two/thefile.cc (n): New variable v, split the + statement to its initialization and return. + * gdb.linespec/skip-two.exp: New file. + 2012-12-19 Doug Evans <dje@google.com> * gdb.base/maint.exp: Handle testing with .gdb_index. diff --git a/gdb/testsuite/gdb.base/skip-solib.exp b/gdb/testsuite/gdb.base/skip-solib.exp index 452c3d1084b..cdc55d75479 100644 --- a/gdb/testsuite/gdb.base/skip-solib.exp +++ b/gdb/testsuite/gdb.base/skip-solib.exp @@ -69,11 +69,11 @@ Ignore file pending future shared library load.*" \ "y" # -# Does info skip list this entry as pending? +# Checkinfo skip list. # gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -1\\s+file\\s+y\\s+\\s+${srcfile_lib} \\(PENDING\\)\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +1\\s+file\\s+y\\s+${srcfile_lib}\\s*" \ "info skip with pending file" if ![runto_main] { fail "skip tests suppressed" } @@ -85,21 +85,12 @@ gdb_test "step" "" gdb_test "bt" "#0\\s+main.*" "step after ignoring solib file." # -# Our entry should no longer be pending. Note that we unfortunately need to do -# at least one step before the entry will be unmarked as pending. -# -gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -1\\s+file\\s+y\\s+\\s+.*${srcfile_lib}\\s*" \ - "info skip with pending file" - -# # Now restart gdb and testing ignoring of a function inside a solib. # clean_restart ${executable_main} gdb_test "skip function multiply" \ - "Function multiply will be skipped when stepping, pending shared library load." \ + "Function multiply will be skipped when stepping\\." \ "ignoring function in solib" \ "No function found named multiply..* Ignore function pending future shared library load.*" \ @@ -116,9 +107,9 @@ gdb_test "step" "square.*" # Now our entry should no longer be pending. # gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -1\\s+function\\s+y\\s+0x\[0-9a-f\]+\\s+multiply at .*${srcfile_lib}:.*\\s*" \ - "skip should no longer be pending." + "Num\\s+Type\\s+Enb\\s+What\\s* +1\\s+function\\s+y\\s+multiply\\s*" \ + "info skip for function multiply" # # This step shouldn't go into multiply -- we should skip it and go on to the diff --git a/gdb/testsuite/gdb.base/skip.exp b/gdb/testsuite/gdb.base/skip.exp index 5cb14243251..14137d19b01 100644 --- a/gdb/testsuite/gdb.base/skip.exp +++ b/gdb/testsuite/gdb.base/skip.exp @@ -42,13 +42,13 @@ gdb_test "info skip" "Not skipping any files or functions\." "info skip empty" # Create a skiplist entry for the current file and function. # gdb_test "skip file" "File .*$srcfile will be skipped when stepping\." "skip file ($srcfile)" -gdb_test "skip" "Function main at .* will be skipped when stepping\." "skip (main)" +gdb_test "skip" "Function main will be skipped when stepping\." "skip (main)" # # Create a skiplist entry for a specified file and function. # gdb_test "skip file skip1.c" "File .*$srcfile1 will be skipped when stepping\." -gdb_test "skip function baz" "Function baz at .* will be skipped when stepping\." +gdb_test "skip function baz" "Function baz will be skipped when stepping\." # # Test bad skiplist entry modification commands @@ -69,11 +69,11 @@ gdb_test "info skip 999" "No skiplist entries found with number 999." # Does |info skip| look right? # gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* + "Num\\s+Type\\s+Enb\\s+What\\s* 1\\s+file\\s+y\\s+.*$srcfile\\s* -2\\s+function\\s+y\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+y\\s+.*$srcfile1\\s* -4\\s+function\\s+y\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" +2\\s+function\\s+y\\s+main\\s* +3\\s+file\\s+y\\s+$srcfile1\\s* +4\\s+function\\s+y\\s+baz\\s*" # # Right now, we have an outstanding skiplist entry on both source @@ -93,10 +93,10 @@ gdb_test "bt" "\\s*\\#0\\s+main.*" "step after all ignored" gdb_test "skip delete 1" # Check that entry 1 is missing from |info skip| gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+y\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+y\\s+.*$srcfile1\\s* -4\\s+function\\s+y\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+y\\s+main\\s* +3\\s+file\\s+y\\s+$srcfile1\\s* +4\\s+function\\s+y\\s+baz\\s*" \ "info skip (delete 1)" if ![runto_main] { fail "skip tests suppressed" } @@ -134,45 +134,45 @@ gdb_test "step" "main \\(\\) at.*" "step after enable 3 (3)" gdb_test "skip disable" gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+n\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+n\\s+.*$srcfile1\\s* -4\\s+function\\s+n\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+n\\s+main\\s* +3\\s+file\\s+n\\s+$srcfile1\\s* +4\\s+function\\s+n\\s+baz\\s*" \ "info skip after disabling all" gdb_test "skip enable" gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+y\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+y\\s+.*$srcfile1\\s* -4\\s+function\\s+y\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+y\\s+main\\s* +3\\s+file\\s+y\\s+$srcfile1\\s* +4\\s+function\\s+y\\s+baz\\s*" \ "info skip after enabling all" gdb_test "skip disable 4 2-3" gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+n\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+n\\s+.*$srcfile1\\s* -4\\s+function\\s+n\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+n\\s+main\\s* +3\\s+file\\s+n\\s+$srcfile1\\s* +4\\s+function\\s+n\\s+baz\\s*" \ "info skip after disabling 4 2-3" gdb_test "skip enable 2-3" gdb_test "info skip" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+y\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+y\\s+.*$srcfile1\\s* -4\\s+function\\s+n\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+y\\s+main\\s* +3\\s+file\\s+y\\s+$srcfile1\\s* +4\\s+function\\s+n\\s+baz\\s*" \ "info skip after enabling 2-3" gdb_test "info skip 2-3" \ - "Num\\s+Type\\s+Enb\\s+Address\\s+What\\s* -2\\s+function\\s+y\\s+0x\[0-9a-f\]+ main at .*$srcfile:\[0-9\]+\\s* -3\\s+file\\s+y\\s+.*$srcfile1\\s*" \ + "Num\\s+Type\\s+Enb\\s+What\\s* +2\\s+function\\s+y\\s+main\\s* +3\\s+file\\s+y\\s+$srcfile1\\s*" \ "info skip 2-3" gdb_test "skip delete 2 3" gdb_test "info skip" \ - "4\\s+function\\s+n\\s+0x\[0-9a-f\]+ baz at .*$srcfile1:\[0-9\]+\\s*" \ + "4\\s+function\\s+n\\s+baz\\s*" \ "info skip after deleting 2 3" gdb_test "skip delete" diff --git a/gdb/testsuite/gdb.linespec/base/two/thefile.cc b/gdb/testsuite/gdb.linespec/base/two/thefile.cc index ffca87a4e87..f0c04cc04ee 100644 --- a/gdb/testsuite/gdb.linespec/base/two/thefile.cc +++ b/gdb/testsuite/gdb.linespec/base/two/thefile.cc @@ -11,7 +11,8 @@ static int dupname(int y) int n(int y) { - return dupname(y) - 23; /* thefile breakpoint */ + int v = dupname(y) - 23; /* thefile breakpoint */ + return v; /* after dupname */ } int NameSpace::overload(double x) diff --git a/gdb/testsuite/gdb.linespec/skip-two.exp b/gdb/testsuite/gdb.linespec/skip-two.exp new file mode 100644 index 00000000000..ea4e164edec --- /dev/null +++ b/gdb/testsuite/gdb.linespec/skip-two.exp @@ -0,0 +1,84 @@ +# Copyright 2012 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 +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +standard_testfile lspec.cc + +set execfile $testfile + +set baseone base/one/thefile.cc +set basetwo base/two/thefile.cc + +if {[skip_cplus_tests]} { + unsupported ${testfile}.exp + return +} + +if {[prepare_for_testing ${testfile}.exp $execfile \ + [list $srcfile $baseone $basetwo] \ + {debug nowarnings c++}]} { + return -1 +} + +gdb_test "skip function dupname" \ + {Function dupname will be skipped when stepping\.} + +if ![runto_main] { + return -1 +} + +set test "dupname ignored from main" +gdb_test_multiple "step" $test { + -re "^step\r\ndupname .*\r\n$gdb_prompt $" { + fail $test + } + -re "^step\r\nm .*\r\n$gdb_prompt $" { + pass $test + } +} + +gdb_breakpoint "n" +gdb_continue_to_breakpoint "n" ".* dupname.* thefile breakpoint .*" + +set test "dupname ignored from n" +gdb_test_multiple "step" $test { + -re "^step\r\ndupname .*\r\n$gdb_prompt $" { + fail $test + } + -re "^step\r\n\[^\r\n\]* after dupname .*\r\n$gdb_prompt $" { + pass $test + } +} + +gdb_test_no_output "skip delete 1" + +gdb_test "skip file thefile.cc" \ + {File thefile\.cc will be skipped when stepping\.} + +if ![runto_main] { + return -1 +} + +gdb_test "step" "static int dupname .*" "step into dupname" +gdb_test "finish" "return dupname.* body_elsewhere.*" "finish from dupname" + +set test "dupname ignored for thefile.cc" +gdb_test_multiple "step" $test { + -re "^step\r\ndupname .*\r\n$gdb_prompt $" { + fail $test + } + -re "^step\r\nf1 .* f1 breakpoint .*\r\n$gdb_prompt $" { + pass $test + } +} |