Browse Source
Migrated dejagnu testcases and support files for testing nm to gdb/testsuite from deja-gnu. These files were moved "as is" with no modifications. This migration is part of a major overhaul of dejagnu. The modifications to these testcases, etc., which will allow them to work with the new version of dejagnu will be made in a future update.gdb-4_18-branch
Mike Werner
34 years ago
7 changed files with 1134 additions and 0 deletions
@ -0,0 +1,10 @@ |
|||
Sun Feb 21 10:55:55 1993 Mike Werner (mtw@poseidon.cygnus.com) |
|||
|
|||
* gdb/testsuite: Initial creation of gdb/testsuite. |
|||
Migrated dejagnu testcases and support files for testing nm to |
|||
gdb/testsuite from deja-gnu. These files were moved "as is" |
|||
with no modifications. This migration is part of a major overhaul |
|||
of dejagnu. The modifications to these testcases, etc., which |
|||
will allow them to work with the new version of dejagnu will be |
|||
made in a future update. |
|||
|
|||
@ -0,0 +1,118 @@ |
|||
# Test Framework Driver |
|||
# 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) |
|||
|
|||
# these need to be initialized only if site.exp doesn't set them |
|||
if ![info exists prompt] then { |
|||
set prompt "\(gdb\)" |
|||
} |
|||
|
|||
# |
|||
# gdb_version -- extract and print the version number of gdb |
|||
# |
|||
proc gdb_version {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global prompt |
|||
set tmp [exec echo "q" | $GDB] |
|||
set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] |
|||
set version [string range $version 0 [expr [string length $version]-2]] |
|||
clone_output "[which $GDB] version $version $GDBFLAGS\n" |
|||
} |
|||
|
|||
# |
|||
# gdb_load -- load a file into the debugger. |
|||
# |
|||
proc gdb_load { arg } { |
|||
global verbose |
|||
global loadpath |
|||
global loadfile |
|||
global prompt |
|||
global GDB |
|||
set loadfile [file tail $arg] |
|||
set loadpath [file dirname $arg] |
|||
send_user "Not implememted yet\n" ; alldone |
|||
} |
|||
|
|||
# |
|||
# gdb_exit -- exit the debugger |
|||
# |
|||
proc gdb_exit {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global verbose |
|||
send "quit\n" |
|||
expect { |
|||
eof { |
|||
if $verbose>1 then { |
|||
send_user "Got EOF from $GDB\n" |
|||
} |
|||
} |
|||
timeout { |
|||
if $verbose>1 then { |
|||
send_user "Got TIMEOUT from $GDB\n" |
|||
} |
|||
} |
|||
-re "The program is running. Quit anyway? (y or n) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling program being debugged\n" |
|||
} |
|||
} |
|||
} |
|||
if $verbose>1 then { |
|||
send_user "Quitting $GDB $GDBFLAGS\n" |
|||
} |
|||
} |
|||
|
|||
# |
|||
# gdb_start -- start GDB running |
|||
# |
|||
proc gdb_start { } { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global spawn_id |
|||
global prompt |
|||
global verbose |
|||
global targetname |
|||
send_user "Not implememted yet\n" ; alldone |
|||
} |
|||
|
|||
expect_after { |
|||
"<return>" { send "\n"; clone_output "ERROR: Window too small" } |
|||
-re "\(y or n\) " { send "n\n"; clone_output "ERROR: Got interactive prompt" } |
|||
buffer_full { clone_output "ERROR: internal buffer is full" } |
|||
eof { clone_output "ERROR: eof -- pty is hosed" } |
|||
timeout { clone_output "ERROR: timeout" } |
|||
"virtual memory exhausted" { clone_output "ERROR: virtual memory exhausted" } |
|||
"Undefined command" { clone_output "ERROR: send string probably wrong" } |
|||
} |
|||
|
|||
load_lib gdb.exp |
|||
|
|||
gdb_start |
|||
|
|||
# make sure gdb has actually started, otherwise if the first test |
|||
# timesout, DejaGnu crashes |
|||
send "\n" |
|||
expect { |
|||
-re "$prompt" |
|||
} |
|||
@ -0,0 +1,206 @@ |
|||
# Test Framework Driver |
|||
# 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) |
|||
|
|||
# |
|||
# NOTE: these test assume that there is a udi_soc file in th |
|||
# |
|||
|
|||
# these need to be initialized only if site.exp doesn't set them |
|||
set prompt "\(gdb\)" |
|||
|
|||
if ![info exists prompt] then { |
|||
set prompt "\(gdb\)" |
|||
} |
|||
|
|||
# |
|||
# gdb_version -- extract and print the version number of gdb |
|||
# |
|||
proc gdb_version {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global prompt |
|||
set tmp [exec echo "q" | $GDB] |
|||
set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] |
|||
set version [string range $version 0 [expr [string length $version]-2]] |
|||
clone_output "[which $GDB] version $version $GDBFLAGS\n" |
|||
} |
|||
|
|||
# |
|||
# 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 spawn_id |
|||
global GDB |
|||
global expect_out |
|||
|
|||
send "load $arg\n" |
|||
if $verbose>1 then { |
|||
send_user "Loading $arg into $GDB\n" |
|||
} |
|||
expect { |
|||
-re "Loading.*\.text.*\.data.*\.bss.*Reading symbols from $arg.+done.*$prompt $" { |
|||
if $verbose>1 then { |
|||
send_user "Loaded $arg into $GDB\n" |
|||
} |
|||
return 1 |
|||
} |
|||
-re "$prompt $" { |
|||
if $verbose>1 then { |
|||
error "GDB couldn't load." |
|||
} |
|||
} |
|||
timeout { |
|||
if $verbose>1 then { |
|||
error "Timed out trying to load $arg." |
|||
} |
|||
} |
|||
} |
|||
if [info exists expect_out(buffer)] then { |
|||
send_log $expect_out(buffer) |
|||
} |
|||
return 0 |
|||
} |
|||
|
|||
# |
|||
# gdb_exit -- exit the GDB |
|||
# |
|||
proc gdb_exit {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global verbose |
|||
|
|||
set timeout 5 |
|||
send "quit\n" |
|||
expect { |
|||
eof { |
|||
if $verbose>1 then { |
|||
send_user "Got EOF from $GDB\n" |
|||
} |
|||
} |
|||
timeout { |
|||
if $verbose>1 then { |
|||
send_user "Got TIMEOUT from $GDB\n" |
|||
} |
|||
} |
|||
-re "The program is running. Quit anyway? (y or n) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling program being debugged\n" |
|||
} |
|||
} |
|||
} |
|||
if $verbose>1 then { |
|||
send_user "Quitting $GDB $GDBFLAGS\n" |
|||
} |
|||
close |
|||
} |
|||
|
|||
# |
|||
# gdb_start -- start GDB running. This assumes that there the |
|||
# UDICONF enviroment variable is set. |
|||
# |
|||
proc gdb_start { } { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global spawn_id |
|||
global prompt |
|||
global verbose |
|||
global targetname |
|||
|
|||
set GDB [which $GDB] |
|||
# start GDB |
|||
if [ llength $GDBFLAGS ] then { |
|||
spawn $GDB $GDBFLAGS |
|||
} else { |
|||
spawn $GDB |
|||
} |
|||
expect { |
|||
-re "GDB.*$prompt $" { |
|||
if $verbose>1 then { |
|||
send_user "$GDB initialized for cross mode\n\n" |
|||
} |
|||
} |
|||
-re "$prompt $" { error "GDB never initialized."; alldone } |
|||
timeout { error "(timeout) GDB never initialized."; |
|||
alldone } |
|||
} |
|||
|
|||
# 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" |
|||
} |
|||
catch "exec rm [glob -nocomplain *_soc]" |
|||
catch "exec rm [glob -nocomplain /tmp/*_soc]" |
|||
# set targets hostname |
|||
send "target udi $targetname\n" |
|||
set timeout 60 |
|||
expect { |
|||
-re "target udi.*TIP UDI 1.2 Conformant.*$prompt $" { |
|||
if $verbose>1 then { |
|||
send_user "Set target to $targetname\n" |
|||
} |
|||
} |
|||
timeout { |
|||
error "Couldn't set target for vxworks." |
|||
set timeout 10 |
|||
alldone |
|||
} |
|||
} |
|||
set timeout 10 |
|||
} |
|||
|
|||
expect_after { |
|||
"<return>" { send "\n"; clone_output "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." } |
|||
} |
|||
|
|||
load_lib gdb.exp |
|||
|
|||
gdb_start |
|||
|
|||
# make sure gdb has actually started, otherwise if the first test |
|||
# timesout, DejaGnu crashes |
|||
send "\n" |
|||
expect { |
|||
-re "$prompt" |
|||
} |
|||
@ -0,0 +1,234 @@ |
|||
# 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) |
|||
|
|||
# variables that need to set up |
|||
# |
|||
if ![info exists prompt] then { |
|||
set prompt "\(gdb\)" |
|||
} |
|||
# some convenience abbreviations |
|||
# |
|||
if ![info exists hex] then { |
|||
set hex "0x\[0-9A-Fa-f\]+" |
|||
} |
|||
if ![info exists decimal] then { |
|||
set decimal "\[0-9\]+" |
|||
} |
|||
|
|||
# |
|||
# gdb_version -- extract and print the version number of gcc |
|||
# |
|||
proc gdb_version {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
set tmp [exec echo "q" | $GDB] |
|||
set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] |
|||
set version [string range $version 0 [expr [string length $version]-2]] |
|||
clone_output "[which $GDB] version $version $GDBFLAGS\n" |
|||
} |
|||
|
|||
# |
|||
# gdb_unload -- unload a file if one is loaded |
|||
# |
|||
|
|||
proc gdb_unload {} { |
|||
global verbose |
|||
global GDB |
|||
global prompt |
|||
send "file\n" |
|||
expect { |
|||
-re "No exec file now\.\r" { continue -expect } |
|||
-re "No symbol file now\.\r" { continue -expect } |
|||
-re "A program is being debugged already..*Kill it\? \(y or n\) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling previous program being debugged\n" |
|||
} |
|||
continue -expect |
|||
} |
|||
-re "Discard symbol table from .*\? \(y or n\) $" { |
|||
send "y\n" |
|||
continue -expect |
|||
} |
|||
-re "$prompt $" {} |
|||
timeout { |
|||
error "Couldn't unload file in $GDB (timed out)." |
|||
alldone |
|||
} |
|||
} |
|||
} |
|||
|
|||
# |
|||
# gdb_load -- load a file into the debugger. |
|||
# |
|||
proc gdb_load { arg } { |
|||
global verbose |
|||
global loadpath |
|||
global loadfile |
|||
global GDB |
|||
global prompt |
|||
|
|||
set loadfile [file tail $arg] |
|||
set loadpath [file dirname $arg] |
|||
send "directory\n" |
|||
expect { |
|||
-re "Reinitialize source path to empty\? \(y or n\) $"\ |
|||
{ send "y\n" |
|||
expect { |
|||
-re "$prompt $" {} |
|||
timeout { fail "(timeout) reset directory path" ; return } |
|||
} |
|||
} |
|||
timeout { fail "(timeout) reset directory path" ; return } |
|||
} |
|||
send "directory $loadpath\n" |
|||
expect -re "$prompt $" {} |
|||
send "file $arg\n" |
|||
expect { |
|||
-re "Reading symbols from.*done.*$prompt $"\ |
|||
{ if $verbose>1 then { |
|||
send_user "\t\tLoaded $arg into the $GDB\n" |
|||
} |
|||
} |
|||
-re "has no symbol-table.*$prompt $" { |
|||
error "$arg wasn't compiled with \"-g\"\n" |
|||
return -1 |
|||
} |
|||
-re "A program is being debugged already..*Kill it\? \(y or n\) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling previous program being debugged\n" |
|||
} |
|||
continue -expect |
|||
} |
|||
-re "Load new symbol table from.*\? \(y or n\) $"\ |
|||
{ send "y\n" |
|||
expect { |
|||
-re "Reading symbols from.*done.*$prompt $" |
|||
{ if $verbose>1 then { |
|||
send_user "\t\tLoaded $arg with new symbol table into $GDB\n" |
|||
} |
|||
} |
|||
timeout { error "(timeout) Couldn't load $arg, other program already loaded."; alldone } |
|||
} |
|||
} |
|||
-re ".*No such file or directory.*$prompt $"\ |
|||
{ error "($arg) No such file or directory\n"; alldone } |
|||
-re "$prompt $" { error "couldn't load $arg into $GDB."; alldone } |
|||
timeout { error "couldn't load $arg into $GDB (timed out)."; alldone } |
|||
} |
|||
} |
|||
|
|||
# |
|||
# gdb_exit -- kills the gdb process currently running |
|||
# |
|||
proc gdb_exit {} { |
|||
global verbose |
|||
global GDB |
|||
global GDBFLAGS |
|||
set timeout 1 |
|||
|
|||
catch "send \"quit\n\"" result |
|||
if [string match "write\(spawn_id=\[0-9\]+\): Bad file number" $result] then { |
|||
close |
|||
return 0 |
|||
} |
|||
expect { |
|||
eof { |
|||
if $verbose>1 then { |
|||
send_user "Got EOF from $GDB\n" |
|||
} |
|||
} |
|||
timeout { |
|||
if $verbose>1 then { |
|||
send_user "Got TIMEOUT from $GDB\n" |
|||
} |
|||
} |
|||
-re "The program is running. Quit anyway? (y or n) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling program being debugged\n" |
|||
} |
|||
} |
|||
} |
|||
|
|||
close |
|||
|
|||
if $verbose>1 then { |
|||
send_user "Quitting $GDB $GDBFLAGS\n" |
|||
} |
|||
} |
|||
|
|||
# |
|||
# start gdb -- start gdb running |
|||
# |
|||
|
|||
proc gdb_start {} { |
|||
global verbose |
|||
global GDB |
|||
global GDBFLAGS |
|||
global prompt |
|||
global spawn_id |
|||
global timeout |
|||
if $verbose>1 then { |
|||
send_user "Spawning $GDB $GDBFLAGS\n" |
|||
} |
|||
|
|||
set oldtimeout $timeout |
|||
set timeout [expr "$timeout + 60"] |
|||
if [ llength $GDBFLAGS ] then { |
|||
spawn $GDB $GDBFLAGS |
|||
} else { |
|||
spawn $GDB |
|||
} |
|||
expect { |
|||
-re ".*$prompt $" { if $verbose>1 then { |
|||
send_user "GDB initialized for native mode\n" } |
|||
} |
|||
-re "$prompt $" { error "GDB never initialized."; alldone } |
|||
timeout { error "(timeout) GDB never initialized."; alldone } |
|||
} |
|||
set timeout $oldtimeout |
|||
# 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 $" {} |
|||
} |
|||
|
|||
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." } |
|||
} |
|||
|
|||
load_lib gdb.exp |
|||
|
|||
set binpath /s1/users/rob/vxworks/bin/somewhere-bogus-that-needs-configuring |
|||
set bin $GDB |
|||
|
|||
gdb_start |
|||
|
|||
@ -0,0 +1,301 @@ |
|||
# 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 |
|||
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 {} { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global prompt |
|||
set tmp [exec echo "q" | $GDB] |
|||
set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] |
|||
set version [string range $version 0 [expr [string length $version]-2]] |
|||
clone_output "[which $GDB] version $version $GDBFLAGS\n" |
|||
} |
|||
|
|||
# |
|||
# 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 verbose |
|||
global loadpath |
|||
global loadfile |
|||
global base_dir |
|||
global prompt |
|||
global GDB |
|||
quit_vxgdb |
|||
spawn_vxgdb |
|||
set loadfile [file tail $arg] |
|||
set loadpath [file dirname $arg] |
|||
send -i $shell_id cd \"$base_dir\"\n |
|||
expect { |
|||
-i $shell_id "value = 0 = 0x0" { |
|||
if $verbose>1 then { |
|||
send_user "VxWorks changed directory to $base_dir\n" |
|||
} |
|||
} |
|||
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 $" { |
|||
if $verbose>1 then { |
|||
send_user "Loaded $arg\n" |
|||
} |
|||
} |
|||
-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 $" { |
|||
if $verbose>1 then { |
|||
send_user "Loaded $arg\n" |
|||
} |
|||
} |
|||
-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 |
|||
} |
|||
|
|||
# |
|||
# |
|||
# |
|||
proc gdb_exit {} { |
|||
global shell_id |
|||
|
|||
exit_remote_shell $shell_id |
|||
quit_vxgdb |
|||
} |
|||
|
|||
proc quit_vxgdb { } { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global verbose |
|||
|
|||
set timeout 1 |
|||
send "quit\n" |
|||
expect { |
|||
eof { |
|||
if $verbose>1 then { |
|||
send_user "Got EOF from $GDB\n" |
|||
} |
|||
} |
|||
timeout { |
|||
if $verbose>1 then { |
|||
send_user "Got TIMEOUT from $GDB\n" |
|||
} |
|||
} |
|||
-re "The program is running. Quit anyway? (y or n) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling program being debugged\n" |
|||
} |
|||
} |
|||
} |
|||
if $verbose>1 then { |
|||
send_user "Quitting $GDB $GDBFLAGS\n" |
|||
} |
|||
} |
|||
|
|||
# |
|||
# 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 { |
|||
send_user "Rebooting VxWorks, Please wait...\n" |
|||
|
|||
send -i $shell_id "\CX" |
|||
set timeout 120 |
|||
expect { |
|||
-i $shell_id -re "Connection closed.*$" { |
|||
if $verbose>2 then { |
|||
send_user "\nVxWorks has closed the shell\n" |
|||
} |
|||
} |
|||
eof { error "(eof) never disconnected from VxWorks shell."; alldone } |
|||
timeout { error "(timeout) never disconnected from VxWorks shell."; alldone } |
|||
} |
|||
close -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 |
|||
|
|||
# this is the non-interactive version of nfsAuthUnixPrompt |
|||
#send -i $shell_id nfsAuthUnixSet ($vx_host, $vx_uid, $vx_gid, 0); \n |
|||
#expect { |
|||
# -i $shell_id "value = 0 = 0x0" { |
|||
# if $verbose>1 then { |
|||
# send_user "\nVxWorks set host=$vx_host, uid=$vx_uid, gid=$vx_gid\n" |
|||
# } |
|||
# } |
|||
# timeout { error "couldn't set host=$vx_host, uid=$vx_uid, gid=$vx_gid\n"; alldone } |
|||
#} |
|||
|
|||
#send -i $shell_id cd \"$base_dir\"\n |
|||
#expect { |
|||
# -i $shell_id "value = 0 = 0x0" { |
|||
# if $verbose>1 then { |
|||
# send_user "VxWorks changed directory to $base_dir\n" |
|||
# } |
|||
# } |
|||
# timeout { error "couldn't load $arg into $bin."; alldone } |
|||
#} |
|||
|
|||
spawn_vxgdb |
|||
} |
|||
|
|||
proc spawn_vxgdb { } { |
|||
global GDB |
|||
global GDBFLAGS |
|||
global spawn_id |
|||
global prompt |
|||
global verbose |
|||
global targetname |
|||
|
|||
# start GDB |
|||
if [ llength $GDBFLAGS ] then { |
|||
spawn $GDB $GDBFLAGS |
|||
} else { |
|||
spawn $GDB |
|||
} |
|||
expect { |
|||
-re ".*$prompt $" { |
|||
if $verbose>1 then { |
|||
send_user "$GDB initialized for cross mode to Vxworks\n\n" |
|||
} |
|||
} |
|||
-re "$prompt $" { error "GDB never initialized."; alldone } |
|||
timeout { error "(timeout) GDB never initialized."; |
|||
alldone } |
|||
} |
|||
|
|||
# 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 $" { |
|||
if $verbose>1 then { |
|||
send_user "Set target to $targetname\n" |
|||
} |
|||
} |
|||
-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 |
|||
alldone |
|||
} |
|||
} |
|||
set timeout 10 |
|||
} |
|||
|
|||
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." } |
|||
} |
|||
|
|||
load_lib gdb.exp |
|||
|
|||
gdb_start |
|||
|
|||
# make sure gdb has actually started, otherwise if the first test |
|||
# timesout, DejaGnu crashes |
|||
send "\n" |
|||
expect { |
|||
-re "$prompt" |
|||
} |
|||
@ -0,0 +1,255 @@ |
|||
# Copyright (C) 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 Fred Fish. (fnf@cygnus.com) |
|||
|
|||
# Generic gdb subroutines that should work for any target. If these |
|||
# need to be modified for any target, it can be done with a variable |
|||
# or by passing arguments. |
|||
|
|||
# |
|||
# gdb_unload -- unload a file if one is loaded |
|||
# |
|||
|
|||
proc gdb_unload {} { |
|||
global verbose |
|||
global GDB |
|||
global prompt |
|||
send "file\n" |
|||
expect { |
|||
-re "No exec file now\.\r" { continue -expect } |
|||
-re "No symbol file now\.\r" { continue -expect } |
|||
-re "A program is being debugged already..*Kill it\? \(y or n\) $"\ |
|||
{ send "y\n" |
|||
if $verbose>1 then { |
|||
send_user "\t\tKilling previous program being debugged\n" |
|||
} |
|||
continue -expect |
|||
} |
|||
-re "Discard symbol table from .*\? \(y or n\) $" { |
|||
send "y\n" |
|||
continue -expect |
|||
} |
|||
-re "$prompt $" {} |
|||
timeout { |
|||
error "couldn't unload file in $GDB (timed out)." |
|||
alldone |
|||
} |
|||
} |
|||
} |
|||
|
|||
# Many of the tests depend on setting breakpoints at various places and |
|||
# running until that breakpoint is reached. At times, we want to start |
|||
# with a clean-slate with respect to breakpoints, so this utility proc |
|||
# lets us do this without duplicating this code everywhere. |
|||
# |
|||
|
|||
proc delete_breakpoints {} { |
|||
global prompt |
|||
|
|||
send "delete breakpoints\n" |
|||
expect { |
|||
-re "Delete all breakpoints\? \(y or n\) $" { |
|||
send "y\n" |
|||
continue -expect |
|||
} |
|||
-re "y\r\n$prompt $" {} |
|||
-re ".*$prompt $" { fail "Delete all breakpoints" ; return } |
|||
timeout { fail "Delete all breakpoints (timeout)" ; return } |
|||
} |
|||
send "info breakpoints\n" |
|||
expect { |
|||
-re "No breakpoints or watchpoints..*$prompt $" {} |
|||
-re ".*$prompt $" { fail "breakpoints not deleted" ; return } |
|||
timeout { fail "info breakpoints (timeout)" ; return } |
|||
} |
|||
} |
|||
|
|||
|
|||
# |
|||
# Set breakpoint at function and run gdb until it breaks there. |
|||
# Since this is the only breakpoint that will be set, if it stops |
|||
# at a breakpoint, we will assume it is the one we want. We can't |
|||
# just compare to "function" because it might be a fully qualified, |
|||
# single quoted C++ function specifier. |
|||
# |
|||
|
|||
proc runto { function } { |
|||
global prompt |
|||
global decimal |
|||
|
|||
send "delete\n" |
|||
expect { |
|||
-re "Delete all breakpoints\? \(y or n\) $" { |
|||
send "y\n" |
|||
expect { |
|||
-re "$prompt $" {} |
|||
timeout { fail "deleting breakpoints (timeout)" ; return 0 } |
|||
} |
|||
} |
|||
-re ".*$prompt $" {} |
|||
timeout { fail "deleting breakpoints (timeout)" ; return 0 } |
|||
} |
|||
|
|||
send "break $function\n" |
|||
expect { |
|||
-re "Break.* at .*: file .*, line $decimal.\r\n$prompt $" {} |
|||
-re "$prompt $" { fail "setting breakpoint at $function" ; return 0 } |
|||
timeout { fail "setting breakpoint at $function (timeout)" ; return 0 } |
|||
} |
|||
|
|||
send "run\n" |
|||
expect { |
|||
-re "The program .* has been started already.* \(y or n\) $" { |
|||
send "y\n" |
|||
continue -expect |
|||
} |
|||
-re "Starting.*Break.*\(\) at .*:$decimal.*$prompt $" { return 1 } |
|||
-re "$prompt $" { fail "running to $function" ; return 0 } |
|||
timeout { fail "running to $function (timeout)" ; return 0 } |
|||
} |
|||
} |
|||
|
|||
# |
|||
# gdb_test -- send a command to gdb and test the result. |
|||
# Takes three parameters. |
|||
# Parameters: |
|||
# First one is the command to execute, |
|||
# Second one is the pattern to match for a PASS, |
|||
# Third one is an optional message to be printed. If this |
|||
# a null string "", then the pass/fail messages are not printed. |
|||
# Returns: |
|||
# 1 if the test failed, |
|||
# 0 if the test passes, |
|||
# -1 if there was an internal error. |
|||
# |
|||
proc gdb_test { args } { |
|||
global verbose |
|||
global prompt |
|||
global GDB |
|||
global spawn_id |
|||
|
|||
if [llength $args]==3 then { |
|||
set message [lindex $args 2] |
|||
} else { |
|||
set message [lindex $args 0] |
|||
} |
|||
set command [lindex $args 0] |
|||
set pattern [lindex $args 1] |
|||
|
|||
if $verbose>2 then { |
|||
send_user "Sending \"$command\" to gdb\n" |
|||
send_user "Looking to match \"$pattern\"\n" |
|||
send_user "Message is \"$message\"\n" |
|||
} |
|||
|
|||
set result -1 |
|||
set errmess "" |
|||
# trap the send so any problems don't crash things |
|||
catch "send \"$command\n\"" errmess |
|||
if ![string match "" $errmess] then { |
|||
error "send \"$command\" got expect error \"$errmess\"" |
|||
return -1 |
|||
} |
|||
|
|||
expect { |
|||
-re ".*Ending remote debugging.*$prompt$" { |
|||
if ![isnative] then { |
|||
warning "Can`t communicate to remote target." |
|||
} |
|||
gdb_exit |
|||
gdb_start |
|||
set result -1 |
|||
} |
|||
-re "$pattern.*$prompt $" { |
|||
if ![string match "" $message] then { |
|||
pass "$message" |
|||
} |
|||
set result 0 |
|||
} |
|||
-re "Undefined command:.*$prompt" { |
|||
error "Undefined command \"$command\"." |
|||
} |
|||
-re "Ambiguous command.*$prompt $" { |
|||
error "\"$command\" is not a unique command name." |
|||
} |
|||
-re ".*$prompt $" { |
|||
if ![string match "" $message] then { |
|||
fail "$message" |
|||
} |
|||
set result 1 |
|||
} |
|||
"<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 { |
|||
fail "(timeout) $message" |
|||
set result 1 |
|||
} |
|||
} |
|||
return $result |
|||
} |
|||
|
|||
# "virtual memory exhausted" { |
|||
# error "virtual memory exhausted." |
|||
# } |
|||
|
|||
proc gdb_reinitialize_dir { subdir } { |
|||
global prompt |
|||
global verbose |
|||
|
|||
send "dir\n" |
|||
expect { |
|||
-re "Reinitialize source path to empty.*" { |
|||
send "y\n" |
|||
expect { |
|||
-re "Source directories searched.*$prompt $" { |
|||
send "dir $subdir\n" |
|||
expect { |
|||
-re "Source directories searched.*$prompt $" { |
|||
if $verbose>1 then { |
|||
send_user "Dir set to $subdir\n" |
|||
} |
|||
} |
|||
-re ".*$prompt $" { |
|||
error "Dir \"$subdir\" failed." |
|||
} |
|||
} |
|||
} |
|||
-re ".*$prompt $" { |
|||
error "Dir \"$subdir\" failed." |
|||
} |
|||
} |
|||
} |
|||
-re ".*$prompt $" { |
|||
error "Dir \"$subdir\" failed." |
|||
} |
|||
} |
|||
} |
|||
Loading…
Reference in new issue