diff options
Diffstat (limited to 'gdb/testsuite/config/sparclet-old.exp')
| -rw-r--r-- | gdb/testsuite/config/sparclet-old.exp | 463 |
1 files changed, 463 insertions, 0 deletions
diff --git a/gdb/testsuite/config/sparclet-old.exp b/gdb/testsuite/config/sparclet-old.exp new file mode 100644 index 0000000..ea97d19 --- /dev/null +++ b/gdb/testsuite/config/sparclet-old.exp @@ -0,0 +1,463 @@ +# Copyright (C) 1996 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. + +# Please email any bugs, comments, and/or additions to this file to: +# DejaGnu@cygnus.com + +# This file was written by Michael Snyder <msnyder@cygnus.com>. + +# GDB support routines for a board using the sparclet remote debugging +# protocol. + +load_lib remote.exp +load_lib gdb.exp +set prompt "\\(gdbslet\\)" + + +# +# Sparclet remote run command. +# +# This requires that we beep the user and ask him to push the board reset! +# Then we will switch to the monitor target, run the program, use 2 ^C's +# to interrupt the monitor target, and switch back to the remote target. +# Then we have to do a continue to get past the stub breakpoint. +# + +proc gdb_run_cmd {} { + global prompt + global gdb_spawn_id + + set timeout 60 + verbose "Timeout is now $timeout seconds, starting remote stub" 2 + send_user "Please reset the board now...\n" + sleep 1 + send_user "\n" + sleep 1 + send_user "\n" + sleep 1 + send_user "\n" + + # go back to monitor, run the program, interrupt it, and start remote. + + if [target_info exists gdb_protocol] { + set protocol [target_info gdb_protocol]; + } else { + set protocol "sparclet" + } + if [target_info exists serial] { + set targetname [target_info serial]; + send_gdb "target $protocol [target_info serial]\n"; + } else { + if ![target_info exists netport] { + perror "Need either netport or gdb_serial entry for [target_info name]."; + return -1; + } + set targetname [target_info netport]; + send_gdb "target $protocol udp [target_info netport]\n"; + } + + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "Remote target.*$prompt $" { } + -i $gdb_spawn_id -re ".*SPARCLET appears to be alive.*$prompt $" { + if $verbose>1 then { + send_user "Set target to $targetname\n" + } + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set SPARCLET target." + return -1 + } + } + + send_gdb "disable\n"; + expect { + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "Breakpoints disabled" 2 + } + -i $gdb_spawn_id timeout { + perror "(timeout) disabling breakpoints"; + return -1 + } + -i $gdb_spawn_id default { + perror "error disabling breakpoints"; + } + } + send_gdb "run\n"; + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "The program being debugged .*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*Starting program:.*$" { + verbose "Starting remote stub succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) starting the remote stub" ; + return -1 + } + -i $gdb_spawn_id default { + perror "error starting the remote stub"; + } + } + sleep 2; + send_gdb "" + sleep 1; + send_gdb "" + verbose "Sent ^C^C" + expect { + -i $gdb_spawn_id -re ".*Give up .and stop debugging it.*$" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "interrupting remote stub succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) interrupting the remote stub"; + return -1 + } + -i $gdb_spawn_id default { + perror "error interrupting the remote stub"; + } + } + + if [target_info exists gdb_serial] { + send_gdb "target remote [target_info gdb_serial]\n" + expect { + -i $gdb_spawn_id -re ".*Kill it?.*y or n.*" { + send_gdb "y\n"; + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "connected to stub at [target_info gdb_serial]" 2 + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set remote target." + return -1 + } + } + } + + send_gdb "enable\n"; + expect { + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "Breakpoints enabled" 2 + } + -i $gdb_spawn_id timeout { + perror "(timeout) enabling breakpoints"; + return -1 + } + -i $gdb_spawn_id default { + perror "error enabling breakpoints"; + } + } + send_gdb "continue\n"; + return +} + + +# +# gdb_load -- load a file into the GDB. +# Returns a 0 if there was an error, +# 1 if it load successfully. +# +proc gdb_load { arg } { + global verbose + global loadpath + global loadfile + global prompt + global GDB + global expect_out + global gdb_spawn_id + + set loadfile [file tail $arg] + set loadpath [file dirname $arg] + + if [target_info exists gdb_protocol] { + set protocol [target_info gdb_protocol]; + } else { + set protocol "sparclet" + } + + # get the stub-based loader for faster loading + send_gdb "file [target_info gdb_loader]\n" + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "Load new symbol table.*y or n. $" { + 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 find loader" } + -i $gdb_spawn_id timeout { + perror "(timeout) read symbol file" ; + return -1 + } + } + + if [target_info exists serial] { + set targetname [target_info serial]; + send_gdb "target $protocol [target_info serial]\n"; + } else { + if ![target_info exists netport] { + perror "Need either netport or gdb_serial entry for [target_info name]."; + return -1; + } + set targetname [target_info netport]; + send_gdb "target $protocol udp [target_info netport]\n"; + } + expect { + -i $gdb_spawn_id -re "Remote target.*$prompt $" { } + -i $gdb_spawn_id -re ".*SPARCLET appears to be alive.*$prompt $" { + if $verbose>1 then { + send_user "Set target to $targetname\n" + } + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set SPARCLET target." + return -1 + } + } + + send_gdb "run\n"; + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "The program being debugged .*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*Starting program:.*loader.*$" { + verbose "Starting loader succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) starting the loader" ; + return -1 + } + -i $gdb_spawn_id default { + perror "error starting the loader"; + } + } + sleep 2; + send_gdb "" + sleep 1; + send_gdb "" + verbose "Sent ^C^C" + expect { + -i $gdb_spawn_id -re ".*Give up .and stop debugging it.*$" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "Running loader succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) interrupting the loader" ; + return -1 + } + -i $gdb_spawn_id default { + perror "error interrupting the loader"; + } + } + + # Now ready to actually load the file: + + send_gdb "file $arg\n" + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "Load new symbol table.*y or n. $" { + 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 timeout { + perror "(timeout) read symbol file" ; + return -1 + } + } + + if [target_info exists gdb_serial] { + send_gdb "target remote [target_info gdb_serial]\n" + expect { + -i $gdb_spawn_id -re ".*Kill it?.*y or n.*" { + send_gdb "y\n"; + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "Set remote target to [target_info serial]" 2 + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set remote target." + return -1 + } + } + } + if [target_info exists gdb_load_offset] { + set offset "[target_info gdb_load_offset]"; + } else { + set offset ""; + } + send_gdb "load $arg $offset\n" + verbose "Loading $arg into $GDB" 2 + set timeout 1200 + verbose "Timeout is now $timeout seconds" 2 + expect { + -i $gdb_spawn_id -re "Loading.*$prompt $" { + verbose "Loaded $arg into $GDB" 1 + set timeout 60 + verbose "Timeout is now $timeout seconds" 2 + } + -i $gdb_spawn_id -re "$prompt $" { + if $verbose>1 then { + perror "GDB couldn't load." + } + } + -i $gdb_spawn_id timeout { + if $verbose>1 then { + perror "Timed out trying to load $arg." + } + } + } + + send_user "Please reset the board now...\n" + sleep 1 + send_user "\n" + sleep 1 + send_user "\n" + sleep 1 + send_user "\n" + + # go back to monitor, run the program, interrupt it, and start remote. + + if [target_info exists serial] { + set targetname [target_info serial]; + send_gdb "target $protocol [target_info serial]\n"; + } else { + if ![target_info exists netport] { + perror "Need either netport or gdb_serial entry for [target_info name]."; + return -1; + } + set targetname [target_info netport]; + send_gdb "target $protocol udp [target_info netport]\n"; + } + + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "Remote target.*$prompt $" { } + -i $gdb_spawn_id -re ".*SPARCLET appears to be alive.*$prompt $" { + if $verbose>1 then { + send_user "Set target to $targetname\n" + } + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set SPARCLET target." + return -1 + } + } + + send_gdb "run\n"; + expect { + -i $gdb_spawn_id -re "A program is being debug.*Kill it.*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re "The program being debugged .*y or n. $" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*Starting program:.*$" { + verbose "Starting remote stub succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) starting the remote stub" ; + return -1 + } + -i $gdb_spawn_id default { + perror "error starting the remote stub"; + } + } + sleep 2; + send_gdb "" + sleep 1; + send_gdb "" + verbose "Sent ^C^C" + expect { + -i $gdb_spawn_id -re ".*Give up .and stop debugging it.*$" { + send_gdb "y\n" + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "interrupting remote stub succeeded" + } + -i $gdb_spawn_id timeout { + perror "(timeout) interrupting the remote stub"; + return -1 + } + -i $gdb_spawn_id default { + perror "error interrupting the remote stub"; + } + } + + if [target_info exists gdb_serial] { + send_gdb "target remote [target_info gdb_serial]\n" + expect { + -i $gdb_spawn_id -re ".*Kill it?.*y or n.*" { + send_gdb "y\n"; + exp_continue + } + -i $gdb_spawn_id -re ".*$prompt $" { + verbose "connected to stub at [target_info gdb_serial]" 2 + } + -i $gdb_spawn_id timeout { + set timeout 10 + verbose "Timeout is now $timeout seconds" 2 + perror "Couldn't set remote target." + return -1 + } + } + } + return 0 +} |