diff options
| author | Tom de Vries <tdevries@suse.de> | 2018-06-22 19:50:03 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2018-06-22 19:50:03 +0000 |
| commit | be56f2c4730a3d28389f7ff757fb3b7137bd2e57 (patch) | |
| tree | 155cabf97385857e2b89f405cb8ce01791c3ce0c | |
| parent | 7017d4a2d1011bf37ddc0a9fae216a96a4fa3c4c (diff) | |
| download | gcc-be56f2c4730a3d28389f7ff757fb3b7137bd2e57.zip gcc-be56f2c4730a3d28389f7ff757fb3b7137bd2e57.tar.gz gcc-be56f2c4730a3d28389f7ff757fb3b7137bd2e57.tar.bz2 | |
[testsuite/guality] Be verbose about gdb version used
2018-06-22 Tom de Vries <tdevries@suse.de>
* lib/gcc-gdb-test.exp (report_gdb): New proc.
* g++.dg/guality/guality.exp: Use report_gdb.
* gcc.dg/guality/guality.exp: Same.
* gfortran.dg/guality/guality.exp: Same.
From-SVN: r261911
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g++.dg/guality/guality.exp | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.dg/guality/guality.exp | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/guality/guality.exp | 1 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gcc-gdb-test.exp | 10 |
5 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d86ac84..320fdac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2018-06-22 Tom de Vries <tdevries@suse.de> + + * lib/gcc-gdb-test.exp (report_gdb): New proc. + * g++.dg/guality/guality.exp: Use report_gdb. + * gcc.dg/guality/guality.exp: Same. + * gfortran.dg/guality/guality.exp: Same. + 2018-06-22 Jakub Jelinek <jakub@redhat.com> PR c++/85662 diff --git a/gcc/testsuite/g++.dg/guality/guality.exp b/gcc/testsuite/g++.dg/guality/guality.exp index 5bffd9d..72f23c8 100644 --- a/gcc/testsuite/g++.dg/guality/guality.exp +++ b/gcc/testsuite/g++.dg/guality/guality.exp @@ -43,6 +43,7 @@ if ![info exists ::env(GUALITY_GDB_NAME)] { } setenv GUALITY_GDB_NAME "$guality_gdb_name" } +report_gdb [exec which $::env(GUALITY_GDB_NAME)] [info script] if {[check_guality " #include \"$srcdir/$subdir/guality.h\" diff --git a/gcc/testsuite/gcc.dg/guality/guality.exp b/gcc/testsuite/gcc.dg/guality/guality.exp index d2b8633..7eebd27 100644 --- a/gcc/testsuite/gcc.dg/guality/guality.exp +++ b/gcc/testsuite/gcc.dg/guality/guality.exp @@ -43,6 +43,7 @@ if ![info exists ::env(GUALITY_GDB_NAME)] { } setenv GUALITY_GDB_NAME "$guality_gdb_name" } +report_gdb [exec which $::env(GUALITY_GDB_NAME)] [info script] if {[check_guality " #include \"$srcdir/$subdir/guality.h\" diff --git a/gcc/testsuite/gfortran.dg/guality/guality.exp b/gcc/testsuite/gfortran.dg/guality/guality.exp index 3f96a04..62875fd 100644 --- a/gcc/testsuite/gfortran.dg/guality/guality.exp +++ b/gcc/testsuite/gfortran.dg/guality/guality.exp @@ -24,6 +24,7 @@ if ![info exists ::env(GUALITY_GDB_NAME)] { } setenv GUALITY_GDB_NAME "$guality_gdb_name" } +report_gdb [exec which $::env(GUALITY_GDB_NAME)] [info script] gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] "" "" diff --git a/gcc/testsuite/lib/gcc-gdb-test.exp b/gcc/testsuite/lib/gcc-gdb-test.exp index 0c4d2a5..f372663 100644 --- a/gcc/testsuite/lib/gcc-gdb-test.exp +++ b/gcc/testsuite/lib/gcc-gdb-test.exp @@ -139,3 +139,13 @@ proc gdb-test { args } { file delete $cmd_file return } + +# Report the gdb path and version log the .log file +# Argument 0 is the gdb path +# Argument 1 is the location where gdb is used +# +proc report_gdb { gdb loc } { + 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" +} |