Fix gdb.ada bp_fun_addr failure due to conflict between fun 'a' and s-dimmks.ads 'A'.
The test fails (timeout) due to: (gdb) PASS: gdb.ada/bp_fun_addr.exp: break *a'address run Starting program: /bd/home/philippe/gdb/git/build_info_t/gdb/testsuite/outputs/gdb.ada/bp_fun_addr/a Multiple matches for a [0] cancel [1] a at /bd/home/philippe/gdb/git/info_t/gdb/testsuite/gdb.ada/bp_fun_addr/a.adb:18 [2] system.dim.mks.a at s-dimmks.ads:115 > FAIL: gdb.ada/bp_fun_addr.exp: run until breakpoint at a'address (timeout) testcase /home/philippe/gdb/git/build_info_t/gdb/testsuite/../../../info_t/gdb/testsuite/gdb.ada/bp_fun_addr.exp completed in 10 seconds Fix this by using a fun name that has more chances to be unique. 2018-12-24 Philippe Waroquiers <philippe.waroquiers@skynet.be> * gdb.ada/bp_fun_addr/a.adb (a): Rename to bp_fun_addr. Filename a.adb changed to bp_fun_addr.adb. gdb.ada/bp_fun_addr.exp: Update test accordingly.
This commit is contained in:
parent
56334baf0c
commit
b5a1e55720
|
@ -1,3 +1,9 @@
|
|||
2018-12-24 Philippe Waroquiers <philippe.waroquiers@skynet.be>
|
||||
|
||||
* gdb.ada/bp_fun_addr/a.adb (a): Rename to bp_fun_addr.
|
||||
Filename a.adb changed to bp_fun_addr.adb.
|
||||
gdb.ada/bp_fun_addr.exp: Update test accordingly.
|
||||
|
||||
2018-12-21 Jan Vrany <jan.vrany@fit.cvut.cz>
|
||||
|
||||
* lib/gdb.exp (gdb_compile): Add new nopie flag enforce
|
||||
|
|
|
@ -17,7 +17,7 @@ load_lib "ada.exp"
|
|||
|
||||
if { [skip_ada_tests] } { return -1 }
|
||||
|
||||
standard_ada_testfile a
|
||||
standard_ada_testfile bp_fun_addr
|
||||
|
||||
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
|
||||
return -1
|
||||
|
@ -25,11 +25,11 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
|
|||
|
||||
clean_restart ${testfile}
|
||||
|
||||
gdb_test "break *a'address" \
|
||||
"Breakpoint \[0-9\]+ at.*: file .*a.adb, line \[0-9\]+."
|
||||
gdb_test "break *bp_fun_addr'address" \
|
||||
"Breakpoint \[0-9\]+ at.*: file .*bp_fun_addr.adb, line \[0-9\]+."
|
||||
|
||||
gdb_run_cmd
|
||||
gdb_test "" \
|
||||
"Breakpoint $decimal, a \\(\\).*" \
|
||||
"run until breakpoint at a'address"
|
||||
"Breakpoint $decimal, bp_fun_addr \\(\\).*" \
|
||||
"run until breakpoint at bp_fun_addr'address"
|
||||
|
||||
|
|
|
@ -13,7 +13,7 @@
|
|||
-- You should have received a copy of the GNU General Public License
|
||||
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
procedure A is
|
||||
procedure Bp_Fun_Addr is
|
||||
begin
|
||||
null;
|
||||
end A;
|
||||
end Bp_Fun_Addr;
|
Loading…
Reference in New Issue