diff options
author | Stan Shebs <shebs@codesourcery.com> | 1999-04-16 01:34:07 +0000 |
---|---|---|
committer | Stan Shebs <shebs@codesourcery.com> | 1999-04-16 01:34:07 +0000 |
commit | 071ea11e85eb9d529cc5eb3d35f6247466a21b99 (patch) | |
tree | 5deda65b8d7b04d1f4cbc534c3206d328e1267ec /gdb/testsuite/config/gdbserver.exp | |
parent | 1730ec6b1848f0f32154277f788fb29f88d8475b (diff) | |
download | gdb-071ea11e85eb9d529cc5eb3d35f6247466a21b99.zip gdb-071ea11e85eb9d529cc5eb3d35f6247466a21b99.tar.gz gdb-071ea11e85eb9d529cc5eb3d35f6247466a21b99.tar.bz2 |
Initial creation of sourceware repository
Diffstat (limited to 'gdb/testsuite/config/gdbserver.exp')
-rw-r--r-- | gdb/testsuite/config/gdbserver.exp | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/gdb/testsuite/config/gdbserver.exp b/gdb/testsuite/config/gdbserver.exp deleted file mode 100644 index e9e873e..0000000 --- a/gdb/testsuite/config/gdbserver.exp +++ /dev/null @@ -1,105 +0,0 @@ -# Test Framework Driver for GDB using the extended gdb remote protocol -# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -# -# For this to function correctly, you need to set a number of variables -# in your gdb/site.exp file -# -# set noargs 1 -- we can't pass arguments (yet) -# set noinferiorio 1 -- we can't get io to/from the inferior -# set targethost <host> -- name of the remote system (runs gdbserver) -# set debughost <host> -- name of the system running gdb -# set port <number> -- starting port number for communication -# set gdbserver <path> -- path (on the remote side) to find -# gdbserver -# set rsh <path> -- path (on debughost side) to rsh -# set rcp <path> -- path (on debughost side) to rcp -# -# You will need to be able to spawn processes from gdbhost to run on -# targethost via rsh (this is how we start gdbserver); similarly -# you need to be able to rcp files from gdbhost to targethost. -# -# We don't do much error checking, if something goes wrong, you'll probably -# just get a tcl error and everything will die. FIXME -# - -# Load the basic gdb testing library -load_lib gdb.exp -load_lib monitor.exp - -# -# gdb_load -- load a file into the debugger. -# return a -1 if anything goes wrong. -# -# Loading a file in the gdbsrever framework is a little strange in that -# we also create the inferior (which is stopped at the first instruction -# in the program when we get control). -# -proc gdb_load { arg } { - global verbose - global loadpath - global loadfile - global GDB - global prompt - global debughost - global port - - # first load the file into gdb - if [gdb_file_cmd $arg] then { return -1 } - - # bump the port number to avoid conflicts with hung ports - set targethost [target_info gdb_server_host]; - set debughost [target_info gdb_debug_host]; - if [target_info exists gdb_server_prog] { - set gdbserver [target_info gdb_server_prog]; - } else { - set gdbserver "gdbserver"; - } - incr port - set serialport $targethost:$port - - # Copy the file down to the remote host. - set file [remote_download host $arg]; - - # now start gdbserver on the remote side - remote_spawn host "$gdbserver $debughost:$port $file >& /dev/null < /dev/null" - - # give it plenty of time to get going (lynx) - sleep 30 - - # tell gdb we are remote debugging - gdb_target_monitor - - return 1 -} - -# -# gdb_start -- start GDB running. -# -proc gdb_start { } { - global prompt - - # do the usual stuff - catch default_gdb_start - - # FIXME: This shouldn't be necessary, but lots of PA tests fail - # without it. - send "set remotecache 0\n" - expect { - -re "set remotecache 0\[\r\n\]+.*$prompt $" {} - default { fail "gdb_start"} - } -} |