mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-09 04:21:49 +08:00
3cd25174b8
It is not necessary to pass an empty string to mi_gdb_start, passing the empty string is equivalent to passing no arguments, which is what we do everywhere else (that we don't need to specify an actual argument). The only place we use 'mi_gdb_start ""' is in gdb.mi/mi-break-qualified.exp, so in this commit I just replace that with a call to 'mi_gdb_start' - just for consistency. There should be no change in what is tested after this commit.
107 lines
3.2 KiB
Plaintext
107 lines
3.2 KiB
Plaintext
# Copyright 2020-2022 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/>.
|
|
|
|
# Test '-break-insert --qualified' and C++ wildmatching.
|
|
#
|
|
# The goal is not to test GDB functionality, which is done by other
|
|
# tests, but to verify the correct output response to MI operations.
|
|
|
|
load_lib mi-support.exp
|
|
set MIFLAGS "-i=mi"
|
|
|
|
standard_testfile .cc
|
|
|
|
if {[build_executable $testfile.exp $testfile $srcfile {c++ debug}] == -1} {
|
|
untested "failed to compile"
|
|
return -1
|
|
}
|
|
|
|
set loc_ns_func_line [gdb_get_line_number "location NS::func here"]
|
|
set loc_foo_func_line [gdb_get_line_number "location foo::func here"]
|
|
set loc_func_line [gdb_get_line_number "location func here"]
|
|
|
|
proc test_break_qualified {} {
|
|
global hex
|
|
global loc_ns_func_line loc_foo_func_line loc_func_line
|
|
|
|
# We have three functions called "func" in the program. Check
|
|
# that --qualified only picks the one explicitly specified.
|
|
|
|
set bps {}
|
|
set test "--qualified func"
|
|
lappend bps [mi_create_breakpoint $test $test \
|
|
-func "func\\(char\\)" \
|
|
-file ".*mi-break-qualified.cc" \
|
|
-line $loc_func_line]
|
|
|
|
set test "--qualified NS::func"
|
|
lappend bps [mi_create_breakpoint $test $test \
|
|
-func "NS::func\\(int\\)" \
|
|
-file ".*mi-break-qualified.cc" \
|
|
-line $loc_ns_func_line]
|
|
|
|
set test "--qualified foo::func"
|
|
lappend bps [mi_create_breakpoint $test $test \
|
|
-func "foo::func\\(long\\)" \
|
|
-file ".*mi-break-qualified.cc" \
|
|
-line $loc_foo_func_line]
|
|
|
|
# Also check that without --qualified, we get a breakpoint with a
|
|
# location for each of the functions called "func" in the program.
|
|
|
|
# Small helper wrapper around mi_make_breakpoint_loc.
|
|
proc make_loc_re {func line_no} {
|
|
global hex
|
|
|
|
return [mi_make_breakpoint_loc \
|
|
-enabled "y" \
|
|
-func "$func" \
|
|
-file ".*mi-break-qualified.cc" \
|
|
-line="$line_no"]
|
|
}
|
|
|
|
set loc1 [make_loc_re "NS::func\\(int\\)" $loc_ns_func_line]
|
|
set loc2 [make_loc_re "foo::func\\(long\\)" $loc_foo_func_line]
|
|
set loc3 [make_loc_re "func\\(char\\)" $loc_func_line]
|
|
|
|
set test "func"
|
|
set bp [mi_create_breakpoint_multi $test $test \
|
|
-original-location "func" \
|
|
-locations "\\\[$loc1,$loc2,$loc3\\\]"]
|
|
|
|
lappend bps $bp
|
|
|
|
# List the breakpoints.
|
|
mi_gdb_test "666-break-list" \
|
|
"666\\\^done,[mi_make_breakpoint_table $bps]" \
|
|
"list of breakpoints"
|
|
|
|
mi_gdb_test "777-break-delete" \
|
|
"777\\^done" \
|
|
"delete temp breakpoints"
|
|
}
|
|
|
|
mi_gdb_exit
|
|
|
|
if [mi_gdb_start] {
|
|
return
|
|
}
|
|
|
|
mi_delete_breakpoints
|
|
mi_gdb_reinitialize_dir $srcdir/$subdir
|
|
mi_gdb_load ${binfile}
|
|
|
|
test_break_qualified
|