From: Joel Brobecker Date: Fri, 15 Nov 2013 06:30:00 +0000 (+0400) Subject: Start inferior before running test listing Ada exceptions. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e092da29031a5a5a74beb1d671da98d55fff6ebd;p=binutils-gdb.git 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. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e3ed8788a25..0031289bf53 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2013-11-15 Joel Brobecker + + * 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 * gdb.cp/includefile: New file. diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index 3ff51802c48..9637bce3a2e 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 b77ccbcf9b6..8325e9051fc 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}