Fix GNAT version check in gdb.ada

Commit 1411185a ("Introduce and use gnat_version_compare") changed the
Ada tests to use a new proc for version checking.  Unfortunately this
patch inadvertently reversed the sense of the test in
packed_array_assign.exp.

After fixing this, I went through that patch again and looked for
other problems.  I found one spot where the wrong syntax was used, and
some others where I believe the sense of the test was inverted.

Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=32444
Approved-By: Andrew Burgess <aburgess@redhat.com>

diff --git a/gdb/testsuite/gdb.ada/null_array.exp b/gdb/testsuite/gdb.ada/null_array.exp
index 7fa7c19fcb9873dfd207dead89119142a772deed..b4e218f0f0f006e40c582b28df19dc2f335cca1a 100644 (file)
--- a/gdb/testsuite/gdb.ada/null_array.exp
+++ b/gdb/testsuite/gdb.ada/null_array.exp
@@ -28,7 +28,7 @@ clean_restart ${testfile}
 set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
 runto "foo.adb:$bp_location"
 
-if {[gnat_version_compare <= 4.4]} {
+if {[gnat_version_compare <= {4 4}]} {
     # Ada array bounds are missing in older GCCs.
     setup_xfail *-*-* 
 }

diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp
index 47e48f96dcd0a61e5a40823c93561edb46ea18f3..0b7d106f57eb3dace6a3e907afa3fbb51f30e624 100644 (file)
--- a/gdb/testsuite/gdb.ada/packed_array_assign.exp
+++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp
@@ -54,7 +54,7 @@ set re \
         "packed_array_assign_y => 1\\)\\)"]
 
 # GNAT >= 12.0 has the needed fix here.
-set zeros_expected [gnat_version_compare >= 12]
+set zeros_expected [gnat_version_compare < 12]
 set all_zeros \
     [string_to_regexp "((packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0), (packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0), (packed_array_assign_w => 0, packed_array_assign_x => 0, packed_array_assign_y => 0))"]
 

diff --git a/gdb/testsuite/gdb.ada/packed_record.exp b/gdb/testsuite/gdb.ada/packed_record.exp
index f347953084166f234e93d51e8072b7a7379fce1b..043c94093de8d15447fe7d94f8a3f18988521bcc 100644 (file)
--- a/gdb/testsuite/gdb.ada/packed_record.exp
+++ b/gdb/testsuite/gdb.ada/packed_record.exp
@@ -38,7 +38,7 @@ foreach_gnat_encoding scenario flags {all minimal} {
        }
        -re " = .*more than max-value-size.*\[\r\n\]+$gdb_prompt $" {
            # GNAT >= 12.0 has the needed fix here.
-           if {$scenario == "minimal" && [gnat_version_compare >= 12]} {
+           if {$scenario == "minimal" && [gnat_version_compare < 12]} {
                setup_kfail "minimal encodings" *-*-*
            }
            fail $test

diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
index 22b67ccf2e037442ade8b483e037251c8cc3abf3..f193459b3358306521eb0365ce0ee13542c597df 100644 (file)
--- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
+++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
@@ -41,7 +41,7 @@ foreach_gnat_encoding scenario flags {all minimal} {
        }
        -re " = \\(size => 8, length => 8, buffer => warning: could not find bounds information on packed array.*$gdb_prompt $" {
            # GNAT >= 11.0 has the needed fix here.
-           if {$scenario == "minimal" && [gnat_version_compare >= 11]} {
+           if {$scenario == "minimal" && [gnat_version_compare < 11]} {
                setup_kfail "minimal encodings" *-*-*
            }
            fail $test
@@ -62,7 +62,7 @@ foreach_gnat_encoding scenario flags {all minimal} {
        }
        -re " = \\(size => 8, length => 8, buffer => warning: could not find bounds information on packed array.*$gdb_prompt $" {
            # GNAT >= 11.0 has the needed fix here.
-           if {$scenario == "minimal" && [gnat_version_compare >= 11]} {
+           if {$scenario == "minimal" && [gnat_version_compare < 11]} {
                setup_kfail "minimal encodings" *-*-*
            }
            fail $test