diff options
| author | Ben Elliston <bje@gnu.org> | 2003-08-07 03:42:42 +0000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2003-08-07 03:42:42 +0000 |
| commit | d7b7156075df25716082174f6baf2ac0e163e939 (patch) | |
| tree | e2c4f9afdb89cf1e6f082acf7c1a0aae0fd423a8 /lib/dg.exp | |
| parent | 8f0d1b58dbfb8b4e7ad5c14f21d65da05a364200 (diff) | |
| download | dejagnu-d7b7156075df25716082174f6baf2ac0e163e939.zip dejagnu-d7b7156075df25716082174f6baf2ac0e163e939.tar.gz dejagnu-d7b7156075df25716082174f6baf2ac0e163e939.tar.bz2 | |
Strip trailing semicolons from Tcl source files.
Diffstat (limited to 'lib/dg.exp')
| -rw-r--r-- | lib/dg.exp | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -719,10 +719,10 @@ proc dg-test { args } { # No intention is made (at this point) to preserve upward compatibility # (though at some point we'll have to). - set results [${tool}-dg-test $prog [lindex ${dg-do-what} 0] "$tool_flags ${dg-extra-tool-flags}"]; + set results [${tool}-dg-test $prog [lindex ${dg-do-what} 0] "$tool_flags ${dg-extra-tool-flags}"] - set comp_output [lindex $results 0]; - set output_file [lindex $results 1]; + set comp_output [lindex $results 0] + set output_file [lindex $results 1] #send_user "\nold_dejagnu.exp: comp_output1 = :$comp_output:\n\n" #send_user "\nold_dejagnu.exp: message = :$message:\n\n" @@ -836,8 +836,8 @@ proc dg-test { args } { } else { set status -1 set result [${tool}_load $output_file] - set status [lindex $result 0]; - set output [lindex $result 1]; + set status [lindex $result 0] + set output [lindex $result 1] #send_user "After exec, status: $status\n" if { [lindex ${dg-do-what} 2] == "F" } { setup_xfail "*-*-*" |