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

Diff of /dejagnu/lib/standard.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 24  Line 24 
24    
25  proc ${tool}_load { program args } {  proc ${tool}_load { program args } {
26      if { [llength $args] > 0 } {      if { [llength $args] > 0 } {
27          set program_args [lindex $args 0];          set program_args [lindex $args 0]
28      } else {      } else {
29          set program_args ""          set program_args ""
30      }      }
31    
32      if { [llength $args] > 1 } {      if { [llength $args] > 1 } {
33          set input_file [lindex $args 1];          set input_file [lindex $args 1]
34      } else {      } else {
35          set input_file "";          set input_file ""
36      }      }
37      return [remote_load target $program $program_args $input_file];      return [remote_load target $program $program_args $input_file]
38  }  }
39    
40  proc ${tool}_compile { srcfile destfile compile_type options } {  proc ${tool}_compile { srcfile destfile compile_type options } {

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