diff options
| author | Bob Manson <manson@cygnus> | 1997-02-02 07:59:25 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-02-02 07:59:25 +0000 |
| commit | 85fbaa747f9edd4184cce516c8804bb4553e08f7 (patch) | |
| tree | 3011762b44f70c7e2abfd700004d1d0652c831a9 /gdb/testsuite/config/slite.exp | |
| parent | e385d6e03e0733be01c51d24588b981c9e928d6c (diff) | |
| download | gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.zip gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.tar.gz gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.tar.bz2 | |
* gdb.*/*.exp: Replace $prompt with $gdb_prompt.
* gdb.base/scope.exp: Use gdb_test.
* gdb.c++/classes.exp: Ditto.
* gdb.c++/inherit.exp: Ditto.
More random cleanups. Still lots to go, however.
Diffstat (limited to 'gdb/testsuite/config/slite.exp')
| -rw-r--r-- | gdb/testsuite/config/slite.exp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gdb/testsuite/config/slite.exp b/gdb/testsuite/config/slite.exp index 771a9e1..5a393ca 100644 --- a/gdb/testsuite/config/slite.exp +++ b/gdb/testsuite/config/slite.exp @@ -32,7 +32,7 @@ load_lib remote.exp load_lib gdb.exp -set prompt "\\(gdb\\)" +set gdb_prompt "\\(gdb\\)" # # gdb_load -- load a file into the GDB. @@ -43,7 +43,7 @@ proc gdb_load { arg } { global verbose global loadpath global loadfile - global prompt + global gdb_prompt global GDB global expect_out global gdb_spawn_id @@ -61,8 +61,8 @@ proc gdb_load { arg } { send_gdb "y\n" exp_continue } - -i $gdb_spawn_id -re "Reading symbols from.*done..*$prompt $" {} - -i $gdb_spawn_id -re "$prompt $" { perror "GDB couldn't read file" } + -i $gdb_spawn_id -re "Reading symbols from.*done..*$gdb_prompt $" {} + -i $gdb_spawn_id -re "$gdb_prompt $" { perror "GDB couldn't read file" } -i $gdb_spawn_id timeout { perror "(timeout) read symbol file" ; return -1 } } @@ -86,8 +86,8 @@ proc gdb_load { arg } { set timeout 60 verbose "Timeout is now $timeout seconds" 2 expect { - -i $gdb_spawn_id -re "Remote target.*$prompt $" { } - -i $gdb_spawn_id -re ".*SPARClite appears to be alive.*$prompt $" { + -i $gdb_spawn_id -re "Remote target.*$gdb_prompt $" { } + -i $gdb_spawn_id -re ".*SPARClite appears to be alive.*$gdb_prompt $" { if $verbose>1 then { send_user "Set target to $targetname\n" } @@ -111,12 +111,12 @@ proc gdb_load { arg } { set timeout 2400 verbose "Timeout is now $timeout seconds" 2 expect { - -i $gdb_spawn_id -re "Loading.*$prompt $" { + -i $gdb_spawn_id -re "Loading.*$gdb_prompt $" { verbose "Loaded $arg into $GDB" 1 set timeout 30 verbose "Timeout is now $timeout seconds" 2 } - -i $gdb_spawn_id -re "$prompt $" { + -i $gdb_spawn_id -re "$gdb_prompt $" { if $verbose>1 then { perror "GDB couldn't load." } @@ -134,7 +134,7 @@ proc gdb_load { arg } { sleep 2; send_gdb ""; expect { - -i $gdb_spawn_id -re ".*$prompt $" { verbose "Run command succeded" } + -i $gdb_spawn_id -re ".*$gdb_prompt $" { verbose "Run command succeded" } -i $gdb_spawn_id default { perror "error sending monitor run command"; } @@ -153,7 +153,7 @@ proc gdb_load { arg } { send_gdb "y\n"; exp_continue } - -i $gdb_spawn_id -re ".*$prompt $" { + -i $gdb_spawn_id -re ".*$gdb_prompt $" { verbose "Set remote target to [target_info serial]" 2 } -i $gdb_spawn_id timeout { |