/[dejagnu]/dejagnu/lib/dg.exp
ViewVC logotype

Diff of /dejagnu/lib/dg.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by rsavoye, Mon Mar 17 02:25:07 2003 UTC revision 1.5 by bje, Thu Aug 7 03:42:43 2003 UTC
# Line 719  proc dg-test { args } { Line 719  proc dg-test { args } {
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"
# Line 836  proc dg-test { args } { Line 836  proc dg-test { args } {
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 "*-*-*"

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26