diff options
| author | Tom de Vries <tdevries@suse.de> | 2018-07-05 08:19:15 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2018-07-05 08:19:15 +0000 |
| commit | ab7f778cee91ecb52fa9cd4594efaca8db8a8951 (patch) | |
| tree | fd7f280431b898be444e003a4e67656d4fe8e912 | |
| parent | d3fc820eb9652858c2cc56db2704f1b0276b8df7 (diff) | |
| download | gcc-ab7f778cee91ecb52fa9cd4594efaca8db8a8951.zip gcc-ab7f778cee91ecb52fa9cd4594efaca8db8a8951.tar.gz gcc-ab7f778cee91ecb52fa9cd4594efaca8db8a8951.tar.bz2 | |
[testsuite] Simplify dg-final
2018-07-05 Tom de Vries <tdevries@suse.de>
* lib/gcc-dg.exp (dg-final): Simplify tcl code.
From-SVN: r262431
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 11 |
2 files changed, 8 insertions, 7 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 61fdea9..d685d81 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2018-07-05 Tom de Vries <tdevries@suse.de> + + * lib/gcc-dg.exp (dg-final): Simplify tcl code. + 2018-07-04 Martin Sebor <msebor@redhat.com> PR tree-optimization/86274 diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 9e0b3f4..f5e6bef 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -123,13 +123,10 @@ proc dg-final { args } { set line [lindex $args 0] set code [lindex $args 1] set directive [lindex $code 0] - set withline \ - [switch $directive { - gdb-test {expr {1}} - default {expr {0}} - }] - if { $withline == 1 } { - set code [linsert $code 1 $line] + switch $directive { + gdb-test { + set code [linsert $code 1 $line] + } } append final-code "$code\n" } |