diff options
| author | Ben Elliston <bje@gnu.org> | 2003-08-19 00:11:43 +0000 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2003-08-19 00:11:43 +0000 |
| commit | 22b23d35df2026d61cd1fdbd322e13f03d5e09da (patch) | |
| tree | cadca88120f9f904981c2670c25daa2a6d6ec7a5 /config | |
| parent | d8222ca8b95f85467601faf692ec5e391e407e1d (diff) | |
| download | dejagnu-22b23d35df2026d61cd1fdbd322e13f03d5e09da.zip dejagnu-22b23d35df2026d61cd1fdbd322e13f03d5e09da.tar.gz dejagnu-22b23d35df2026d61cd1fdbd322e13f03d5e09da.tar.bz2 | |
Re-indent with Emacs' tcl-mode.
Diffstat (limited to 'config')
| -rw-r--r-- | config/base68k.exp | 8 | ||||
| -rw-r--r-- | config/ddb-ether.exp | 4 | ||||
| -rw-r--r-- | config/gdb-comm.exp | 4 | ||||
| -rw-r--r-- | config/netware.exp | 2 | ||||
| -rw-r--r-- | config/sim.exp | 14 |
5 files changed, 16 insertions, 16 deletions
diff --git a/config/base68k.exp b/config/base68k.exp index 65db43c..fdd71d4 100644 --- a/config/base68k.exp +++ b/config/base68k.exp @@ -80,8 +80,8 @@ proc base68k_ld { dest prog } { # dbug has problems if we go into binary mode, so this allows us to # disable entry into binary mode. if ![board_info $dest exists no_binary_mode] { - remote_binary $dest - } + remote_binary $dest + } } # if we built the srecord on a remote host, copy it back here so we @@ -147,8 +147,8 @@ proc base68k_ld { dest prog } { remote_send $dest [board_info $dest download_command] if [board_info $dest exists download_response] { remote_expect $dest 5 { - [board_info $dest download_response] { } - timeout { + [board_info $dest download_response] { } + timeout { perror "Download command never responded." return "unresolved" } diff --git a/config/ddb-ether.exp b/config/ddb-ether.exp index 05912ab..526ee5c 100644 --- a/config/ddb-ether.exp +++ b/config/ddb-ether.exp @@ -92,8 +92,8 @@ proc ddb_ether_ld { dest prog } { remote_send $dest "\n" remote_expect $dest 10 { - -re ".*${shell_prompt}$" { } - default { + -re ".*${shell_prompt}$" { } + default { return "retry" } } diff --git a/config/gdb-comm.exp b/config/gdb-comm.exp index 5f28393..5bff35f 100644 --- a/config/gdb-comm.exp +++ b/config/gdb-comm.exp @@ -107,7 +107,7 @@ proc gdb_comm_file_cmd { arg } { -re "$gdb_prompt $" { perror "couldn't load $arg into $GDB." return -1 - } + } timeout { perror "couldn't load $arg into $GDB (timed out)." return -1 @@ -402,7 +402,7 @@ proc gdb_comm_load { dest prog args } { } set output "" - + # Now start up the program and look for our magic breakpoints. # And a whole lot of other magic stuff too. diff --git a/config/netware.exp b/config/netware.exp index 7fd79b5..211d9aa 100644 --- a/config/netware.exp +++ b/config/netware.exp @@ -151,7 +151,7 @@ proc ${board}_load { dest prog args } { # Wait a second for the file to "settle" on the NetWare server. # I've encountered unexplained failures without this delay. -# sleep 1 + # sleep 1 # The NetWare remote console expects to be connected to a vt100 diff --git a/config/sim.exp b/config/sim.exp index 50cc508..db935e4 100644 --- a/config/sim.exp +++ b/config/sim.exp @@ -82,13 +82,13 @@ proc sim_load { dest prog args } { set output "" - if { [board_info target sim,protocol] == "sid" } { - set cmd "-e \"set cpu-loader file [list $prog]\"" - } elseif { [board_info target sim,protocol] == "rawsid" } { - set cmd "--load=$prog" - } else { - set cmd $prog - } + if { [board_info target sim,protocol] == "sid" } { + set cmd "-e \"set cpu-loader file [list $prog]\"" + } elseif { [board_info target sim,protocol] == "rawsid" } { + set cmd "--load=$prog" + } else { + set cmd $prog + } # Run the program with a limited amount of real time. While # this isn't as nice as limiting the amount of CPU time, it |