diff options
Diffstat (limited to 'gdb/testsuite/config/est.exp')
-rw-r--r-- | gdb/testsuite/config/est.exp | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/gdb/testsuite/config/est.exp b/gdb/testsuite/config/est.exp deleted file mode 100644 index 4164daf..0000000 --- a/gdb/testsuite/config/est.exp +++ /dev/null @@ -1,105 +0,0 @@ -# Test Framework Driver for GDB driving the EST -# Copyright 1995 Free Software Foundation, Inc. -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ - -load_lib gdb.exp - -# -# gdb_version -- extract and print the version number of gdb -# -proc gdb_version {} { - default_gdb_version -} - -# -# gdb_target_est -# Set gdb to target the monitor -# -proc gdb_target_est { } { - global prompt - global exit_status - global targetname - global serialport - global baud - - send "target $targetname $serialport\n" - set timeout 60 - expect { - -re "Remote target est connected to.*$prompt $" { - verbose "Set target to est" - } - timeout { - perror "Couldn't set target for est." - cleanup - exit $exit_status - } - } - set timeout 10 -} - -# -# gdb_load -- load a file into the debugger. -# return a -1 if anything goes wrong. -# -proc gdb_load { arg } { - global verbose - global loadpath - global loadfile - global GDB - global prompt - - if [gdb_file_cmd $arg] then { return -1 } - - gdb_target_est - - send "load\n" - set timeout 2400 - expect { - -re ".*$prompt $" { - if $verbose>1 then { - send_user "Loaded $arg into $GDB\n" - } - set timeout 30 - return 1 - } - -re "$prompt $" { - if $verbose>1 then { - perror "GDB couldn't load." - } - } - timeout { - if $verbose>1 then { - perror "Timed out trying to load $arg." - } - } - } -} - -# -# gdb_start -- start GDB running. -# -proc gdb_start { } { - default_gdb_start -} - -# -# gdb_exit -- exit gdb -# -proc gdb_exit { } { - catch default_gdb_exit -} - -gdb_start |