[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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/lib/gcc-dg.exp

@@ -123,14 +123,11 @@ 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 } {
+    switch $directive {
+	gdb-test {
 	    set code [linsert $code 1 $line]
 	}
+    }
     append final-code "$code\n"
 }