aboutsummaryrefslogtreecommitdiff
path: root/lib/dg.exp
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2016-03-20 17:45:48 +1100
committerBen Elliston <bje@gnu.org>2016-03-20 17:45:48 +1100
commite7aa8a8f3878be1a1f5bbe2dba475beffba2e2e3 (patch)
tree9fbd11149d8d0c7387c512d8f16d4159ff790df3 /lib/dg.exp
parentadcd347865b0437f6471550419bb08cb234f5be2 (diff)
downloaddejagnu-e7aa8a8f3878be1a1f5bbe2dba475beffba2e2e3.zip
dejagnu-e7aa8a8f3878be1a1f5bbe2dba475beffba2e2e3.tar.gz
dejagnu-e7aa8a8f3878be1a1f5bbe2dba475beffba2e2e3.tar.bz2
* lib/dg.exp: Remove commented-out calls to send_user.
Diffstat (limited to 'lib/dg.exp')
-rw-r--r--lib/dg.exp13
1 files changed, 0 insertions, 13 deletions
diff --git a/lib/dg.exp b/lib/dg.exp
index 85c5d3f..a491473 100644
--- a/lib/dg.exp
+++ b/lib/dg.exp
@@ -189,16 +189,12 @@ proc dg-get-options { prog } {
set tmp [grep $prog "{\[ \t\]\+dg-\[-a-z\]\+\[ \t\]\+.*\[ \t\]\+}" line]
if {![string match "" $tmp]} {
foreach i $tmp {
- #send_user "Found: $i\n"
# FIXME: When to use "+" and "\+" isn't clear.
# Seems to me it took awhile to get this to work.
regexp "(\[0-9\]\+)\[ \t\]\+{\[ \t\]+(dg-\[-a-z\]+)\[ \t\]\+(.*)\[ \t\]+}\[^\}\]*(\n|$)" $i i line cmd args
- #send_user "Found: $cmd $line $args\n"
append result " { $cmd $line $args }"
}
}
-
- #send_user "Returning: $result\n"
return $result
}
@@ -218,8 +214,6 @@ proc dg-process-target { selector } {
set isnative [isnative]
set triplet_match 0
- #send_user "dg-process-target: $selector\n"
-
set selector [string trim $selector]
if {[regexp "^xfail " $selector]} {
set what xfail
@@ -545,7 +539,6 @@ proc dg-final { args } {
return
}
- #send_user "dg-final: $args\n"
append final-code "[lindex $args 1]\n"
}
@@ -724,7 +717,6 @@ proc dg-test { args } {
set line [lindex $i 0]
set pattern [lindex $i 2]
set comment [lindex $i 3]
- #send_user "Before:\n$comp_output\n"
if {[regsub -all "(^|\n)(\[^\n\]+$line\[^\n\]*($pattern)\[^\n\]*\n?)+" $comp_output "\n" comp_output]} {
set comp_output [string trimleft $comp_output]
set ok pass
@@ -733,7 +725,6 @@ proc dg-test { args } {
set ok fail
set uhoh pass
}
- #send_user "After:\n$comp_output\n"
# $line will either be a formatted line number or a number all by
# itself. Delete the formatting.
@@ -769,7 +760,6 @@ proc dg-test { args } {
}
# Remove messages from the tool that we can ignore.
- #send_user "comp_output: $comp_output\n"
set comp_output [prune_warnings $comp_output]
if { [info proc ${tool}-dg-prune] != "" } {
@@ -796,7 +786,6 @@ proc dg-test { args } {
# See if someone forgot to delete the extra lines.
regsub -all "\n+" $comp_output "\n" comp_output
regsub "^\n+" $comp_output "" comp_output
- #send_user "comp_output: $comp_output\n"
# Don't do this if we're testing an interpreter.
# FIXME: why?
@@ -824,7 +813,6 @@ proc dg-test { args } {
set result [${tool}_load $output_file]
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 "*-*-*"
}
@@ -832,7 +820,6 @@ proc dg-test { args } {
pass "$name execution test"
verbose "Exec succeeded." 3
if { [llength ${dg-output-text}] > 1 } {
- #send_user "${dg-output-text}\n"
if { [lindex ${dg-output-text} 0] == "F" } {
setup_xfail "*-*-*"
}