From: Jan Kratochvil <jan.kratochvil@redhat.com>
Date: Thu, 4 Nov 2010 18:52:11 +0000 (+0000)
Subject: gdb/testsuite/
X-Git-Tag: binutils-2_21-branchpoint~16
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=03eb1c79d47c095c3777ad8c382723b3b720b733;p=thirdparty%2Fbinutils-gdb.git

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 cc60e462090..914d0449dab 100644
--- 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 45bc9679a26..4d46b4ce018 100644
--- 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"