719 |
# No intention is made (at this point) to preserve upward compatibility |
# No intention is made (at this point) to preserve upward compatibility |
720 |
# (though at some point we'll have to). |
# (though at some point we'll have to). |
721 |
|
|
722 |
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}"] |
723 |
|
|
724 |
set comp_output [lindex $results 0]; |
set comp_output [lindex $results 0] |
725 |
set output_file [lindex $results 1]; |
set output_file [lindex $results 1] |
726 |
|
|
727 |
#send_user "\nold_dejagnu.exp: comp_output1 = :$comp_output:\n\n" |
#send_user "\nold_dejagnu.exp: comp_output1 = :$comp_output:\n\n" |
728 |
#send_user "\nold_dejagnu.exp: message = :$message:\n\n" |
#send_user "\nold_dejagnu.exp: message = :$message:\n\n" |
836 |
} else { |
} else { |
837 |
set status -1 |
set status -1 |
838 |
set result [${tool}_load $output_file] |
set result [${tool}_load $output_file] |
839 |
set status [lindex $result 0]; |
set status [lindex $result 0] |
840 |
set output [lindex $result 1]; |
set output [lindex $result 1] |
841 |
#send_user "After exec, status: $status\n" |
#send_user "After exec, status: $status\n" |
842 |
if { [lindex ${dg-do-what} 2] == "F" } { |
if { [lindex ${dg-do-what} 2] == "F" } { |
843 |
setup_xfail "*-*-*" |
setup_xfail "*-*-*" |