diff options
author | Ben Elliston <bje@gnu.org> | 2016-03-13 15:42:28 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2016-03-13 15:42:28 +1100 |
commit | 50b1f0a40812dcf61bc2405e0d3e4305fae274f6 (patch) | |
tree | 188fd6dfb6e6a0736ddca115f42ae176c1ee6451 /lib/dg.exp | |
parent | 2c352b2731a9eaa106cd8719a5be35c99b84ac28 (diff) | |
download | dejagnu-50b1f0a40812dcf61bc2405e0d3e4305fae274f6.zip dejagnu-50b1f0a40812dcf61bc2405e0d3e4305fae274f6.tar.gz dejagnu-50b1f0a40812dcf61bc2405e0d3e4305fae274f6.tar.bz2 |
* lib/dg.exp (dg-process-target): Remove old commented code.
* lib/dg.exp (dg-test): Likewise.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r-- | lib/dg.exp | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -231,11 +231,8 @@ proc dg-process-target { selector } { error "syntax error in target selector \"$selector\"" } - # ??? This should work but it doesn't. tcl bug? - #if [regexp "^${what}(( \[^ \]+-\[^ \]+-\[^ \]+)|( native))+$" $selector tmp selector] if {[regexp "^${what}( \[^ \]+-\[^ \]+-\[^ \]+| native)+$" $selector]} { regsub "^${what} " $selector "" selector - #send_user "selector: $selector\n" foreach triplet $selector { if {[string match $triplet $target_triplet]} { set triplet_match 1 @@ -721,10 +718,6 @@ proc dg-test { args } { 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" - #send_user "\nold_dejagnu.exp: message length = [llength $message]\n\n" - foreach i ${dg-messages} { verbose "Scanning for message: $i" 4 @@ -775,9 +768,7 @@ proc dg-test { args } { "EXEC" { } "XEXEC" { } } - #send_user "\nold_dejagnu.exp: comp_output2= :$comp_output:\n\n" } - #send_user "\nold_dejagnu.exp: comp_output3 = :$comp_output:\n\n" # Remove messages from the tool that we can ignore. #send_user "comp_output: $comp_output\n" |