diff options
author | Ben Elliston <bje@gnu.org> | 2003-08-07 03:58:36 +0000 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2003-08-07 03:58:36 +0000 |
commit | 360dd4f6262ca54ea33bf745ff5559a913748a46 (patch) | |
tree | c02ce8fa5d6c1fa19a2d089b4465d195ee058133 /lib | |
parent | d7b7156075df25716082174f6baf2ac0e163e939 (diff) | |
download | dejagnu-360dd4f6262ca54ea33bf745ff5559a913748a46.zip dejagnu-360dd4f6262ca54ea33bf745ff5559a913748a46.tar.gz dejagnu-360dd4f6262ca54ea33bf745ff5559a913748a46.tar.bz2 |
* Remove surplus semicolons in `for' commands.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/ftp.exp | 2 | ||||
-rw-r--r-- | lib/kermit.exp | 4 | ||||
-rw-r--r-- | lib/remote.exp | 4 | ||||
-rw-r--r-- | lib/rlogin.exp | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/lib/ftp.exp b/lib/ftp.exp index 9259a67..c3df24d 100644 --- a/lib/ftp.exp +++ b/lib/ftp.exp @@ -145,7 +145,7 @@ proc ftp_upload { host remotefile localfile } { set loop 0 set remotefile "" } - -i $spawn_id -re "(^|\[\r\n\])226.*$prompt" { set loop 0; } + -i $spawn_id -re "(^|\[\r\n\])226.*$prompt" { set loop 0 } -i $spawn_id -re "(^|\[\r\n\])\[0-9\]\[0-9\]\[0-9\].*$prompt" { set loop 0 set remotefile "" diff --git a/lib/kermit.exp b/lib/kermit.exp index 0d46bb8..ed31f40 100644 --- a/lib/kermit.exp +++ b/lib/kermit.exp @@ -116,10 +116,10 @@ proc kermit_command { dest args } { # Sometimes we have to send multiple ^\c sequences. Don't know # why. set timeout 2 - for { set i 1; } {$i<=5} {incr i} { + for { set i 1 } { $i <= 5 } { incr i } { send -i $shell_id "c" expect { - -i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10;} + -i $shell_id -re ".*Back at.*ermit.*>.*$" { set i 10 } -i $shell_id timeout { if { $i > 2 } { warning "Unable to get prompt from kermit." diff --git a/lib/remote.exp b/lib/remote.exp index 6c11554..0b3748e 100644 --- a/lib/remote.exp +++ b/lib/remote.exp @@ -895,7 +895,7 @@ proc remote_load { dest prog args } { if { [board_info $dest exists is_simulator] || [getenv REMOTELOAD_CACHE] == "" } { set empty 0 } else { - for { set x 0; } {$x < [llength $args] } {incr x} { + for { set x 0 } {$x < [llength $args] } {incr x} { if { [lindex $args $x] != "" } { set empty 0 break @@ -1197,7 +1197,7 @@ proc remote_expect { board timeout args } { set spawn_id 1000 } - for { set i 0; } { $i < [llength $args] } { incr i ; } { + for { set i 0 } { $i < [llength $args] } { incr i } { if { $need_append } { append res "\n-i $spawn_id " set need_append 0 diff --git a/lib/rlogin.exp b/lib/rlogin.exp index 8fe32a5..ec915e4 100644 --- a/lib/rlogin.exp +++ b/lib/rlogin.exp @@ -142,7 +142,7 @@ proc rlogin_spawn { dest cmdline } { } set prefix "" set ok 0 - for {set i 0;} {$i <= 2 && ! $ok} {incr i;} { + for { set i 0 } {$i <= 2 && ! $ok} { incr i } { set shell_id [remote_open $dest] if { $shell_id != "" && $shell_id > 0 } { remote_send $dest "echo k\r" |