[gdb/testsuite] Fix gnatmake_version_at_least

[thirdparty/binutils-gdb.git] / gdb / testsuite / lib / ada.exp

diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp
index f8a6a723bb01ffe009b8f483a77f7836ca63e5e5..726977d98f1ddf9720f0b9f49c88d442f256f135 100644 (file)
--- a/gdb/testsuite/lib/ada.exp
+++ b/gdb/testsuite/lib/ada.exp
@@ -136,7 +136,9 @@ proc find_ada_tool {tool} {
 proc gnatmake_version_at_least { major } {
     set gnatmake [gdb_find_gnatmake]
     set gnatmake [lindex [split $gnatmake] 0]
-    set output [exec $gnatmake --version]
+    if {[catch {exec $gnatmake --version} output]} {
+       return 0
+    }
     if { [regexp {GNATMAKE ([^ .]+).([^ .]+).([^ .]+)} $output \
              match gnatmake_major gnatmake_minor gnatmake_micro] } {
        if { $gnatmake_major >= $major } {