[testsuite/guality] Fix tcl error on gdb -v failure

2018-06-25  Tom de Vries  <tdevries@suse.de>

	* lib/gcc-gdb-test.exp (report_gdb): Handle gdb -v failure.

From-SVN: r262021

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0d3cb5fee7aa64a682ce460100254f54af8662d1..f9912f06452048b8651790696fb964fe620ee669 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-06-25  Tom de Vries  <tdevries@suse.de>
+
+       * lib/gcc-gdb-test.exp (report_gdb): Handle gdb -v failure.
+
 2018-06-25  Jakub Jelinek  <jakub@redhat.com>
 
        PR target/84786

diff --git a/gcc/testsuite/lib/gcc-gdb-test.exp b/gcc/testsuite/lib/gcc-gdb-test.exp
index 9aff6218300682d203a589f3cffec3ee45191735..2ef9ca15c12fceb35384dc4aed88e433cc39769e 100644 (file)
--- a/gcc/testsuite/lib/gcc-gdb-test.exp
+++ b/gcc/testsuite/lib/gcc-gdb-test.exp
@@ -151,6 +151,12 @@ proc report_gdb { gdb loc } {
     }
     set gdb [exec which $gdb]
     send_log "gdb used in $loc: $gdb\n"
-    set gdb_version [exec $gdb -v]
-    send_log "gdb used in $loc: version:\n---\n$gdb_version\n---\n"
+
+    send_log "gdb used in $loc: "
+    if { [catch { exec $gdb -v } gdb_version] } {
+       send_log "getting version failed:\n"
+    } else {
+       send_log "version:\n"
+    }
+    send_log -- "---\n$gdb_version\n---\n"
 }