diff options
| author | Joel Brobecker <brobecker@adacore.com> | 2013-11-15 10:30:00 +0400 |
|---|---|---|
| committer | Joel Brobecker <brobecker@adacore.com> | 2013-11-15 20:14:25 +0400 |
| commit | e092da29031a5a5a74beb1d671da98d55fff6ebd (patch) | |
| tree | 317df81dbb812d21dcb0739a16d650eaebaddbfd /gdb/testsuite/gdb.ada | |
| parent | 805e1f190887b3b7dea3fd157d58bc25effcf688 (diff) | |
| download | fsf-binutils-gdb-e092da29031a5a5a74beb1d671da98d55fff6ebd.zip fsf-binutils-gdb-e092da29031a5a5a74beb1d671da98d55fff6ebd.tar.gz fsf-binutils-gdb-e092da29031a5a5a74beb1d671da98d55fff6ebd.tar.bz2 | |
Start inferior before running test listing Ada exceptions.
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.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
| -rw-r--r-- | gdb/testsuite/gdb.ada/info_exc.exp | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_exc_info.exp | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index 3ff5180..9637bce 100644 --- a/gdb/testsuite/gdb.ada/info_exc.exp +++ b/gdb/testsuite/gdb.ada/info_exc.exp @@ -34,6 +34,11 @@ proc multi_line { args } { clean_restart ${testfile} +if ![runto_main] then { + fail "Cannot run to main, testcase aborted" + return 0 +} + gdb_test "info exceptions" \ [multi_line "All defined Ada exceptions:" \ "constraint_error: $hex" \ diff --git a/gdb/testsuite/gdb.ada/mi_exc_info.exp b/gdb/testsuite/gdb.ada/mi_exc_info.exp index b77ccbc..8325e90 100644 --- a/gdb/testsuite/gdb.ada/mi_exc_info.exp +++ b/gdb/testsuite/gdb.ada/mi_exc_info.exp @@ -29,6 +29,11 @@ if [mi_gdb_start] { continue } +if ![mi_run_to_main] then { + fail "Cannot run to main, testcase aborted" + return 0 +} + mi_delete_breakpoints mi_gdb_reinitialize_dir $srcdir/$subdir mi_gdb_load ${binfile} |