diff options
| author | Tom Tromey <tromey@adacore.com> | 2024-09-03 12:08:43 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2024-09-06 10:31:53 -0600 |
| commit | d767b870c4f1ba74e5ba6753f1299df3edeefab2 (patch) | |
| tree | c232e260337be805e318eb460d8e35fe92b5d297 | |
| parent | a63b3b2f74e95380a718f9342ee42274dd877a3b (diff) | |
| download | binutils-d767b870c4f1ba74e5ba6753f1299df3edeefab2.zip binutils-d767b870c4f1ba74e5ba6753f1299df3edeefab2.tar.gz binutils-d767b870c4f1ba74e5ba6753f1299df3edeefab2.tar.bz2 | |
Test -fgnat-encodings=all in tagged_access.exp
While working on a longer series, I needed to make sure this
particular test kept working with -fgnat-encodings=all, so this patch
adds it to the test.
| -rw-r--r-- | gdb/testsuite/gdb.ada/tagged_access.exp | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.ada/tagged_access.exp b/gdb/testsuite/gdb.ada/tagged_access.exp index 9b4ac6c..57f7440 100644 --- a/gdb/testsuite/gdb.ada/tagged_access.exp +++ b/gdb/testsuite/gdb.ada/tagged_access.exp @@ -21,17 +21,22 @@ require gnat_runtime_has_debug_info standard_ada_testfile p -if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } { - return -1 -} +foreach_gnat_encoding scenario flags {all minimal} { + lappend flags debug + + if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" \ + executable $flags] != ""} { + return -1 + } -clean_restart ${testfile} + clean_restart ${testfile}-${scenario} -set bp_location [gdb_get_line_number "BREAK" ${testdir}/p.adb] -runto "p.adb:$bp_location" + set bp_location [gdb_get_line_number "BREAK" ${testdir}/p.adb] + runto "p.adb:$bp_location" -gdb_test "ptype c.all" \ - " = new pack\\.interactive_command with record\r\n\\s+menu_name: pack\\.string_access;\r\nend record" + gdb_test "ptype c.all" \ + " = new pack\\.interactive_command with record\r\n\\s+menu_name: pack\\.string_access;\r\nend record" -gdb_test "ptype c.menu_name" \ - " = access array \\(<>\\) of character" + gdb_test "ptype c.menu_name" \ + " = access array \\(<>\\) of character" +} |