gdb/testsuite/

	* gdb.ada/null_array.exp (print my_table): Call get_compiler_info and
	check test_compiler_info.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index cc60e462090a17e8a5041ee09a182d4d6f881b68..914d0449dab4f3802536badb378d6fb2e158f207 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-04  Jan Kratochvil  <jan.kratochvil@redhat.com>
+           Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/null_array.exp (print my_table): Call get_compiler_info and
+       check test_compiler_info.
+
 2010-11-03  Ken Werner  <ken.werner@de.ibm.com>
 
        * gdb.base/gnu_vector.exp: Adjust expect messages.

diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp
index 45bc9679a261a64420a673976b11585d3787da2d..4d46b4ce0186da234e4c0b99e984c63e0befb3f1 100644 (file)
--- a/gdb/testsuite/gdb.ada/null_array.exp
+++ b/gdb/testsuite/gdb.ada/null_array.exp
@@ -37,6 +37,15 @@ gdb_load ${binfile}
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
+if [get_compiler_info ${binfile}] {
+    return -1;
+}
+
+if {[test_compiler_info {gcc-[0-3]-*}]
+    || [test_compiler_info {gcc-4-[0-4]-*}]} {
+    # Ada array bounds are missing in older GCCs.
+    setup_xfail *-*-* 
+}
 gdb_test "print my_table" \
          "= \\(\\)" \
          "print my_table"