espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-23 11:39:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Start inferior before running test listing Ada exceptions.

Browse Source 
This patch fixes some spurious failures when the inferior is linked
against the shared version of libgnat by default, as appears to be
the case on many GNU/Linux distributions.  When that happens, we have
to start the program in order to ensure that the GNAT runtime is
mapped to memory, in order for us to find the standard exceptions
(defined within the runtime).  Otherwise, they will not be shown,
as expected, by the debugger.

gdb/testsuite/ChangeLog:

        * gdb.ada/info_exc.exp: Start inferior before starting
        the "info exceptions" tests.
        * gdb.ada/mi_exc_info.exp: Start inferior before starting
        the "-info-ada-exceptions" tests.
This commit is contained in:
Joel Brobecker
2013-11-15 10:30:00 +04:00
parent 805e1f1908
commit e092da2903
3 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2013-11-15 Joel Brobecker <brobecker@adacore.com>
* gdb.ada/info_exc.exp: Start inferior before starting
the "info exceptions" tests.
* gdb.ada/mi_exc_info.exp: Start inferior before starting
the "-info-ada-exceptions" tests.
2013-11-15 Tom Tromey <tromey@redhat.com> 2013-11-15 Tom Tromey <tromey@redhat.com>
* gdb.cp/includefile: New file. * gdb.cp/includefile: New file.

5
gdb/testsuite/gdb.ada/info_exc.exp
View File

@ -34,6 +34,11 @@ proc multi_line { args } {
clean_restart ${testfile} clean_restart ${testfile}
if ![runto_main] then {
fail "Cannot run to main, testcase aborted"
return 0
}
gdb_test "info exceptions" \ gdb_test "info exceptions" \
[multi_line "All defined Ada exceptions:" \ [multi_line "All defined Ada exceptions:" \
"constraint_error: $hex" \ "constraint_error: $hex" \

5
gdb/testsuite/gdb.ada/mi_exc_info.exp
View File

@ -29,6 +29,11 @@ if [mi_gdb_start] {
continue continue
} }
if ![mi_run_to_main] then {
fail "Cannot run to main, testcase aborted"
return 0
}
mi_delete_breakpoints mi_delete_breakpoints
mi_gdb_reinitialize_dir $srcdir/$subdir mi_gdb_reinitialize_dir $srcdir/$subdir
mi_gdb_load ${binfile} mi_gdb_load ${binfile}