old-cross-binutils/gdb/testsuite/config/vx-gdb.exp
1993-08-30 23:28:57 +00:00

255 lines
6 KiB
Text

# Copyright (C) 1988, 1990, 1991, 1992 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. */
# Please email any bugs, comments, and/or additions to this file to:
# DejaGnu@cygnus.com
# This file was written by Rob Savoye. (rob@cygnus.com)
#
# load support libraries
#
load_lib remote.exp
load_lib gdb.exp
load_lib vxworks.exp
set shell_prompt "->"
# these need to be initialized only if site.exp doesn't set them
if ![info exists prompt] then {
set prompt "\(vxgdb\)"
}
#
# gdb_version -- extract and print the version number of gcc
#
proc gdb_version {} {
default_gdb_version
}
#
# gdb_load -- load a file into the debugger.
# We have to stop and start gdb each time we do this, because when
# vxgdb loads two files in a row, the symbols in the first file loaded
# take precedence.
#
proc gdb_load { arg } {
global shell_id
# global loadpath
# global loadfile
global base_dir
global prompt
global GDB
gdb_exit
spawn_vxgdb
set loadfile [file tail $arg]
set loadpath [file dirname $arg]
# send cd \"$base_dir\"\r
# expect {
# -re ".*No such file or directory.*$" {
# error "Couldn't change directory. $base_dir doesn't exist"
# return -1
# }
# "value = 0 = 0x0" {
# verbose "VxWorks changed directory to $base_dir" 1
# }
# timeout { error "Couldn't load $arg into $GDB."; return }
# }
send "load $arg\n"
# Use a very generous timeout because we might be loading across
# the Internet.
set timeout 600
expect {
-re "load.*done.*$prompt $" {
verbose "Loaded $arg" 1
}
-i $shell_id "Login incorrect." {
error "Login is incorrect."
set timeout 10
return
}
-re "Load failed on target machine.*$prompt $" {
error "Couldn't load $arg."
set timeout 10
return
}
-re "No such file or directory.*$prompt $" {
error "$arg doesn't exist."
set timeout 10
return
}
-re ".*Reading symbols.*done..*$prompt $" {
verbose "Loaded $arg" 1
}
-re "$prompt $" {
error "Couldn't load $arg."
set timeout 10
return
}
timeout {
error "(timeout) couldn't load $arg.";
set timeout 10
return
}
}
set timeout 10
}
#
# gdb_start -- start gdb running and
#
proc gdb_start { } {
global GDB
global GDBFLAGS
global spawn_id
global prompt
global verbose
global targetname
global connectmode
global reboot
global shell_id
# get a connection to the board
set shell_id [ eval $connectmode "$targetname" ]
if $shell_id<0 then {
error "Couldn't connect to $targetname."
return -1
}
# reboot vxworks to get a clean start
if $reboot then {
verbose "Rebooting VxWorks, Please wait...\n"
send -i $shell_id "\CX"
set timeout 120
expect {
-i $shell_id -re "Connection closed.*$" {
verbose "\nVxWorks has closed the shell"
}
-i $shell_id eof {
error "(eof) never disconnected from VxWorks shell."
return -1
}
-i $shell_id timeout {
error "(timeout) never disconnected from VxWorks shell."
return -1
}
}
catch "close -i $shell_id" tmp
wait -i $shell_id
# exec sleep 30
# set timeout 60
# set shell_id [ eval $connectmode "$targetname" ]
# if $shell_id<0 then {
# error "Couldn't connect to $targetname."
# }
}
set timeout 10
catch "spawn_vxgdb"
}
proc spawn_vxgdb { } {
global GDB
global GDBFLAGS
global spawn_id
global prompt
global verbose
global targetname
# start GDB
if [ llength $GDBFLAGS ] then {
if {[which $GDB] != 0} then {
spawn $GDB $GDBFLAGS
} else {
error "$GDB does not exist."
exit 1
}
} else {
if {[which $GDB] != 0} then {
spawn $GDB
} else {
error "$GDB does not exist."
exit 1
}
}
expect {
-re ".*$prompt $" {
verbose "$GDB initialized for cross mode to Vxworks\n"
}
-re "$prompt $" {
error "GDB never initialized."
return -1
}
timeout {
error "(timeout) GDB never initialized."
return -1
}
}
# force the height to "unlimited", so no pagers get used
send "set height 0\n"
expect -re ".*$prompt $" {}
# force the width to "unlimited", so no wraparound occurs
send "set width 0\n"
expect -re ".*$prompt $" {}
# set the default arguments to "main", so that "run" with no
# arguments will work correctly.
send "set args main\n"
expect -re ".*$prompt $" {}
if $verbose>1 then {
send_user "Setting up target, Please wait...\n"
}
# set targets hostname
send "target vxworks $targetname\n"
set timeout 60
expect {
-re "Done\..*$prompt $" {
verbose "Set target to $targetname" 1
}
-re "net_connect: RPC: Program not registered.*$" {
error "Couldn't set GDB to target $targetname."
exit 1
}
timeout {
error "Couldn't set target for vxworks."
set timeout 10
return -1
}
}
set timeout 10
}
proc gdb_exit { } {
global shell_id
exit_remote_shell $shell_id
catch default_gdb_exit
}
#expect_after {
# "<return>" { send "\n"; error "Window too small." }
# -re "\(y or n\) " { send "n\n"; error "Got interactive prompt." }
# buffer_full { error "internal buffer is full." }
# eof { error "eof -- pty is hosed." }
# timeout { error "timeout." }
# "virtual memory exhausted" { error "virtual memory exhausted." }
# "Undefined command" { error "send string probably wrong." }
#}
gdb_start