send_user "Version [binutil_version $OBJCOPY]"
-if {![binutils_assemble $AS $srcdir$subdir/bintest.s tmpdir/bintest.o]} then {
+if {![binutils_assemble $AS $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then {
unresolved "objcopy (simple copy)"
return
}
setup_xfail "i*86-*-sysv3" "i*86-*-isc*" "i*86-*-sco*" "i*86-*-coff"
setup_xfail "i*86-*-aix*" "i*86-*-go32*"
setup_xfail "a29k-*-udi" "a29k-*-coff" "a29k-*-vxworks*"
- setup_xfail "i960-*-vxworks*" "i960-*-coff"
+ setup_xfail "i960-*-coff"
setup_xfail "h8300-*-hms" "h8300-*-coff"
setup_xfail "h8500-*-hms" "h8500-*-coff"
setup_xfail "hppa*-*-*"
send_log "$exec_output\n"
verbose "$exec_output" 1
+ # On OSF/1, this succeeds with gas and fails with /bin/as.
+ setup_xfail "alpha*-*-osf*"
+
+ # This fails for COFF i960-vxworks targets.
+ setup_xfail "i960-*-vxworks*"
+
fail "objcopy (simple copy)"
}
}
gets $file line
send_log "$line\n"
verbose $line
- if ![string match $line "S0130000746D706469722F636F70792E7372656397\r"] {
+ if ![string match "S0130000746D706469722F636F70792E7372656397*" $line] {
send_log "bad header\n"
fail "objcopy -O srec"
} else {
while {[gets $file line] != -1 \
- && [regexp "^S\[123\]\[0-9a-fA-F\]+\r$" $line]} {
+ && [regexp "^S\[123\]\[0-9a-fA-F\]+\[\r\n\]*$" $line]} {
send_log "$line\n"
verbose $line
set line "**EOF**"
}
send_log "$line\n"
verbose $line
- if ![regexp "^S\[789\]\[0-9a-fA-F\]+\r$" $line] then {
+ if ![regexp "^S\[789\]\[0-9a-fA-F\]+\[\r\n\]*$" $line] then {
send_log "bad trailer\n"
fail "objcopy -O srec"
} else {
set headers [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/bintest.o"]
-set headers_regexp "SECTION\[ 0-9\]+\\\[(\[^\]\]*)\\\]\[^\n\r\]*size\[ \]*(\[0-9a-fA-F\]+)\[0-9a-zA-Z \]*lma\[ \]*(\[0-9a-fA-F\]+)(.*)"
+set headers_regexp "\[ 0-9\]+(\[^ \]+)\[ \]*(\[0-9a-fA-F\]+)\[ \]+\[0-9a-fA-F\]+\[ \]+(\[0-9a-fA-F\]+)\[ \]+\[0-9a-fA-F\]+\[ \]+2\[*\]\[*\]\[0-9\]+(.*)"
set got $headers
while {[regexp $headers_regexp $got all name size vma rest]} {
fail "objcopy --adjust-vma"
} else {
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -fh tmpdir/copy.srec"]
- set want "file format srec.*start address\[ \]*(\[0-9a-fA-FxX\]+).*vma\[ \]*(\[0-9a-fA-F\]+)"
+ set want "file format srec.*start address\[ \]*(\[0-9a-fA-FxX\]+).*sec1\[ \]+\[0-9a-fA-F\]+\[ \]+(\[0-9a-fA-F\]+)"
if ![regexp $want $got all start vma] then {
fail "objcopy --adjust-vma"
} else {
fail "objcopy --adjust-section-vma +"
} else {
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
- set want "file format srec.*SECTION\[ \]*0\[^\n\r\]*vma\[ \]*(\[0-9a-fA-F\]+)"
+ set want "file format srec.*sec1\[ \]+\[0-9a-fA-F\]+\[ \]+(\[0-9a-fA-F\]+)"
if ![regexp $want $got all vma] then {
fail "objcopy --adjust-section-vma +"
} else {
fail "objcopy --adjust-section-vma ="
} else {
set got [binutils_run $OBJDUMP "$OBJDUMPFLAGS -h tmpdir/copy.srec"]
- set want "file format srec.*SECTION\[ \]*0\[^\n\r\]*vma\[ \]*(\[0-9a-fA-F\]+)"
+ set want "file format srec.*sec1\[ \]+\[0-9a-fA-F\]+\[ \]+(\[0-9a-fA-F\]+)"
if ![regexp $want $got all vma] then {
fail "objcopy --adjust-section-vma ="
} else {
catch "exec $AS -version < /dev/null" tmp
# Should find a way to discard constant parts, keep whatever's
# left, so the version string could be almost anything at all...
- regexp "version (cygnus-|)\[-0-9.a-zA-Z-\]+" $tmp version
- set tmp $version
- clone_output "[which $AS] $version\n"
- unset tmp
+ regexp "\[^\n\]* (cygnus-|)(\[-0-9.a-zA-Z-\]+)\[\r\n\].*" $tmp version cyg number
+ if ![info exists number] then {
+ return "[which $AS] (no version number)\n"
+ }
+ clone_output "[which $AS] $number\n"
unset version
}
global comp_output
global srcdir
global subdir
+ global host_triplet
- verbose "Executing $AS $ASFLAGS $as_opts $prog $redir"
+ verbose "Executing $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir"
catch "exec $srcdir/lib/run $AS $ASFLAGS $as_opts $srcdir/$subdir/$prog $redir" comp_output
+ set comp_output [prune_system_crud $host_triplet $comp_output]
+ verbose "output was $comp_output"
+ return [list $comp_output ""];
}
proc all_ones { args } {
global subdir srcdir
global OBJDUMP NM AS OBJCOPY
global OBJDUMPFLAGS NMFLAGS ASFLAGS OBJCOPYFLAGS
+ global host_triplet
if [string match "*/*" $name] {
set file $name
send_log "$AS $ASFLAGS $opts(as) -o dump.o $sourcefile\n"
catch "exec $srcdir/lib/run $AS $ASFLAGS $opts(as) -o dump.o $sourcefile" comp_output
+ set comp_output [prune_system_crud $host_triplet $comp_output]
if ![string match "" $comp_output] then {
send_log "$comp_output\n"
verbose "running $binary $progopts $progopts1" 3
if { $program == "objcopy" } {
send_log "$binary $progopts $progopts1 dump.o dump.out\n"
- if [catch "exec $binary $progopts $progopts1 dump.o dump.out" comp_output] {
+ catch "exec $binary $progopts $progopts1 dump.o dump.out" comp_output
+ set comp_output [prune_system_crud $host_triplet $comp_output]
+ if ![string match "" $comp_output] then {
send_log "$comp_output\n"
fail $testname
return
}
} else {
send_log "$binary $progopts $progopts1 dump.o > dump.out\n"
- if [catch "exec $binary $progopts $progopts1 dump.o > dump.out" comp_output] {
+ catch "exec $binary $progopts $progopts1 dump.o > dump.out" comp_output
+ set comp_output [prune_system_crud $host_triplet $comp_output]
+ if ![string match "" $comp_output] then {
send_log "$comp_output\n"
fail $testname
return
verbose_eval {[file_contents "dump.out"]} 3
if { [regexp_diff "dump.out" "${file}.d"] } then {
fail $testname
+ verbose "output is [file_contents "dump.out"]" 2
return
}
proc objdump { opts } {
global OBJDUMP
global comp_output
+ global host_triplet
catch "exec $OBJDUMP $opts" comp_output
+ set comp_output [prune_system_crud $host_triplet $comp_output]
verbose "objdump output=$comp_output\n" 3
}
global verbose
if $verbose>$level then { eval verbose "$expr" $level }
}
+
+# This definition is taken from an unreleased version of DejaGnu. Once
+# that version gets released, and has been out in the world for a few
+# months at least, it may be safe to delete this copy.
+if ![string length [info proc prune_system_crud]] {
+ #
+ # prune_system_crud -- delete various system verbosities from TEXT on SYSTEM
+ #
+ # An example is:
+ # ld.so: warning: /usr/lib/libc.so.1.8.1 has older revision than expected 9
+ #
+ # SYSTEM is typical $target_triplet or $host_triplet.
+ #
+ # This is useful when trying to do pattern matches on program output.
+ # Sites with particular verbose os's may wish to override this in site.exp.
+ #
+ proc prune_system_crud { system text } {
+ # This is from sun4's. Do it for all machines for now.
+ # The "\\1" is to try to preserve a "\n" but only if necessary.
+ regsub -all "(^|\n)(ld.so: warning:\[^\n\]*\n?)+" $text "\\1" text
+
+ # It might be tempting to get carried away and delete blank lines, etc.
+ # Just delete *exactly* what we're ask to, and that's it.
+ return $text
+ }
+}
+Tue Jan 28 14:42:31 1997 Bob Manson <manson@charmed.cygnus.com>
+
+ Major rewrite for testsuite revision.
+
+ * lib/gdb.exp: Remove references to global CC, CXX, B_OPTIONS,
+ TARGET_INCLUDES, LDFLAGS and target_alias. Use gdb_spawn_id
+ instead of relying on spawn_id to always contain a valid
+ spawn id.
+ (get_compiler_info): New procedure to build the ${binfile}.ci
+ file, instead of replicating this in N different places.
+ (gdb_compile): New procedure.
+
+ gdb.*/*.exp: Use gdb_compile and get_compiler_info (with
+ appropriate arguments) instead of compile. Use gdb_test in a lot
+ more places. Use send_gdb instead of send. Always run gdb_start
+ at the start of a testcase, as this is no longer done magically.
+
+ config/*-gdb.exp: Rename without the -gdb suffix.
+
+ config/mips.exp: Use remote_close instead of exit_remote_shell.
+ config/monitor.exp: Use target_info instead of looking at
+ baud, timeout, etc.
+ config/sim.exp: Use gdb_spawn_id instead of relying on spawn_id.
+
+Sat Dec 14 00:43:57 1996 Peter Schauer (pes@regent.e-technik.tu-muenchen.de)
+
+ * gdb.c++/templates.exp (test_ptype_of_templates),
+ gdb.c++/inherit.exp (test_ptype_si, test_print_anon_union):
+ Update expect patterns for destructors and assignment operators
+ to match corresponding c-typeprint.c changes.
+ * gdb.c++/templates.exp (test_template_breakpoints): Revert change
+ to destructor breakpoint test, GDB should be able to set the
+ destructor breakpoint without specifying arguments.
+
+Tue Dec 3 20:17:52 1996 Fred Fish <fnf@ninemoons.com>
+
+ * gdb.threads/pthreads.exp: Change result for failure to compile due
+ to lack of pthreads runtime support from an error to simply an
+ unsupported test, per dejagnu standards.
+
+Sun Dec 1 00:18:59 1996 Peter Schauer (pes@regent.e-technik.tu-muenchen.de)
+
+ * lib/gdb.exp (gdb_test): Simplify expect pattern for the case
+ where GDB exits to reduce pattern match time.
+ (skip_chill_tests): Skip chill tests for mips*-sgi-irix6*.
+
+ * gdb.base/nodebug.exp: Add mips*-sgi-irix6* xfails.
+
Tue Nov 26 18:29:23 1996 Michael Snyder <msnyder@cleaver.cygnus.com>
* gdb.base/callfuncs.exp: Turn on function call tests for h8300.
-push_target mvme135
load_lib ../config/monitor.exp
--- /dev/null
+load_lib "../config/monitor.exp"
--- /dev/null
+# 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"}
+ }
+}
--- /dev/null
+# 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 Mitsubishi M32R remote debugging
+# protocol.
+
+load_lib remote.exp
+load_lib gdb.exp
+
+
+#
+# M32R 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 "\aPlease reset the board now...\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\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 M32R 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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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 "m32r"
+ }
+
+ # 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 M32R 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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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 "\aPlease reset the board now...\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\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 M32R 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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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
+}
+
+++ /dev/null
-# Copyright (C) 1993 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 Ian Lance Taylor <ian@cygnus.com>.
-
-# GDB support routines for a board using the MIPS remote debugging
-# protocol. These are actually pretty generic.
-
-# DejaGnu currently assumes that debugging is being done over the main
-# console port. It would probably be more convenient for people using
-# IDT boards to permit the debugging port and the connected port to be
-# different, since an IDT board has two ports. This would require
-# extending some of the tests in a fashion similar to that done for
-# VxWorks, because the test output would appear on the other port,
-# rather than being displayed by gdb.
-
-load_lib remote.exp
-load_lib gdb.exp
-
-#
-# 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
- global targetname
-
- set loadfile [file tail $arg]
- set loadpath [file dirname $arg]
-
- send "file $arg\n"
- expect {
- -re "A program is being debugged already..*Kill it.*y or n. $" {
- send "y\n"
- exp_continue
- }
- -re "Reading symbols from.*done..*$prompt $" {}
- -re "$prompt $" { perror "GDB couldn't read file" }
- timeout { perror "(timeout) read symbol file" ; return -1 }
- }
-
- send "target mips $targetname\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "Remote MIPS debugging.*$prompt $" {
- if $verbose>1 then {
- send_user "Set target to $targetname\n"
- }
- }
- timeout {
- perror "Couldn't set MIPS target."
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
- return -1
- }
- }
-
- send "load $arg\n"
- if $verbose>1 then {
- send_user "Loading $arg into $GDB\n"
- }
- set timeout 2400
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "Loading.*$prompt $" {
- if $verbose>1 then {
- send_user "Loaded $arg into $GDB\n"
- }
- set timeout 30
- verbose "Timeout is now $timeout seconds" 2
- }
- -re "$prompt $" {
- if $verbose>1 then {
- perror "GDB couldn't load."
- }
- }
- timeout {
- if $verbose>1 then {
- perror "Timed out trying to load $arg."
- }
- }
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
- if [info exists expect_out(buffer)] then {
- send_log $expect_out(buffer)
- }
- return 0
-}
-
-#
-# gdb_start -- start GDB running.
-#
-proc gdb_start { } {
- global GDB
- global GDBFLAGS
- global spawn_id
- global shell_id
- global prompt
- global verbose
- global targetname
- global connectmode
- global reboot
- global baud
-
- # reboot the board to get a clean start
- if $reboot then {
- if ![info exists connectmode] then {
- set connectmode "kermit"
- }
- if ![info exists baud] then {
- set baud 9600
- }
- set shell_id [ eval $connectmode "$targetname" ]
- send -i $shell_id "\n"
- expect {
- -i $shell_id -re "<IDT>$" { }
- timeout {
- send -i $shell_id "\CC"
- expect {
- -i $shell_id -re "<IDT>$" { }
- timeout {
- perror "(timeout) board did not come up."; return -1
- }
- }
- }
- }
- send -i $shell_id "go 0xbfc00000\n"
- expect {
- -i $shell_id -re "<IDT>$" { }
- timeout { perror "(timeout) board did not come up."; return -1 }
- }
- verbose "about to exit kermit"
- exit_remote_shell $shell_id
- }
-
- set GDB [which $GDB]
- # start GDB
- if [ llength $GDBFLAGS ] then {
- spawn $GDB $GDBFLAGS
- } else {
- spawn $GDB
- }
- expect {
- -re ".*\r\n$prompt $" {
- verbose "GDB initialized."
- }
- -re "$prompt $" {
- perror "GDB never initialized."
- return -1
- }
- timeout {
- perror "(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 $" {}
-
- # Don't use floating point instructions, in case the board doesn't
- # support them.
- send "set mipsfpu off\n"
- expect -re ".*$prompt $" {}
-
-# if $verbose>1 then {
-# send_user "Setting up target, please wait...\n"
-# }
-# send "target mips $targetname\n"
-# set timeout 60
-# verbose "Timeout is now $timeout seconds" 2
-# expect {
-# -re "Remote MIPS debugging.*$prompt $" {
-# if $verbose>1 then {
-# send_user "Set target to $targetname\n"
-# }
-# }
-# timeout {
-# perror "Couldn't set MIPS target."
-# set timeout 10
-# verbose "Timeout is now $timeout seconds" 2
-# return -1
-# }
-# }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-}
-
-expect_after {
- "<return>" { send "\n"; perror "Window too small." }
- -re "\(y or n\) " { send "n\n"; perror "Got interactive prompt." }
- full_buffer { perror "internal buffer is full." }
- eof { perror "eof -- pty is hosed." }
- timeout { perror "timeout." }
- "virtual memory exhausted" { perror "virtual memory exhausted." }
- "Undefined command" { perror "send string probably wrong." }
-}
-
-proc gdb_exit { } {
- catch default_gdb_exit
-}
-
-gdb_start
-
-# make sure gdb has actually started, otherwise if the first test
-# timesout, DejaGnu crashes
-send "\n"
-expect {
- -re "$prompt"
- }
--- /dev/null
+# Copyright (C) 1993 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
+
+load_lib ../config/monitor.exp
+
+
--- /dev/null
+# Copyright (C) 1993 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
+
+load_lib ../config/monitor.exp
+
+
load_lib gdb.exp
-#
-# gdb_version -- extract and print the version number of gdb
-#
-proc gdb_version {} {
- default_gdb_version
-}
-
#
# gdb_target_monitor
# Set gdb to target the monitor
proc gdb_target_monitor { } {
global prompt
global exit_status
- global targetname
- global serialport
- global baud
- global target_info
+ global timeout
set timeout 60
- if {$baud != ""} then {
- send "set remotebaud $baud\n"
+
+ verbose "Timeout is now $timeout seconds" 2
+ if [target_info exists gdb_protocol] {
+ set targetname "[target_info gdb_protocol]"
+ } else {
+ perror "No protocol specified for [target_info name].";
+ return -1;
}
- if [info exists target_info(target,cflags)] {
- set targetname "$target_info(target,target)"
+ if [target_info exists baud] {
+ send_gdb "set remotebaud [target_info baud]\n"
}
- if [info exists target_info(target,netport)] {
- set serialport "$target_info(target,netport)"
+ if [target_info exists netport] {
+ set serialport "[target_info netport]"
+ } else {
+ set serialport "[target_info serial]"
}
- for {set i 1} {$i <= 3} {incr i} {
- send "target $targetname $serialport\n"
- expect {
- -re "Remote target $targetname connected to.*$prompt $" {
- verbose "Set target to $targetname"
- return
+
+ for {set j 1} {$j <= 2} {incr j} {
+ for {set i 1} {$i <= 3} {incr i} {
+ send_gdb "target $targetname $serialport\n"
+ expect {
+ -re "Remote MIPS debugging.*" {
+ verbose "Set target to $targetname"
+ return
+ }
+ -re "Remote debugging using $serialport.*" {
+ verbose "Set target to $targetname"
+ return
+ }
+ -re "Remote target $targetname connected to.*" {
+ verbose "Set target to $targetname"
+ return
}
-re "Connection refused" {
verbose "Connection refused by remote target. Pausing, and trying again."
timeout {
break
}
+ }
+ }
+ if { $j == 1 && ![reboot_target] } {
+ break;
}
}
- perror "Couldn't set target for $targetname."
+ perror "Couldn't set target for $targetname, port is $serialport."
cleanup
exit $exit_status
}
global loadfile
global GDB
global prompt
+ global timeout
- if [gdb_file_cmd $arg] then { return -1 }
+ if { $arg != "" } {
+ if [gdb_file_cmd $arg] { return -1 }
+ }
gdb_target_monitor
+ if [is_remote host] {
+ # FIXME:
+ set arg a.out;
+ }
+
verbose "Loading $arg"
- send "load $arg\n"
- set timeout 600
+ send_gdb "load $arg\n"
+ set timeout 1000
+ verbose "Timeout is now $timeout seconds" 2
expect {
-re ".*$prompt $" {
if { $verbose > 1 } {
}
timeout {
if { $verbose > 1 } {
- perror "Timed out trying to load $arg."
+ perror "Timed out trying to load $arg."
}
}
}
}
-#
-# gdb_start -- start GDB running.
-#
proc gdb_start { } {
- default_gdb_start
-}
+ global timeout
+ global reboot
-#
-# gdb_exit -- exit gdb
-#
-proc gdb_exit { } {
- catch default_gdb_exit
-}
+ # reboot the board to get a clean start
+ if $reboot then {
+ reboot_target;
+ }
+ catch default_gdb_start;
-gdb_start
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+}
load_lib remote.exp
global shell_id
-global passwd
global LD
if ![info exists LD] then {
global LD
global NLMCONV
global errorCode
- global targetname
global shell_id
+ # FIXME: this is wrong.
+ set targetname [target_info name];
+
set obj [file tail $arg]
set nlm "$obj.nlm"
set lnk "$obj.lnk"
gdb_file_cmd $nlm
}
-proc gdb_start { } {
- default_gdb_start
-}
-
-proc gdb_exit { } {
- catch default_gdb_exit
-}
-
proc gdb_run_cmd { } {
global shell_id
global prompt
- global baud serialport
- global targetname
global timeout
+ set connhost [target_info name];
+ if [board_info $connhost exists serial] {
+ set serialport [board_info $connhost serial];
+ } else {
+ set serialport [board_info $connhost netport];
+ }
+
+ if [board_info $connhost exists baud] {
+ set baud [board_info $connhost baud];
+ } else {
+ set baud 9600;
+ }
+ # FIXME: This is wrong.
send "kill\n"
expect {
-re ".*Kill the program being debugged.*y or n. $" {
-re ".*$prompt $" {}
}
- verbose "Starting GDB stub on $targetname" 1
+ verbose "Starting GDB stub on [target_info name]" 1
send -i $shell_id "load nlmstub BAUD=$baud x.nlm\r\n"
send "set remotebaud $baud\n"
}
-re "$prompt" {}
timeout {
+ set timeout $otimeout
+ verbose "Timeout restored to $timeout seconds" 2
perror "Couldn't set remote target"
return
}
}
set timeout $otimeout
- verbose "Timeout is now $timeout seconds" 2
+ verbose "Timeout restored to $timeout seconds" 2
send "continue\n"
expect {
#
set shell_prompt "Password:"
-set shell_id [ eval $connectmode "$targetname" ]
+set shell_id [remote_open target]
if $shell_id<0 then {
warning "Couldn't connect to target"
}
-set shell_prompt "[string toupper $targetname]:"
+# FIXME: this is wrong.
+set shell_prompt "[string toupper [target_info name]]:"
send -i $shell_id "1\n"
expect {
return -1
}
}
-
-gdb_start
+++ /dev/null
-# 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., 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 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" ; return -1
-}
-
-#
-# 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" ; return -1
-}
-
-expect_after {
- "<return>" { send "\n"; clone_output "ERROR: Window too small" }
- -re "\(y or n\) " { send "n\n"; clone_output "ERROR: Got interactive prompt" }
- full_buffer { 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"
- }
--- /dev/null
+# 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., 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 Rob Savoye. (rob@cygnus.com)
+
+load_lib gdb.exp
+
+#
+# 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" ; return -1
+}
+
+#
+# gdb_start -- start GDB running
+#
+proc gdb_start { } {
+ global GDB
+ global GDBFLAGS
+ global spawn_id
+ global prompt
+ global verbose
+ send_user "Not implememted yet\n" ; return -1
+}
+++ /dev/null
-# Test Framework Driver for GDB driving a builtin simulator
-# Copyright 1994 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. */
-
-load_lib gdb.exp
-
-#
-# gdb_version -- extract and print the version number of gdb
-#
-proc gdb_version {} {
- default_gdb_version
-}
-
-# The SH simulator by default will allocate 16M of memory, which is
-# convenient, but it slows down testing to chew up that much swap;
-# so supply an option that makes the simulator allocate 256K.
-
-set target_sim_options ""
-
-if [istarget "sh*-*-*"] then {
- set target_sim_options "18"
-}
-
-#
-# gdb_target_sim
-# Set gdb to target the simulator
-#
-proc gdb_target_sim { } {
- global targetname
- global prompt
- global verbose
- global exit_status
- global target_sim_options
-
- send "target sim $target_sim_options\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "Connected to the simulator.*$prompt $" {
- verbose "Set target to sim"
- }
- timeout {
- perror "Couldn't set target for simulator."
- cleanup
- exit $exit_status
- }
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-}
-
-#
-# 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_sim
-
- send "load\n"
- set timeout 2400
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re ".*$prompt $" {
- if $verbose>1 then {
- send_user "Loaded $arg into $GDB\n"
- }
- set timeout 30
- verbose "Timeout is now $timeout seconds" 2
- 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
- verbose "Setting up target, Please wait..."
-}
-
-#
-# gdb_exit -- exit gdb
-#
-proc gdb_exit { } {
- catch default_gdb_exit
-}
-
-gdb_start
-
-# make sure gdb has actually started, otherwise if the first test
-# timesout, DejaGnu crashes
-send "\n"
-expect {
- -re "$prompt"
- }
--- /dev/null
+# Test Framework Driver for GDB driving a builtin simulator
+# Copyright 1994 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. */
+
+load_lib gdb.exp
+
+# The SH simulator by default will allocate 16M of memory, which is
+# convenient, but it slows down testing to chew up that much swap;
+# so supply an option that makes the simulator allocate 256K.
+
+set target_sim_options ""
+
+if [istarget "sh*-*-*"] then {
+ set target_sim_options "18"
+}
+
+#
+# gdb_target_sim
+# Set gdb to target the simulator
+#
+proc gdb_target_sim { } {
+ global prompt
+ global verbose
+ global exit_status
+ global target_sim_options
+ global gdb_spawn_id
+
+ set spawn_id $gdb_spawn_id
+ send_gdb "target sim $target_sim_options\n"
+ set timeout 60
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -re "Connected to the simulator.*$prompt $" {
+ verbose "Set target to sim"
+ }
+ timeout {
+ perror "Couldn't set target for simulator."
+ cleanup
+ exit $exit_status
+ }
+ }
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+}
+
+#
+# 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
+ global gdb_spawn_id
+
+ set spawn_id $gdb_spawn_id
+
+ if [gdb_file_cmd $arg] then { return -1 }
+
+ gdb_target_sim
+
+ send_gdb "load\n"
+ set timeout 2400
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -re ".*$prompt $" {
+ if $verbose>1 then {
+ send_user "Loaded $arg into $GDB\n"
+ }
+ set timeout 30
+ verbose "Timeout is now $timeout seconds" 2
+ 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."
+ }
+ }
+ }
+}
+++ /dev/null
-# Copyright (C) 1993 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 Ian Lance Taylor <ian@cygnus.com>.
-
-# GDB support routines for a board using the MIPS remote debugging
-# protocol. These are actually pretty generic.
-
-# DejaGnu currently assumes that debugging is being done over the main
-# console port. It would probably be more convenient for people using
-# IDT boards to permit the debugging port and the connected port to be
-# different, since an IDT board has two ports. This would require
-# extending some of the tests in a fashion similar to that done for
-# VxWorks, because the test output would appear on the other port,
-# rather than being displayed by gdb.
-
-load_lib remote.exp
-load_lib gdb.exp
-
-#
-# 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
- global targetname
-
- set loadfile [file tail $arg]
- set loadpath [file dirname $arg]
-
- send "file $arg\n"
- expect {
- -re "A program is being debugged already..*Kill it.*y or n. $" {
- send "y\n"
- exp_continue
- }
- -re "Load new symbol table.*y or n. $" {
- send "y\n"
- exp_continue
- }
- -re "Reading symbols from.*done..*$prompt $" {}
- -re "$prompt $" { perror "GDB couldn't read file" }
- timeout { perror "(timeout) read symbol file" ; return -1 }
- }
-
- send "target sparclite $targetname\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re ".*SPARClite appears to be alive.*$prompt $" {
- if $verbose>1 then {
- send_user "Set target to $targetname\n"
- }
- }
- timeout {
- perror "Couldn't set SLITE target."
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
- return -1
- }
- }
-
- send "load $arg\n"
- if $verbose>1 then {
- send_user "Loading $arg into $GDB\n"
- }
- set timeout 2400
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "Loading.*$prompt $" {
- if $verbose>1 then {
- send_user "Loaded $arg into $GDB\n"
- }
- set timeout 30
- verbose "Timeout is now $timeout seconds" 2
- }
- -re "$prompt $" {
- if $verbose>1 then {
- perror "GDB couldn't load."
- }
- }
- timeout {
- if $verbose>1 then {
- perror "Timed out trying to load $arg."
- }
- }
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-
- send "target remote $targetname\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re ".*$prompt $" {
- if $verbose>1 then {
- send_user "Set remote target to $targetname\n"
- }
- }
- timeout {
- perror "Couldn't set remote target."
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
- return -1
- }
- }
-
- if [info exists expect_out(buffer)] then {
- send_log $expect_out(buffer)
- }
- return 0
-}
-
-#
-# gdb_start -- start GDB running.
-#
-proc gdb_start { } {
- global GDB
- global GDBFLAGS
- global spawn_id
- global shell_id
- global prompt
- global verbose
- global targetname
- global connectmode
- global reboot
- global baud
-
- # reboot the board to get a clean start
- if $reboot then {
- if ![info exists connectmode] then {
- set connectmode "kermit"
- }
- if ![info exists baud] then {
- set baud 9600
- }
- set shell_id [ eval $connectmode "$targetname" ]
- send -i $shell_id "\n"
- expect {
- -i $shell_id -re ">$" { }
- timeout {
- send -i $shell_id "\CC"
- expect {
- -i $shell_id -re ">$" { }
- timeout {
- perror "(timeout) board did not come up."; return -1
- }
- }
- }
- }
- send -i $shell_id "go 0xbfc00000\n"
- expect {
- -i $shell_id -re ">$" { }
- timeout { perror "(timeout) board did not come up."; return -1 }
- }
- verbose "about to exit kermit"
- exit_remote_shell $shell_id
- }
-
- set GDB [which $GDB]
- # start GDB
- if [ llength $GDBFLAGS ] then {
- spawn $GDB $GDBFLAGS
- } else {
- spawn $GDB
- }
- expect {
- -re ".*\r\n$prompt $" {
- verbose "GDB initialized."
- }
- -re "$prompt $" {
- perror "GDB never initialized."
- return -1
- }
- timeout {
- perror "(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 $" {}
-
- # Don't use floating point instructions, in case the board doesn't
- # support them.
- # send "set mipsfpu off\n"
- # expect -re ".*$prompt $" {}
-
-# if $verbose>1 then {
-# send_user "Setting up target, please wait...\n"
-# }
-# send "target mips $targetname\n"
-# set timeout 60
-# verbose "Timeout is now $timeout seconds" 2
-# expect {
-# -re "Remote MIPS debugging.*$prompt $" {
-# if $verbose>1 then {
-# send_user "Set target to $targetname\n"
-# }
-# }
-# timeout {
-# perror "Couldn't set MIPS target."
-# set timeout 10
-# verbose "Timeout is now $timeout seconds" 2
-# return -1
-# }
-# }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-}
-
-expect_after {
- "<return>" { send "\n"; perror "Window too small." }
- -re "\(y or n\) " { send "n\n"; perror "Got interactive prompt." }
- full_buffer { perror "internal buffer is full." }
- eof { perror "eof -- pty is hosed." }
- timeout { perror "timeout." }
- "virtual memory exhausted" { perror "virtual memory exhausted." }
- "Undefined command" { perror "send string probably wrong." }
-}
-
-proc gdb_exit { } {
- catch default_gdb_exit
-}
-
-gdb_start
-
-# make sure gdb has actually started, otherwise if the first test
-# timesout, DejaGnu crashes
-send "\n"
-expect {
- -re "$prompt"
- }
--- /dev/null
+# Copyright (C) 1993 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 Ian Lance Taylor <ian@cygnus.com>.
+
+# GDB support routines for a board using the MIPS remote debugging
+# protocol. These are actually pretty generic.
+
+# DejaGnu currently assumes that debugging is being done over the main
+# console port. It would probably be more convenient for people using
+# IDT boards to permit the debugging port and the connected port to be
+# different, since an IDT board has two ports. This would require
+# extending some of the tests in a fashion similar to that done for
+# VxWorks, because the test output would appear on the other port,
+# rather than being displayed by gdb.
+
+load_lib remote.exp
+load_lib gdb.exp
+set prompt "\\(gdb\\)"
+
+#
+# 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]
+
+ send_gdb "file $arg\n"
+ expect {
+ -i $gdb_spawn_id -re "A program is being debugged already..*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_protocol] {
+ set protocol [target_info gdb_protocol];
+ } else {
+ set protocol "sparclite"
+ }
+
+ 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";
+ }
+ set timeout 60
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -i $gdb_spawn_id -re "Remote target.*$prompt $" { }
+ -i $gdb_spawn_id -re ".*SPARClite appears to be alive.*$prompt $" {
+ if $verbose>1 then {
+ send_user "Set target to $targetname\n"
+ }
+ }
+ -i $gdb_spawn_id timeout {
+ perror "Couldn't set SLITE target."
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+ return -1
+ }
+ }
+
+ if [target_info exists gdb_load_offset] {
+ set offset "[target_info gdb_load_offset]";
+ } else {
+ set offset "";
+ }
+ if { 1 } {
+ send_gdb "load $arg $offset\n"
+ verbose "Loading $arg into $GDB" 2
+ set timeout 2400
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -i $gdb_spawn_id -re "Loading.*$prompt $" {
+ verbose "Loaded $arg into $GDB" 1
+ set timeout 30
+ 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."
+ }
+ }
+ }
+ }
+ set timeout 10
+ verbose "Timeout is now $timeout seconds, doing monitor run" 2
+ send_gdb "monitor run\n";
+ sleep 2;
+ send_gdb "\ 3";
+ expect {
+ -i $gdb_spawn_id -re ".*$prompt $" { verbose "Run command succeded" }
+ -i $gdb_spawn_id default {
+ perror "error sending monitor run command";
+ }
+ }
+
+ if [target_info exists gdb_serial] {
+ send_gdb "target remote [target_info gdb_serial]\n"
+ set timeout 60
+ verbose "Timeout is now $timeout seconds" 2
+ 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 {
+ perror "Couldn't set remote target."
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+ return -1
+ }
+ }
+ }
+
+ if [info exists expect_out(buffer)] then {
+ send_log $expect_out(buffer)
+ }
+ return 0
+}
--- /dev/null
+# 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 "\aPlease reset the board now...\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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 "\aPlease reset the board now...\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\n"
+ sleep 1
+ send_user "\a\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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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
+}
--- /dev/null
+# 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_start { } {
+ global gdb_spawn_id;
+ global prompt
+ global GDB
+
+ if { [default_gdb_start] != 0 } {
+ return -1;
+ }
+
+ if [target_info exists baud] {
+ send_gdb "set remotebaud [target_info baud]\n"
+ expect {
+ -i $gdb_spawn_id -re ".*$prompt" { }
+ -i $gdb_spawn_id default {
+ perror "Error setting baud rate."
+ return -1;
+ }
+ }
+ }
+
+ for {set x 1;} { $x < 4 } {incr x} {
+ if { [gdb_sparclet_startup] > 0 } {
+ break;
+ }
+ reboot_target;
+ }
+ return 1;
+}
+
+proc gdb_sparclet_startup { } {
+ global gdb_spawn_id;
+ global prompt
+ global GDB
+
+ set timeout 5;
+ set is_running_stub 0;
+
+ send_gdb "target sparclet [target_info serial]\n";
+ expect {
+ -i $gdb_spawn_id -re ".*already.*y or n." {
+ gdb_send "y\n";
+ exp_continue;
+ }
+ -i $gdb_spawn_id -re "Remote target.*connected to.*$prompt" { }
+ -i $gdb_spawn_id timeout {
+ verbose "timed out, checking if stub is already running"
+ set timeout 10
+ send_gdb "\003";
+ expect {
+ -i $gdb_spawn_id -re ".*$prompt" {
+ }
+ -i $gdb_spawn_id default {
+ perror "sparclet board isn't responding";
+ return -1;
+ }
+ }
+ send_gdb "target remote [target_info gdb_serial]\n";
+ expect {
+ -i $gdb_spawn_id -re ".*Remote debugging.*$prompt" {
+ verbose "stub is already running"
+ set is_running_stub 1;
+ }
+ -i $gdb_spawn_id default {
+ perror "sparclet board isn't responding";
+ return -1;
+ }
+ }
+ }
+ }
+
+ if { $is_running_stub == 0 } {
+ global srcdir
+
+ if ![file exists loader] {
+ set result [target_compile "${srcdir}/config/sparclet-loader.c" "loader" executable "libs=-Wl,-Ttext,[target_info gdb_stub_offset]"];
+ }
+ set loader "loader";
+ send_gdb "file $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
+ }
+ }
+
+ send_gdb "target [target_info gdb_protocol] [target_info serial]\n";
+ expect {
+ -i $gdb_spawn_id -re "Remote target.*connected to.*$prompt" { }
+ -i $gdb_spawn_id default {
+ perror "Error reconnecting to sparclet.";
+ return -1;
+ }
+ }
+
+ send_gdb "load $loader [target_info gdb_stub_offset]\n"
+ verbose "Loading $loader into $GDB" 2
+ set timeout 1200
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -i $gdb_spawn_id -re "Loading.*$prompt $" {
+ verbose "Loaded $loader 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_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 "\ 3"
+ sleep 1;
+ send_gdb "\ 3"
+ 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";
+ }
+ }
+
+ gdb_exit;
+ return [gdb_start];
+ }
+ return 1;
+}
+
+proc gdb_run_cmd { args } {
+ global gdb_spawn_id
+ global prompt
+
+ gdb_breakpoint exit;
+ send_gdb "set \$fp=0\n";
+ expect {
+ -i $gdb_spawn_id -re ".*$prompt" { }
+ }
+ send_gdb "jump start\n";
+ expect {
+ -i $gdb_spawn_id -re ".*y or n. $" {
+ send_gdb "y\n"
+ }
+ -i $gdb_spawn_id -re "Continuing at.*\[\r\n\]" { }
+ -i $gdb_spawn_id default {
+ return "failed"
+ }
+ }
+ 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"
+ }
+
+ 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_gdb "list main\n";
+ expect {
+ -i $gdb_spawn_id -re ".*$prompt" { }
+ -i $gdb_spawn_id default {
+ perror "command for list main never completed";
+ return -1;
+ }
+ }
+
+ return 0
+}
+++ /dev/null
-# Test Framework Driver for GDB driving Universal Debug Interface on 29K
-# Copyright 1988, 1990, 1991, 1992, 1993, 1994 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 Rob Savoye. (rob@cygnus.com)
-
-#
-# NOTE: these test assume that there is a udi_soc file in th
-#
-
-load_lib gdb.exp
-load_lib udi.exp
-
-#
-# gdb_version -- extract and print the version number of gdb
-#
-proc gdb_version {} {
- default_gdb_version
-}
-
-#
-# gdb_target_udi
-# Set gdb to the desired UDI target
-#
-proc gdb_target_udi { } {
- global targetname
- global prompt
- global verbose
- global exit_status
-
- # set targets hostname
- send "target udi $targetname\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "target udi $targetname\[\r\n\]+" {
- exp_continue
- }
- -re "TIP UDI 1.2 Conformant.*$prompt $" {
- verbose "Set target to $targetname"
- }
- -re "TIP-ipc WARNING,.*failed:" {
- warning "$expect_out(buffer)"
- }
- -re "TIP-ipc ERROR,.*failed:" {
- perror "$expect_out(buffer)"
- }
- -re "A program is being debugged already. Kill it\? \(y or n\)" {
- send "y\n"
- exp_continue
- }
- timeout {
- perror "Couldn't set target for UDI."
- cleanup
- exit $exit_status
- }
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-}
-
-#
-# 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_udi
-}
-
-#
-# gdb_start -- start GDB running. This assumes that there the
-# UDICONF enviroment variable is set.
-#
-proc gdb_start { } {
- default_gdb_start
- verbose "Setting up target, Please wait..."
- gdb_target_udi
-}
-
-#
-# gdb_exit -- exit gdb
-#
-proc gdb_exit { } {
- slay isstip
- catch default_gdb_exit
- set in [open [concat "|ls -F"] r]
- while {[gets $in line]>-1} {
- if [regexp "=$" $line] then {
- set line [string trimright $line "="]
- verbose "Removing the $line named socket"
- exec rm -f $line
- }
- }
- close $in
-}
-
-gdb_start
-
-# make sure gdb has actually started, otherwise if the first test
-# timesout, DejaGnu crashes
-send "\n"
-expect {
- -re "$prompt"
- }
--- /dev/null
+# Test Framework Driver for GDB driving Universal Debug Interface on 29K
+# Copyright 1988, 1990, 1991, 1992, 1993, 1994 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 Rob Savoye. (rob@cygnus.com)
+
+load_lib gdb.exp
+
+#
+# gdb_target_udi
+# Set gdb to the desired UDI target
+#
+proc gdb_target_udi { } {
+ global prompt
+ global verbose
+ global exit_status
+
+ set targetname [target_info remote_host];
+ # set targets hostname
+ send "target udi $targetname\n"
+ set timeout 60
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -re "target udi $targetname\[\r\n\]+" {
+ exp_continue
+ }
+ -re "TIP UDI 1.2 Conformant.*$prompt $" {
+ verbose "Set target to $targetname"
+ }
+ -re "TIP-ipc WARNING,.*failed:" {
+ warning "$expect_out(buffer)"
+ }
+ -re "TIP-ipc ERROR,.*failed:" {
+ perror "$expect_out(buffer)"
+ }
+ -re "A program is being debugged already. Kill it\? \(y or n\)" {
+ send "y\n"
+ exp_continue
+ }
+ timeout {
+ perror "Couldn't set target for UDI."
+ cleanup
+ exit $exit_status
+ }
+ }
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+}
+
+#
+# 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] {
+ return -1
+ }
+
+ gdb_target_udi
+}
+
+#
+# gdb_start -- start GDB running. This assumes that there the
+# UDICONF enviroment variable is set.
+#
+proc gdb_start { } {
+ default_gdb_start
+ verbose "Setting up target, Please wait..."
+ gdb_target_udi
+}
+
+#
+# gdb_exit -- exit gdb
+#
+proc gdb_exit { } {
+ slay isstip
+ catch default_gdb_exit
+ set in [open [concat "|ls -F"] r]
+ while {[gets $in line]>-1} {
+ if [regexp "=$" $line] then {
+ set line [string trimright $line "="]
+ verbose "Removing the $line named socket"
+ exec rm -f $line
+ }
+ }
+ close $in
+}
+++ /dev/null
-# Copyright (C) 1988, 1990, 1991, 1992, 1994 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:
-# bug-gdb@prep.ai.mit.edu
-
-# This file was written by Rob Savoye. (rob@cygnus.com)
-
-# Set a default timeout to be used for the tests under UNIX, rather than
-# accepting whatever default dejagnu gives us (apparently 10 seconds).
-# When running the tests over NFS, under somewhat heavy load, 10 seconds
-# does not seem to be enough. Try starting with 60.
-set timeout 60
-verbose "Timeout is now $timeout seconds" 2
-
-load_lib gdb.exp
-
-# 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 {} {
- default_gdb_version
-}
-
-#
-# gdb_unload -- unload a file if one is loaded
-#
-
-#
-# 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
- upvar timeout timeout
-
- return [gdb_file_cmd $arg]
-}
-
-proc gdb_start { } {
- default_gdb_start
-}
-
-proc gdb_exit { } {
- catch default_gdb_exit
-}
-
-set binpath /s1/users/rob/vxworks/bin/somewhere-bogus-that-needs-configuring
-global GDB
-set bin $GDB
-
-gdb_start
--- /dev/null
+# Copyright (C) 1988, 1990, 1991, 1992, 1994 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:
+# bug-gdb@prep.ai.mit.edu
+
+# This file was written by Rob Savoye. (rob@cygnus.com)
+
+# Set a default timeout to be used for the tests under UNIX, rather than
+# accepting whatever default dejagnu gives us (apparently 10 seconds).
+# When running the tests over NFS, under somewhat heavy load, 10 seconds
+# does not seem to be enough. Try starting with 60.
+set timeout 60
+verbose "Timeout is now $timeout seconds" 2
+
+load_lib gdb.exp
+++ /dev/null
-# Copyright (C) 1988, 1990, 1991, 1992, 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. */
-
-# 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 "->"
-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. Returns -1 on error, else 0.
-#
-proc gdb_load { arg } {
- global shell_id
-
-# gdb_exit
-# spawn_vxgdb
- set result 0
-
- if { [vxworks_ld $shell_id $arg] != 0 } {
- perror "Couldn't load $arg"
- return -1
- }
-
- return [gdb_file_cmd $arg]
-}
-
-#
-# gdb_start -- start gdb running and
-#
-proc gdb_start { } {
- 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 {
- perror "Couldn't connect to $targetname."
- return -1
- }
- verbose "Spawn id for remote shell is $shell_id"
-
- # reboot vxworks to get a clean start
- if $reboot then {
- verbose "Rebooting VxWorks, Please wait...\n"
-
- send -i $shell_id "\030"
- set timeout 120
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -i $shell_id -re "Connection closed.*$" {
- verbose "\nVxWorks has closed the shell"
- }
- -i $shell_id eof {
- perror "(eof) never disconnected from VxWorks shell."
- return -1
- }
- -i $shell_id timeout {
- perror "(timeout) never disconnected from VxWorks shell."
- return -1
- }
- }
- catch "close -i $shell_id" tmp
- wait -i $shell_id
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-
- catch "spawn_vxgdb"
-}
-
-proc spawn_vxgdb { } {
- global prompt
- global verbose
- global targetname
-
- default_gdb_start
-
- # set the default arguments to "main", so that "run" with no
- # arguments will work correctly.
- send "set args main\n"
- expect -re ".*$prompt $" {}
-
- verbose "Setting up target, Please wait..."
- # set targets hostname
- send "target vxworks $targetname\n"
- set timeout 60
- verbose "Timeout is now $timeout seconds" 2
- expect {
- -re "Done\..*$prompt $" {
- verbose "Set target to $targetname" 1
- }
- -re "net_connect: RPC: Program not registered.*$" {
- perror "Couldn't set GDB to target $targetname."
- exit 1
- }
- timeout {
- perror "Couldn't set target for vxworks."
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
- return -1
- }
- }
- set timeout 10
- verbose "Timeout is now $timeout seconds" 2
-}
-
-proc gdb_exit { } {
- global shell_id
- if [info exists shell_id] then {
- exit_remote_shell $shell_id
- }
- catch default_gdb_exit
-}
-
-#expect_after {
-# "<return>" { send "\n"; perror "Window too small." }
-# -re "\(y or n\) " { send "n\n"; perror "Got interactive prompt." }
-# buffer_full { perror "internal buffer is full." }
-# eof { perror "eof -- pty is hosed." }
-# timeout { perror "timeout." }
-# "virtual memory exhausted" { perror "virtual memory exhausted." }
-# "Undefined command" { perror "send string probably wrong." }
-#}
-
-gdb_start
-
--- /dev/null
+# Copyright (C) 1988, 1990, 1991, 1992, 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. */
+
+# 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 "->"
+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. Returns -1 on error, else 0.
+#
+proc gdb_load { arg } {
+ set result 0
+
+ if { [vxworks_ld target $arg] != 0 } {
+ perror "Couldn't load $arg"
+ return -1
+ }
+
+ return [gdb_file_cmd $arg]
+}
+
+#
+# gdb_start -- start gdb running
+#
+proc gdb_start { } {
+ global prompt
+ global verbose
+ global connectmode
+ global reboot
+
+ # get a connection to the board
+ set shell_id [remote_open target]
+ if { $shell_id < 0 } then {
+ perror "Couldn't connect to target."
+ return -1
+ }
+ verbose "Spawn id for remote shell is $shell_id"
+
+ # reboot vxworks to get a clean start
+ if $reboot then {
+ verbose "Rebooting VxWorks, Please wait...\n"
+
+ send -i $shell_id "\030"
+ set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -i $shell_id -re "Connection closed.*$" {
+ verbose "\nVxWorks has closed the shell"
+ }
+ -i $shell_id eof {
+ perror "(eof) never disconnected from VxWorks shell."
+ return -1
+ }
+ -i $shell_id timeout {
+ perror "(timeout) never disconnected from VxWorks shell."
+ return -1
+ }
+ }
+ catch "close -i $shell_id" tmp
+ wait -i $shell_id
+ }
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+
+ catch "spawn_vxgdb"
+}
+
+proc spawn_vxgdb { } {
+ global prompt
+ global verbose
+
+ default_gdb_start
+
+ # set the default arguments to "main", so that "run" with no
+ # arguments will work correctly.
+ send "set args main\n"
+ expect -re ".*$prompt $" {}
+
+ verbose "Setting up target, Please wait..."
+ # set targets hostname
+ send "target vxworks [target_info netport]\n"
+ set timeout 60
+ verbose "Timeout is now $timeout seconds" 2
+ expect {
+ -re "Done\..*$prompt $" {
+ verbose "Set target to [target_info netport]" 1
+ }
+ -re "net_connect: RPC: Program not registered.*$" {
+ perror "Couldn't set GDB to target [target_info netport]."
+ exit 1
+ }
+ timeout {
+ perror "Couldn't set target for vxworks."
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+ return -1
+ }
+ }
+ set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
+}
+
+proc gdb_exit { } {
+ remote_close target;
+ catch default_gdb_exit
+}
+
+#expect_after {
+# "<return>" { send "\n"; perror "Window too small." }
+# -re "\(y or n\) " { send "n\n"; perror "Got interactive prompt." }
+# buffer_full { perror "internal buffer is full." }
+# eof { perror "eof -- pty is hosed." }
+# timeout { perror "timeout." }
+# "virtual memory exhausted" { perror "virtual memory exhausted." }
+# "Undefined command" { perror "send string probably wrong." }
+#}
+
# This file was written by Rob Savoye. (rob@cygnus.com)
if $tracelevel then {
- strace $tracelevel
- }
+ strace $tracelevel
+}
set prms_id 0
set bug_id 0
# are we on a target board
-if ![isnative] then {
+if [is_remote target] {
return
}
+
if [istarget "m68k*-*-hpux*"] then {
# The top-level makefile passes CFLAGS= (no -g) for hp300. This probably
# should be fixed (it is only needed for gcc bootstrapping, not gdb),
}
}
-proc test_with_self {} {
+proc test_with_self { executable } {
global prompt
global tool
global det_file
set oldtimeout $timeout
set timeout 600
verbose "Timeout is now $timeout seconds" 2
- if {[gdb_load "./x$tool"] <0} then {
+ if {[gdb_load $executable] <0} then {
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
return -1
verbose "Timeout is now $timeout seconds" 2
# disassemble yourself
- send "x/10i main\n"
- expect {
- -re "x/10i.*main.*main.$decimal.*main.$decimal.*$prompt $"\
- { pass "Disassemble main" }
- -re ".*$prompt $" { fail "Disassemble main" }
- timeout { fail "(timeout) Disassemble main" }
- }
+ gdb_test "x/10i main" \
+ "x/10i.*main.*main.$decimal.*main.$decimal.*" \
+ "Disassemble main"
- set description "set breakpoint at main"
- send "break main\n"
- expect {
- -re "Breakpoint.*at.* file.*, line.*$prompt $" {
- pass "$description"
- }
- -re ".*$prompt $" {
- fail "$description"
- }
- timeout {
- fail "$description (timeout)"
- }
- }
+ # Set a breakpoint at main
+ gdb_test "break main" \
+ "Breakpoint.*at.* file.*, line.*" \
+ "breakpoint in main"
# We'll need this when we send a ^C to GDB. Need to do it before we
# run the program and gdb starts saving and restoring tty states.
# FIXME: If we put this after the run to main, the first list
# command doesn't print the same line as the current line where
# gdb is stopped.
- send "set listsize 1\n" ; expect -re "$prompt $"
+ gdb_test "set listsize 1" "" "set listsize to 1"
# run yourself
# It may take a very long time for the inferior gdb to start (lynx),
do_steps_and_nexts
- set description "print a string"
- send "print \"foo\"\n"
- expect {
- -re ".\[0-9\]+ = \"foo\".*$prompt $" {
- pass "$description"
- }
- -re ".*$prompt $" {
- fail "$description"
- }
- timeout {
- fail "$description (timeout)"
- }
- }
+ gdb_test "print \"foo\"" ".\[0-9\]+ = \"foo\"" "print a string"
# do_steps_and_nexts left us ready to execute an xmalloc call,
# so give that a try.
}
# Run the test with self.
-# Copy the file executable file in case this OS doesn't like to edit it's own
+# Copy the file executable file in case this OS doesn't like to edit its own
# text space.
set GDB_FULLPATH [find_gdb $GDB]
# Remove any old copy lying around.
-catch "exec rm -f ./x$tool"
-
-if ![file executable $GDB_FULLPATH] then {
- fail "couldn't convert $GDB to absolute pathname to make local copy"
-} else {
- if [catch "exec cp $GDB_FULLPATH ./x$tool"] then {
- fail "couldn't copy $GDB_FULLPATH to current directory"
- } else {
- verbose "\t\tCopied $GDB_FULLPATH to ./x$tool"
- if {[test_with_self] <0} then {
- warning "Couldn't test self"
- catch "exec rm -f ./x$tool"
- return -1
- }
- catch "exec rm -f ./x$tool"
- }
+remote_file build delete x$tool
+
+gdb_start
+set file [remote_download build $GDB_FULLPATH x$tool]
+set result [test_with_self $file];
+remote_file build delete $file;
+
+if {$result <0} then {
+ warning "Couldn't test self"
+ return -1
}
# These tests don't work for targets can't take arguments...
-if $noargs then {
- verbose "Skipping a2-run.exp because of noargs."
- return
- }
+if [target_info exists gdb,noargs] then {
+ verbose "Skipping a2-run.exp because of noargs."
+ return
+}
+
+if [target_info exists gdb,noinferiorio] {
+ verbose "Skipping a2-run.exp because of noinferiorio."
+ return
+}
if $tracelevel then {
- strace $tracelevel
- }
+ strace $tracelevel
+}
#
# test running programs
set bug_id 0
set testfile "run"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
# Run with no arguments.
# On VxWorks this justs make sure the program was run.
-send "run\n"
-expect -re "run\[\r\n\]+" {}
+gdb_run_cmd
+
if [istarget "*-*-vxworks*"] then {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
expect {
- -i $shell_id "Program exited normally" {
- unresolved "run \"$binfile\" with no args"
+ -i $gdb_spawn_id "Program exited normally" {
+ unresolved "run \"$testfile\" with no args"
}
- -i $shell_id -re "usage: factorial <number>" {
- pass "run \"$binfile\" with no args"
+ -i $gdb_spawn_id -re "usage: factorial <number>" {
+ pass "run \"$testfile\" with no args"
}
timeout {
- fail "(timeout) run \"$binfile\" with no args"
+ fail "(timeout) run \"$testfile\" with no args"
}
}
set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
expect -re "$prompt $" {}
} else {
expect {
- -re "Starting program.*usage: factorial <number>.*Program exited with code 01.*$prompt $" {
- pass "run \"$binfile\" with no args"
+ -re ".*usage: factorial <number>.*Program exited with code 01.*$prompt $" {
+ pass "run \"$testfile\" with no args"
}
-re ".*$prompt $" {
- fail "run \"$binfile\" with no args"
+ fail "run \"$testfile\" with no args"
+ verbose "expect_out is $expect_out(buffer)" 2
}
timeout {
- fail "(timeout) run \"$binfile\" no args"
+ fail "(timeout) run \"$testfile\" no args"
}
}
}
-
# Now run with some arguments
if [istarget "*-*-vxworks*"] then {
- send "run vxmain \"5\"\n"
+ send_gdb "run vxmain \"5\"\n"
expect -re "run vxmain \"5\"\r\n" {}
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
expect {
-i $shell_id "Program exited normally" {
- unresolved "run \"$binfile\" with arg"
+ unresolved "run \"$testfile\" with arg"
}
-i $shell_id "120" {
- pass "run \"$binfile\" with arg"
+ pass "run \"$testfile\" with arg"
}
timeout {
- fail "(timeout) run \"$binfile\" with arg"
+ fail "(timeout) run \"$testfile\" with arg"
}
}
set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
expect -re "$prompt $" {}
} else {
setup_xfail "mips-idt-*"
- send "run 5\n"
+ gdb_run_cmd 5
expect {
- -re "Starting program.*$binfile.*120.*$prompt $"\
- { pass "run \"$binfile\" with arg" }
- -re ".*$prompt $" { fail "run \"$binfile\" with arg" }
- timeout { fail "(timeout) run \"$binfile\" with arg" }
+ -re ".*120.*$prompt $"\
+ { pass "run \"$testfile\" with arg" }
+ -re ".*$prompt $" { fail "run \"$testfile\" with arg" }
+ timeout { fail "(timeout) run \"$testfile\" with arg" }
}
}
# Run again with same arguments.
setup_xfail "mips-idt-*"
-send "run\n"
-expect -re "run\[\r\n\]+" {}
+gdb_run_cmd
+
if [istarget "*-*-vxworks*"] then {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
expect {
-i $shell_id "Program exited normally" {
- unresolved "run \"$binfile\" again with same args"
+ unresolved "run \"$testfile\" again with same args"
}
- -i $shell_id "120" { pass "run \"$binfile\" again with same args" }
- timeout { fail "(timeout) run \"$binfile\" again with same args" }
+ -i $shell_id "120" { pass "run \"$testfile\" again with same args" }
+ timeout { fail "(timeout) run \"$testfile\" again with same args" }
}
set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
expect -re "$prompt $" {}
} else {
expect {
- -re "Starting program.*120.*$prompt $"\
- { pass "run \"$binfile\" again with same args" }
- -re ".*$prompt $" { fail "run \"$binfile\" again with same args" }
- timeout { fail "(timeout) run \"$binfile\" again with same args" }
+ -re ".*120.*$prompt $"\
+ { pass "run \"$testfile\" again with same args" }
+ -re ".*$prompt $" { fail "run \"$testfile\" again with same args" }
+ timeout { fail "(timeout) run \"$testfile\" again with same args" }
}
}
# Use "set args" command to specify no arguments as default and run again.
if [istarget "*-*-vxworks*"] then {
- send "set args main\n"
+ send_gdb "set args main\n"
} else {
- send "set args\n"
+ send_gdb "set args\n"
}
expect -re "$prompt $"
-send "run\n"
-expect -re "run\[\r\n\]+" {}
+gdb_run_cmd
+
if [istarget "*-*-vxworks*"] then {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
expect {
-i $shell_id "Program exited normally" {
unresolved "run after setting args to nil"
}
}
set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
expect -re "$prompt $" {}
} else {
expect {
- -re "Starting program.*usage: factorial <number>.*$prompt $" {
+ -re ".*usage: factorial <number>.*$prompt $" {
pass "run after setting args to nil"
}
-re ".*$prompt $" {
# Use "set args" command to specify an argument and run again.
setup_xfail "mips-idt-*"
if [istarget "*-*-vxworks*"] then {
- send "set args vxmain \"6\"\n"
+ send_gdb "set args vxmain \"6\"\n"
} else {
- send "set args 6\n"
+ send_gdb "set args 6\n"
}
expect -re "$prompt $"
-send "run\n"
-expect -re "run\[\r\n\]+" {}
+gdb_run_cmd
+
if [istarget "*-*-vxworks*"] then {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
expect {
-i $shell_id "Program exited normally" {
- unresolved "run \"$binfile\" again after setting args"
+ unresolved "run \"$testfile\" again after setting args"
}
-i $shell_id "720" {
- pass "run \"$binfile\" again after setting args"
+ pass "run \"$testfile\" again after setting args"
}
timeout {
- fail "(timeout) run \"$binfile\" again after setting args"
+ fail "(timeout) run \"$testfile\" again after setting args"
}
}
set timeout 10
+ verbose "Timeout is now $timeout seconds" 2
expect -re "$prompt $" {}
} else {
expect {
- -re "Starting program.*720.*$prompt $" {
- pass "run \"$binfile\" again after setting args"
+ -re ".*720.*$prompt $" {
+ pass "run \"$testfile\" again after setting args"
}
-re ".*$prompt $" {
- fail "run \"$binfile\" again after setting args"
+ fail "run \"$testfile\" again after setting args"
}
timeout {
- fail "(timeout) run \"$binfile\" again after setting args"
+ fail "(timeout) run \"$testfile\" again after setting args"
}
}
}
# GOAL: Test that shell is being used with "run". For remote debugging
# targets, there is no guarantee that a "shell" (whatever that is) is used.
if [isnative] then {
- send "run `echo 8`\n"
+ send_gdb "run `echo 8`\n"
expect {
-re "Starting program.*40320.*$prompt $" {
- pass "run \"$binfile\" with shell"
+ pass "run \"$testfile\" with shell"
}
-re ".*$prompt $" {
- fail "run \"$binfile\" with shell"
+ fail "run \"$testfile\" with shell"
}
timeout {
- fail "(timeout) run \"$binfile\" with shell"
+ fail "(timeout) run \"$testfile\" with shell"
}
}
}
# Reset the default arguments for VxWorks
if [istarget "*-*-vxworks*"] then {
- send "set args main\n"
+ send_gdb "set args main\n"
expect -re ".*$prompt $" {}
}
-
set bug_id 0
set testfile "bitfields"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-re "Break.*break1 \\(\\) at .*$srcfile:$decimal.*$prompt $" {
pass "running to break1"
}
- timeout { fail "running to break1"; return }
+ timeout { fail "(timeout) running to break1"; return }
}
if [gdb_test "print flags" ".*uc = 1 .*, s1 = 0, u1 = 0, s2 = 0, u2 = 0, s3 = 0, u3 = 0, s9 = 0, u9 = 0, sc = 0.*"] {
-re "Break.*break2 \\(\\) at .*$srcfile:$decimal.*$prompt $" {
pass "running to break2"
}
- timeout { fail "running to break2"; return }
+ timeout { fail "(timeout) running to break2"; return }
}
if [gdb_test "print/x flags" "= {uc = 0xff, s1 = 0x0, u1 = 0x1, s2 = 0x0, u2 = 0x3, s3 = 0x0, u3 = 0x7, s9 = 0x0, u9 = 0x1ff, sc = 0x0}" "bitfield containment #1"] {
-re "Break.*break3 \\(\\) at .*$srcfile:$decimal.*$prompt $" {
pass "running to break3"
}
- timeout { fail "running to break3"; return }
+ timeout { fail "(timeout) running to break3"; return }
}
if [gdb_test "print flags" ".*uc = 0 .*, s1 = 0, u1 = 1, s2 = 0, u2 = 3, s3 = 0, u3 = 7, s9 = 0, u9 = 511, sc = 0.*" "unsigned bitfield ranges"] {
-re "Break.*break4 \\(\\) at .*$srcfile:$decimal.*$prompt $" {
pass "running to break4"
}
- timeout { fail "running to break4"; return }
+ timeout { fail "(timeout) running to break4"; return }
}
if [gdb_test "print flags" "= {uc = 0 .*, s1 = 0, u1 = 0, s2 = 1, u2 = 0, s3 = 3, u3 = 0, s9 = 255, u9 = 0, sc = 0 .*}" "signed bitfields, max positive values"] {
# Determine if the target has signed bitfields so we can xfail the
# the signed bitfield tests if it doesn't.
- send "print i\n"
+ send_gdb "print i\n"
expect {
-re ".* = -256.*$prompt $" {
pass "determining signed-ness of bitfields"
}
}
-# Start with a fresh gdb.
-
-gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
+send_gdb "set print sevenbit-strings\n" ; expect -re "$prompt $"
bitfield_uniqueness
if [istarget "mips-idt-*"] then {
# Restart because IDT/SIM runs out of file descriptors.
# This file was written by Rob Savoye. (rob@cygnus.com)
if $tracelevel then {
- strace $tracelevel
- }
+ strace $tracelevel
+}
-global usestubs
#
# test running programs
set bug_id 0
set testfile "break"
-set srcfile ${srcdir}/${subdir}/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-if $usestubs {
- send "step\n"
- # if use stubs step out of the breakpoint() function.
- expect {
- -re "main.* at .*$prompt $" {}
- timeout { fail "single step at breakpoint() (timeout)" ; return 0 }
- }
+if [target_info exists gdb_stub] {
+ gdb_test "step" "(main.* at .*|.*in .*start.*)" "step for stub"
}
#
# test simple breakpoint setting commands
# Note that gdb-init.exp provides a "delete_breakpoints" proc
# for general use elsewhere.
-send "delete breakpoints\n"
+send_gdb "delete breakpoints\n"
expect {
- -re "Delete all breakpoints.*y or n. $"\
- { send "y\n"
+ -i $gdb_spawn_id -re "Delete all breakpoints.*$" {
+ send_gdb "y\n"
expect {
- -re ".*$prompt $" {
- setup_xfail "i*86-*-sysv4*" "sparc-sun-sunos4*" "alpha-dec-osf2*"
- fail "Delete all breakpoints when none"
+ -re "$prompt $" {
+ setup_xfail "i*86-*-sysv4*" "sparc-sun-sunos4*" "alpha-dec-osf*" "mips-dec-ultrix*"
+ fail "Delete all breakpoints when none (unexpected prompt)"
}
- timeout { fail "Delete all breakpoints when none (timeout)" }
+ timeout { fail "Delete all breakpoints when none (timeout after unexpected prompt)" }
}
}
- -re ".*$prompt $" { pass "Delete all breakpoints when none" }
- timeout { fail "Delete all breakpoints when none" }
+ -i $gdb_spawn_id -re ".*$prompt $" { pass "Delete all breakpoints when none" }
+ timeout { fail "Delete all breakpoints when none (timeout)" }
}
#
#
# check to see what breakpoints are set
#
-if $usestubs then {
+if [target_info exists gdb_stub] {
set main_line 57
} else {
set main_line 60
# FIXME: The rest of this test doesn't work with anything that can't
# handle arguments.
+# Huh? There doesn't *appear* to be anything that passes arguments
+# below.
if [istarget "mips-idt-*"] then {
return
}
#
# run until the breakpoint at main is hit. For non-stubs-using targets.
#
-if !$usestubs then {
+if ![target_info exists use_gdb_stub] {
if [istarget "*-*-vxworks*"] then {
- send "run vxmain \"2\"\n"
+ send_gdb "run vxmain \"2\"\n"
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
} else {
- send "run\n"
+ send_gdb "run\n"
}
expect {
-re "The program .* has been started already.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "Starting program.*Breakpoint \[0-9\]+,.*main .*argc.*argv.* at .*$srcfile:60.*60\[\t \]+if .argc.* \{.*$prompt $"\
{ pass "run until function breakpoint" }
-re ".*$prompt $" { fail "run until function breakpoint" }
- timeout { fail "(timeout) run until function breakpoint" }
+ timeout { fail "run until function breakpoint (timeout)" }
}
+} else {
+ gdb_test continue "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:60.*60\[\t \]+if .argc.*\{" \
+ "stubs continue"
}
#
#
# delete all breakpoints so we can start over, course this can be a test too
#
-send "delete breakpoints\n"
-expect {
- -re "Delete all breakpoints.*y or n.*$" {
- send "y\n"
- expect {
- -re ".*$prompt $" {
- send "info breakpoints\n"
- expect {
- -re "No breakpoints or watchpoints..*$prompt $" {
- pass "Deleted all breakpoints"
- }
- -re ".*$prompt $" { fail "Deleted all breakpoints" }
- timeout { fail "Deleted all breakpoints" }
- }
- }
- timeout { fail "Deleted all breakpoints" }
- }
- }
- -re ".*$prompt $" { fail "Deleted all breakpoints" }
- timeout { fail "Deleted all breakpoints" }
-}
-
+delete_breakpoints
#
# test temporary breakpoint at function
#
# test break at line number
#
-send "tbreak 64\n"
+send_gdb "tbreak 64\n"
expect {
-re "Breakpoint.*at.* file .*$srcfile, line 64.*$prompt $" { pass "Temporary breakpoint line number" }
-re ".*$prompt $" { pass "Temporary breakpoint line number" }
- timeout { fail "(timeout) breakpoint line number" }
+ timeout { fail "breakpoint line number (timeout)" }
}
gdb_test "tbreak 60" "Breakpoint.*at.* file .*$srcfile, line 60.*" "Temporary breakpoint line number"
#
# test break at line number in file
#
-send "tbreak $srcfile:70\n"
+send_gdb "tbreak $srcfile:70\n"
expect {
-re "Breakpoint.*at.* file .*$srcfile, line 70.*$prompt $" { pass "Temporary breakpoint line number in file" }
-re ".*$prompt $" { pass "Temporary breakpoint line number in file" }
- timeout { fail "(timeout) breakpoint line number in file" }
+ timeout { fail "Temporary breakpoint line number in file (timeout)" }
}
gdb_test "tbreak $srcfile:66" "Breakpoint.*at.* file .*$srcfile, line 66.*" "Temporary breakpoint line number in file"
#
# check to see what breakpoints are set (temporary this time)
#
-send "info break\n"
-expect {
- -re "Num Type.*Disp Enb Address.*What.*
-\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:$main_line.*
-\[0-9\]+\[\t \]+breakpoint del.*y.*in factorial at .*$srcfile:76.*
-\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:64.*
-\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:70.*$prompt $" {
- pass "Temporary breakpoint info"
- }
- -re ".*$prompt $" { fail "Temporary breakpoint info" }
- timeout { fail "(timeout) Temporary breakpoint info" }
-}
+gdb_test "info break" "Num Type.*Disp Enb Address.*What.*\[\r\n\]\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:$main_line.*\[\r\n\]\[0-9\]+\[\t \]+breakpoint del.*y.*in factorial at .*$srcfile:76.*\[\r\n\]\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:64.*\[\r\n\]\[0-9\]+\[\t \]+breakpoint del.*y.*in main at .*$srcfile:70.*" "Temporary breakpoint info"
proc test_clear_command {} {
gdb_test "break main" "Breakpoint.*at.*"
#
proc test_next_with_recursion {} {
- global prompt
- global decimal
-
-# FIXME: should be using runto
- send "kill\n"
- expect {
- -re ".*Kill the program being debugged.*y or n. $" {
- send "y\n"
- exp_continue
- }
- -re ".*$prompt $" {}
- timeout { fail "killing inferior" ; return }
+ global prompt
+ global decimal
+ global noresults
+ global binfile
+
+ if [istarget "d10v-*-*"] {
+ # Doesn't work right now.
+ return;
}
+ if [target_info exists use_gdb_stub] {
+ # Reload the program.
+ delete_breakpoints
+ gdb_load ${binfile};
+ } else {
+ # FIXME: should be using runto
+ gdb_test "kill" "" "kill program" "Kill the program being debugged.*y or n. $" "y"
- delete_breakpoints
+ delete_breakpoints
+ }
gdb_test "break factorial" "Breakpoint $decimal at .*" "break at factorial"
# Run until we call factorial with 6
if [istarget "*-*-vxworks*"] then {
- send "run vxmain \"6\"\n"
+ send_gdb "run vxmain \"6\"\n"
} else {
gdb_run_cmd
}
expect {
-re "Break.* factorial .value=6. .*$prompt $" {}
- timeout { fail "run to factorial(6)" ; return }
+ timeout { fail "run to factorial(6) (timeout)" ; return }
}
# Continue until we call factorial recursively with 5.
- send "continue\n"
+ send_gdb "continue\n"
expect {
-re "Continuing.*Break.* factorial .value=5. .*$prompt $" {}
- timeout { fail "continue to factorial(5)" ; return }
+ timeout { fail "continue to factorial(5) (timeout)" ; return }
}
# Do a backtrace just to confirm how many levels deep we are.
set result [gdb_test "backtrace" \
- "#0\[ \t\]+ factorial .value=5..*" \
- "backtrace from factorial(5)"]
+ "#0\[ \t\]+ factorial .value=5..*" \
+ "backtrace from factorial(5)"]
if $result!=0 then { return }
# Now a "next" should position us at the recursive call, which
# we will be performing with 4.
- send "next\n"
+ send_gdb "next\n"
expect {
-re ".* factorial .value - 1.;.*$prompt $" {}
timeout { fail "next to recursive call (timeout)" ; return }
delete_breakpoints
gdb_test next "\[0-9\]*\[\t \]+return \\(value\\);.*" \
- "next over recursive call"
+ "next over recursive call"
# OK, we should be back in the same stack frame we started from.
# Do a backtrace just to confirm.
set result [gdb_test "backtrace" \
- "#0\[ \t\]+ factorial .value=120.*\r\n#1\[ \t\]+ \[0-9a-fx\]+ in factorial .value=6..*" \
- "backtrace from factorial(5)"]
- if $result!=0 then { return }
-
+ "#0\[ \t\]+ factorial .value=120.*\r\n#1\[ \t\]+ \[0-9a-fx\]+ in factorial .value=6..*" \
+ "backtrace from factorial(5.1)"]
+ if { $result != 0 } { return }
+
+ if { $noresults == 1 } { return }
+ if [target_info exists use_gdb_stub] {
+ gdb_breakpoint "exit"
+ gdb_test "continue" "Continuing..*Breakpoint .*exit .code=0.*" "continue until exit in recursive next test"
+ } else {
# Continue until we exit. Should not stop again.
# Don't bother to check the output of the program, that may be
# extremely tough for some remote systems.
- gdb_test "continue"\
- "Continuing.\[\r\n0-9\]+Program exited normally\\."\
+ gdb_test "continue"\
+ "Continuing.\[\r\n0-9\]+Program exited normally\\..*"\
"continue until exit in recursive next test"
+ }
}
test_clear_command
test_next_with_recursion
# Reset the default arguments for VxWorks
-if [istarget "*-*-vxworks*"] then {
+if [istarget "*-*-vxworks*"] {
set timeout 10
- send "set args main\n"
+ verbose "Timeout is now $timeout seconds" 2
+ send_gdb "set args main\n"
expect -re ".*$prompt $" {}
}
-# Copyright (C) 1992 Free Software Foundation, Inc.
+# Copyright (C) 92, 96, 1997 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
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
# This file was written by Fred Fish. (fnf@cygnus.com)
+# and modified by Bob Manson. (manson@cygnus.com)
if $tracelevel then {
strace $tracelevel
set prms_id 0
set bug_id 0
-set prototypes 0
set testfile "callfuncs"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-# build the first test case
-execute_anywhere "echo set prototypes 1 > ${objdir}/${subdir}/callfuncs.tmp"
-if { [compile "-g ${srcdir}/${subdir}/${srcfile} -o ${binfile} "] != "" } {
- execute_anywhere "rm -f ${objdir}/${subdir}/callfuncs.tmp"
+set prototypes 1
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+ set prototypes 0;
# built the second test case since we can't use prototypes
warning "Prototypes not supported, rebuilding with -DNO_PROTOTYPES"
- execute_anywhere "echo set prototypes 0 > ${objdir}/${subdir}/callfuncs.tmp"
- if { [compile "-g -DNO_PROTOTYPES ${srcdir}/${subdir}/${srcfile} -o ${binfile} "] != "" } {
+ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DNO_PROTOTYPES}] != "" } {
perror "Couldn't compile ${testfile}.c"
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c >> ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci"
- return -1
+
+if [get_compiler_info ${binfile}] {
+ return -1;
}
-source ${binfile}.ci
# The a29k can't call functions, so don't even bother with this test.
-if [istarget "a29k-*-udi"] then {
- setup_xfail "a29k-*-udi" 2416
- fail "a29k-*-udi can not call functions"
+if [target_info exists gdb,cannot_call_functions] {
+ setup_xfail "*-*-*" 2416
+ fail "This target can not call functions"
continue
}
-# The h8300 simulator can't call functions, so don't even bother with this test.
-if [istarget "h8300*-*-*"] then {
- setup_xfail "h8300*-*-*"
- fail "h8300*-*-* simulator can not call functions"
- continue
-}
# Set the current language to C. This counts as a test. If it
# fails, then we skip the other tests.
proc set_lang_c {} {
global prompt
- send "set language c\n"
+ send_gdb "set language c\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language c (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"c\".*$prompt $" {
pass "set language to \"c\""
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
-send "set print address off\n" ; expect -re "$prompt $"
-send "set width 0\n" ; expect -re "$prompt $"
+gdb_test "set print sevenbit-strings" ""
+gdb_test "set print address off" ""
+gdb_test "set width 0" ""
if [set_lang_c] then {
if [runto_main] then {
+ gdb_test "next" ".*"
do_function_calls
} else {
fail "C function calling tests suppressed"
set bug_id 0
set testfile "run"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
proc progvar_simple_if_test {} {
global prompt
- global noargs
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping progvar_simple_if_test because of noargs."
return
}
proc progvar_simple_while_test {} {
global prompt
- global noargs
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping progvar_simple_while_test because of noargs."
return
}
proc progvar_complex_if_while_test {} {
global prompt
- global noargs
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping progvar_simple_if_while_test because of noargs."
return
}
}
proc if_while_breakpoint_command_test {} {
- global noargs
-
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping if_while_breakpoint_command_test because of noargs."
return
}
delete_breakpoints
gdb_test "break factorial" "Breakpoint.*at.*"
- send "commands\n"
+ send_gdb "commands\n"
expect {
-re "End with" {
pass "commands in if_while_breakpoint_command_test"
# Test that we can run the inferior from breakpoint commands.
proc infrun_breakpoint_command_test {} {
- global noargs
-
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping infrun_breakpoint_command_test because of noargs."
return
}
}
proc breakpoint_command_test {} {
- global noargs
-
- if $noargs {
+ if [target_info exists gdb,noargs] {
verbose "Skipping breakpoint_command_test because of noargs."
return
}
gdb_test "set \$foo = 4" "" "set foo in user_defined_command_test"
- send "define mycommand\n"
+ send_gdb "define mycommand\n"
expect {
-re "End with" {
pass "define mycommand in user_defined_command_test"
-# Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
+# Copyright (C) 1992, 1993, 1994, 1995, 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
set testfile "coremaker"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcdir}/${subdir}/${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci file"
- return -1
+if [get_compiler_info ${binfile}] {
+ return -1;
}
-source ${binfile}.ci
# Create a core file named "corefile" rather than just "core", to
# avoid problems with sys admin types that like to regularly prune all
# the name of the program to "core".
set found 0
catch "system \"(cd ${objdir}/${subdir}; ulimit -c unlimited; ${binfile}; true) >/dev/null 2>&1\""
-# execute_anywhere "${binfile}"
+# remote_exec "${binfile}"
foreach i "${objdir}/${subdir}/core ${objdir}/${subdir}/core.coremaker.c ${binfile}.core" {
- set exec_output [execute_anywhere "ls $i"]
- if [ regexp "No such file or directory|not found" ${exec_output} ] {
- continue
- } else {
- execute_anywhere "mv $i ${objdir}/${subdir}/corefile"
+ if [remote_file build exists $i] {
+ remote_exec build "mv $i ${objdir}/${subdir}/corefile"
set found 1
}
}
# See previous comments above, they are still applicable.
#
-gdb_exit
+close;
+
if $verbose>1 then {
send_user "Spawning $GDB -nw $GDBFLAGS $binfile -core=$objdir/$subdir/corefile\n"
}
-spawn $GDB -nw $GDBFLAGS $binfile -core=$objdir/$subdir/corefile
+eval "spawn $GDB -nw $GDBFLAGS $binfile -core=$objdir/$subdir/corefile";
expect {
-re "Core was generated by .*coremaker.*\r\n\#0 .*\(\).*\r\n$prompt $" {
pass "args: execfile -core=corefile"
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
+close;
+
# Now restart normally.
-gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
# Test basic corefile recognition via core-file command.
-send "core-file $objdir/$subdir/corefile\n"
+send_gdb "core-file $objdir/$subdir/corefile\n"
expect {
-re "Core was generated by .*coremaker.*\r\n\#0 .*\(\).*\r\n$prompt $" {
pass "core-file command"
gdb_test "print coremaker_bss" "\\\$$decimal = 10"
gdb_test "print coremaker_ro" "\\\$$decimal = 201"
-setup_xfail "i*86-*-sysv4*" "i*86-*-linux*" "m68*-*-hpux*"
+setup_xfail "i*86-*-sysv4*" "i*86-pc-linux*-gnu" "m68*-*-hpux*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
gdb_test "print func2::coremaker_local" "\\\$$decimal = {0, 1, 2, 3, 4}"
# file correctly. I don't think the other tests do this.
# Haven't investigated this xfail
-setup_xfail "m68k-*-hpux*" "i*86-*-sysv4*" "i*86-*-linux*"
+setup_xfail "m68k-*-hpux*" "i*86-*-sysv4*" "i*86-pc-linux*-gnu"
gdb_test "bt" "abort.*func2.*func1.*main.*" "backtrace in corefile.exp"
# Test ability to read mmap'd data
gdb_test "x/8bd buf1" ".*:.*0.*1.*2.*3.*4.*5.*6.*7" "accessing original mmap data in core file"
setup_xfail "*-*-sunos*" "*-*-ultrix*" "*-*-aix*"
-send "x/8bd buf2\n"
+send_gdb "x/8bd buf2\n"
expect {
-re ".*:.*0.*1.*2.*3.*4.*5.*6.*7.*$prompt $" {
pass "accessing mmapped data in core file"
}
- -re "0x\[f\]*:.*Cannot access memory at address 0x\[f\]*" {
+ -re "0x\[f\]*:.*Cannot access memory at address 0x\[f\]*.*$prompt $" {
fail "accessing mmapped data (mapping failed at runtime)"
}
- -re "0x.*:.*Cannot access memory at address 0x.*" {
+ -re "0x.*:.*Cannot access memory at address 0x.*$prompt $" {
fail "accessing mmapped data (mapping address not found in core file)"
}
-re ".*$prompt $" {
gdb_unload
set file_loaded 0
- send "file $objdir/$subdir/$binfile\n"
+ send_gdb "file $objdir/$subdir/$binfile\n"
expect {
-re "A program is being debugged already. Kill it.*y or n." {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "Reading symbols from $objdir/$subdir/$binfile\[.\]+done\..*$prompt $" {
return
}
- send "file $objdir/$subdir/$binfile\n"
+ send_gdb "file $objdir/$subdir/$binfile\n"
expect {
-re "A program is being debugged already. Kill it.*y or n." {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "Reading symbols from $objdir/$subdir/$binfile\[.\]+done\..*$prompt $" {
global binfile
global bfdformat
global det_file
- send "ptype main\n"
+ send_gdb "ptype main\n"
expect {
-re "type = int \[)(\]+\r\n$prompt $" {}
timeout { fail "(timeout) $binfile ($bfdformat) function main" ; return }
gdb_exit
gdb_start
+match_max 8000
+
#
# test default actions of gdb commands
#
-load_lib gdb.exp
+#load_lib gdb.exp
-gdb_test "add-symbol-file" "add-symbol-file takes a file name and an address"
+gdb_test "add-symbol-file" "add-symbol-file takes a file name and an address" "add-symbol-file"
setup_xfail "mips-idt-*"
-send "attach\n"
+send_gdb "attach\n"
expect {
-re "Argument required .(process-id|program) to attach.*$prompt $"\
{ pass "attach" }
-re "Don't know how to attach. Try \"help target\"..*$prompt $"\
{ pass "attach" }
-re "Kill it. .y or n." {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "$prompt $" { fail "attach" }
}
# FIXME: attach kills the udi connection
-if [istarget "a29k-*-udi"] then {
+if { [istarget "a29k-*-udi"] } {
gdb_exit
gdb_start
}
-gdb_test "break" "No default breakpoint address now."
-foreach i "b br bre brea" {
- gdb_test $i "No default breakpoint address now." "break \"$i\" abbreviation"
- }
+if ![target_info exists use_gdb_stub] {
+ gdb_test "break" "No default breakpoint address now." "break"
+ foreach i "b br bre brea" {
+ gdb_test $i "No default breakpoint address now." "break \"$i\" abbreviation"
+ }
-setup_xfail "mips-idt-*" "a29k-*-udi" "h8300-*-hms"
-gdb_test "backtrace" "No stack."
-foreach i "bt ba bac" {
- setup_xfail "mips-idt-*" "a29k-*-udi" "h8300-*-hms"
- gdb_test $i "No stack." "backtrace \"$i\" abbreviation"
+
+ setup_xfail "mips-idt-*" "a29k-*-udi"
+ gdb_test "backtrace" "No stack."
+ foreach i "bt ba bac" {
+ setup_xfail "mips-idt-*" "a29k-*-udi"
+ gdb_test $i "No stack." "backtrace \"$i\" abbreviation"
+ }
+} else {
+ warning "Skipping backtrace and break tests because of GDB stub."
}
# This works on the MIPS IDT board, but confuses future tests.
if ![istarget "mips-idt-*"] then {
setup_xfail "a29k-*-udi"
- gdb_test "continue" "The program is not being run."
+ gdb_test "continue" "The program is not being run." "continue"
setup_xfail "a29k-*-udi"
gdb_test "c" "The program is not being run." "continue \"c\" abbreviation"
}
}
#test call
-send "call\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "call" }
- -re ".*$prompt $" { fail "call" }
- timeout { fail "(timeout) call" }
- }
+gdb_test "call" "The history is empty..*" "call"
#test catch
-send "catch\n"
-expect {
- -re "No selected frame..*$prompt $"\
- { pass "catch" }
- -re ".*$prompt $" { fail "catch" }
- timeout { fail "(timeout) catch" }
- }
-
+gdb_test "catch" "No selected frame..*" "catch"
#test cd
-send "cd\n"
-expect {
- -re "Argument required .new working directory.*$prompt $"\
- { pass "cd" }
- -re ".*$prompt $" { fail "cd" }
- timeout { fail "(timeout) cd" }
- }
-
+gdb_test "cd" "Argument required .new working directory.*" "cd"
#test clear
-send "clear\n"
-expect {
- -re "No source file specified..*$prompt $"\
- { pass "clear" }
- -re ".*$prompt $" { fail "clear" }
- timeout { fail "(timeout) clear" }
- }
-
+gdb_test "clear" "No source file specified..*" "clear"
#test commands
-send "commands\n"
-expect {
- -re "No breakpoint number 0..*$prompt $"\
- { pass "commands" }
- -re ".*$prompt $" { fail "commands" }
- timeout { fail "(timeout) commands" }
- }
-
+gdb_test "commands" "No breakpoint number 0..*" "commands"
#test condition
-send "condition\n"
-expect {
- -re "Argument required .breakpoint number.*$prompt $"\
- { pass "condition" }
- -re ".*$prompt $" { fail "condition" }
- timeout { fail "(timeout) condition" }
- }
-
+gdb_test "condition" "Argument required .breakpoint number.*" "condition"
#test core-file
-send "core-file\n"
-expect {
- -re "No core file now..*$prompt $"\
- { pass "core-file" }
- -re "GDB can't read core files on this machine..*$prompt $"\
- { pass "core-file" }
- -re ".*$prompt $" { fail "core-file" }
- timeout { fail "(timeout) core-file" }
- }
-
-
+gdb_test "core-file" "No core file now.|GDB can't read core files on this machine." "core-file"
#test delete "d" abbreviation
-send "d\n"
-expect {
- -re "$prompt $"\
- { pass "delete \"d\" abbreviation" }
- timeout { fail "(timeout) delete \"d\" abbreviation" }
- }
-
-
+gdb_test "d" "" "delete \"d\" abbreviation"
#test delete
-send "delete\n"
-expect {
- -re "$prompt $"\
- { pass "delete" }
- timeout { fail "(timeout) delete" }
- }
-
-
+gdb_test "delete" "" "delete"
#test define
-send "define\n"
-expect {
- -re "Argument required \[(\]name of command to define\[)\]..*$prompt $"\
- { pass "define" }
- timeout { fail "(timeout) define" }
- }
-
-
+gdb_test "define" "Argument required \[(\]name of command to define\[)\]." "define"
#test delete breakpoints
-send "delete breakpoints\n"
-expect {
- -re "$prompt $"\
- { pass "delete breakpoints" }
- timeout { fail "(timeout) delete breakpoints" }
- }
-
-
+gdb_test "delete breakpoints" "" "delete breakpoints"
#test delete display
# FIXME -- need to dump full output to detailed log
-send "delete display\n"
+send_gdb "delete display\n"
expect {
- -re "delete display.*Delete all auto-display expressions.*y or n. $"\
- { send "y\n"
- expect {
- -re "$prompt $"\
- { pass "delete display prompt" }
- timeout { fail "(timeout) delete display prompt" }
- }
- }
- timeout { fail "(timeout) delete display prompt" }
-
+ -re "Delete all auto-display expressions.*y or n. $" {
+ send_gdb "y\n"
+ expect {
+ -re "$prompt $" { pass "delete display prompt" }
+ timeout { fail "(timeout) delete display prompt" }
}
+ }
+ timeout { fail "(timeout) delete display prompt" }
+}
#test detach
-gdb_test "detach" ""
-#send "detach\n"
-#expect {
-# -re "$prompt $"\
-# { pass "detach" }
-# timeout { fail "(timeout) detach" }
-# }
+gdb_test "detach" "" "detach"
# FIXME: continue kills the udi connection
if [istarget "a29k-*-udi"] then {
#test directory
# FIXME -- need to dump full output to detailed log
-send "directory\n"
-expect {
- -re "Reinitialize source path to empty.*y or n. $"\
- { send "y\n"
- expect {
- -re "Source directories searched: .cdir:.cwd.*$prompt $"\
- { pass "directory prompt" }
- timeout { fail "(timeout) directory prompt" }
- }
- }
- }
-
-#test disable "dis" abbreviation
-send "dis\n"
+send_gdb "directory\n"
expect {
- -re "$prompt $"\
- { pass "disable \"dis\" abbreviation" }
- timeout { fail "(timeout) disable \"dis\" abbreviation" }
+ -re "Reinitialize source path to empty.*y or n. $" {
+ send_gdb "y\n"
+ expect {
+ -re "Source directories searched: .cdir:.cwd.*$prompt $"\
+ { pass "directory prompt" }
+ timeout { fail "(timeout) directory prompt" }
}
+ }
+}
-
+#test disable "dis" abbreviation
+gdb_test "dis" "" "disable \"dis\" abbreviation"
#test disable "disa" abbreviation
-send "disa\n"
-expect {
- -re "$prompt $"\
- { pass "disable \"disa\" abbreviation" }
- timeout { fail "(timeout) disable \"disa\" abbreviation" }
- }
-
-
+gdb_test "disa" "" "disable \"disa\" abbreviation"
#test disable
-send "disable\n"
-expect {
- -re "$prompt $"\
- { pass "disable" }
- timeout { fail "(timeout) disable" }
- }
-
-
+gdb_test "disable" "" "disable"
#test disable breakpoints
-send "disable breakpoints\n"
-expect {
- -re "$prompt $"\
- { pass "disable breakpoints" }
- timeout { fail "(timeout) disable breakpoints" }
- }
-
-
+gdb_test "disable breakpoints" "" "disable breakpoints"
#test disable display
-send "disable display\n"
-expect {
- -re "$prompt $"\
- { pass "disable display" }
- timeout { fail "(timeout) disable display" }
- }
-
-
+gdb_test "disable display" "" "disable display"
#test disassemble
-send "disassemble\n"
-expect {
- -re "No frame selected..*$prompt $"\
- { pass "disassemble" }
- -re ".*$prompt $" { fail "disassemble" }
- timeout { fail "(timeout) disassemble" }
- }
-
-
+gdb_test "disassemble" "No frame selected." "disassemble"
#test display
-send "display\n"
-expect {
- -re "$prompt $"\
- { pass "display" }
- timeout { fail "(timeout) display" }
- }
-
-
+gdb_test "display" "" "display"
#test do
-send "do\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "do" }
- -re ".*$prompt $" { fail "do" }
- timeout { fail "(timeout) do" }
- }
-
-
+gdb_test "do" "No stack." "do"
#test document
-send "document\n"
-expect {
- -re "Argument required .name of command to define.*$prompt $"\
- { pass "document" }
- -re ".*$prompt $" { fail "document" }
- timeout { fail "(timeout) document" }
- }
-
-
+gdb_test "document" "Argument required .name of command to define.*" "document"
#test down
-send "down\n"
-expect {
- -re "No stack.*$prompt $"\
- { pass "down" }
- -re ".*$prompt $" { fail "down" }
- timeout { fail "(timeout) down" }
- }
-
-
+gdb_test "down" "No stack.*" "down"
#test down-silently
-send "down-silently\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "down-silently" }
- -re ".*$prompt $" { fail "down-silently" }
- timeout { fail "(timeout) down-silently" }
- }
-
-
+gdb_test "down-silently" "No stack." "down-silently"
#test echo
-send "echo\n"
-expect {
- -re "$prompt $"\
- { pass "echo" }
- timeout { fail "(timeout) echo" }
- }
-
-
+gdb_test "echo" "" "echo"
#test enable breakpoints delete
-send "enable breakpoints delete\n"
-expect {
- -re "Argument required .one or more breakpoint numbers.*$prompt $"\
- { pass "enable breakpoints delete" }
- -re ".*$prompt $" { fail "enable breakpoints delete" }
- timeout { fail "(timeout) enable breakpoints delete" }
- }
-
-
+gdb_test "enable breakpoints delete" "Argument required .one or more breakpoint numbers.*" "enable breakpoints delete"
#test enable breakpoints once
-send "enable breakpoints once\n"
-expect {
- -re "Argument required .one or more breakpoint numbers.*$prompt $"\
- { pass "enable breakpoints once" }
- -re ".*$prompt $" { fail "enable breakpoints once" }
- timeout { fail "(timeout) enable breakpoints once" }
- }
-
-
+gdb_test "enable breakpoints once" "Argument required .one or more breakpoint numbers.*" "enable breakpoints once"
#test enable breakpoints
-send "enable breakpoints\n"
-expect {
- -re "$prompt $"\
- { pass "enable breakpoints" }
- timeout { fail "(timeout) enable breakpoints" }
- }
-
-
+gdb_test "enable breakpoints" "" "enable breakpoints"
#test enable delete
-send "enable delete\n"
-expect {
- -re "Argument required .one or more breakpoint numbers.*$prompt $"\
- { pass "enable delete" }
- -re ".*$prompt $" { fail "enable delete" }
- timeout { fail "(timeout) enable delete" }
- }
-
-
+gdb_test "enable delete" "Argument required .one or more breakpoint numbers.*" "enable delete"
#test enable display
-send "enable display\n"
-expect {
- -re "$prompt $"\
- { pass "enable display" }
- timeout { fail "(timeout) enable display" }
- }
-
-
+gdb_test "enable display" "" "enable display"
#test enable once
-send "enable once\n"
-expect {
- -re "Argument required .one or more breakpoint numbers.*$prompt $"\
- { pass "enable once" }
- -re ".*$prompt $" { fail "enable once" }
- timeout { fail "(timeout) enable once" }
- }
-
-
+gdb_test "enable once" "Argument required .one or more breakpoint numbers.*" "enable once"
#test enable
-send "enable\n"
-expect {
- -re "$prompt $"\
- { pass "enable" }
- timeout { fail "(timeout) enable" }
- }
-
-
+gdb_test "enable" "" "enable"
#test exec-file
-send "exec-file\n"
+send_gdb "exec-file\n"
expect {
-re "No exec file now..*$prompt $" {
pass "exec-file"
}
-re "exec-file.*A program is being debugged already. Kill it. .y or n.*$" {
- send "n\n"
+ send_gdb "n\n"
if $verbose>1 then {
send_user "\tDidn't kill program being debugged\n"
}
pass "exec-file"
}
-re "$prompt $" { fail "exec-file" }
- timeout { fail "(timeout) exec-file" }
- }
-
+ timeout { fail "(timeout) exec-file" }
+}
#test frame "f" abbreviation
setup_xfail "a29k-*-udi"
-send "f\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "frame \"f\" abbreviation" }
- -re ".*$prompt $" { fail "frame \"f\" abbreviation" }
- timeout { fail "(timeout) frame \"f\" abbreviation" }
- }
-
-
+gdb_test "f" "No stack." "frame \"f\" abbreviation"
#test frame
setup_xfail "a29k-*-udi"
-send "frame\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "frame" }
- -re ".*$prompt $" { fail "frame" }
- timeout { fail "(timeout) frame" }
- }
-
-
+gdb_test "frame" "No stack." "frame"
#test fg
setup_xfail "a29k-*-udi"
-send "fg\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "fg" }
- -re ".*$prompt $" { fail "fg" }
- timeout { fail "(timeout) fg" }
- }
-
+gdb_test "fg" "The program is not being run." "fg"
# FIXME: fg kills the udi connection
-if [istarget "a29k-*-udi"] then {
- gdb_exit
- gdb_start
-}
-
#test file
-send "file\n"
+send_gdb "file\n"
expect {
- -re "No exec file now..*$prompt $"\
- { pass "file" }
- -re ".*A program is being debugged already. Kill it. .y or n.*$" {
- send "n\n"
- if $verbose>1 then {
- send_user "\t\tDidn't kill program being debugged\n"
- }
- expect -re "$prompt $" { }
- pass "file"
- }
- -re ".*$prompt $" { fail "file" }
- timeout { fail "(timeout) file" }
+ -re "No exec file now..*$prompt $"\
+ { pass "file" }
+ -re ".*A program is being debugged already. Kill it. .y or n.*$" {
+ send_gdb "n\n"
+ if $verbose>1 then {
+ send_user "\t\tDidn't kill program being debugged\n"
}
-
+ expect -re "$prompt $" { }
+ pass "file"
+ }
+ -re ".*$prompt $" { fail "file" }
+ timeout { fail "(timeout) file" }
+}
#test finish
setup_xfail "a29k-*-udi"
-send "finish\n"
-expect {
- -re "The program is not running..*$prompt $"\
- { pass "finish" }
- -re ".*$prompt $" { fail "finish" }
- timeout { fail "(timeout) finish" }
- }
-
-
+gdb_test "finish" "The program is not running." "finish"
#test forward-search
# The message here comes from the regexp library, not gdb, and so can
# vary on different systems.
-send "forward-search\n"
-expect {
- -re "No previous regular expression.*$prompt $"\
- { pass "forward-search" }
- -re "There is no previous regular expression.*$prompt $"\
- { pass "forward-search" }
- -re ".*$prompt $" { fail "forward-search" }
- timeout { fail "(timeout) forward-search" }
- }
-
-
+gdb_test "forward-search" "No previous regular expression.*|There is no previous regular expression.*" "forward-search"
#test help "h" abbreviation
-send "h\n"
-expect {
- -re "List of classes of commands:.*
-running -- Running the program.*
-stack -- Examining the stack.*
-data -- Examining data.*
-breakpoints -- Making program stop at certain points.*
-files -- Specifying and examining files.*
-status -- Status inquiries.*
-support -- Support facilities.*
-user-defined -- User-defined commands.*
-aliases -- Aliases of other commands.*
-obscure -- Obscure features.*
-Type \"help\" followed by a class name for a list of commands in that class..*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help \"h\" abbreviation" }
- -re ".*$prompt $" { fail "help \"h\" abbreviation" }
- timeout { fail "(timeout) help \"h\" abbreviation" }
- }
-
-
+gdb_test "h" "List of classes of commands:.*\[\r\n\]+running -- Running the program.*\[\r\n\]+stack -- Examining the stack.*\[\r\n\]+data -- Examining data.*\[\r\n\]+breakpoints -- Making program stop at certain points.*\[\r\n\]+files -- Specifying and examining files.*\[\r\n\]+status -- Status inquiries.*\[\r\n\]+support -- Support facilities.*\[\r\n\]+user-defined -- User-defined commands.*\[\r\n\]+aliases -- Aliases of other commands.*\[\r\n\]+obscure -- Obscure features.*\[\r\n\]+Type \"help\" followed by a class name for a list of commands in that class..*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help \"h\" abbreviation"
#test help
-send "help\n"
-expect {
- -re "List of classes of commands:.*
-running -- Running the program.*
-stack -- Examining the stack.*
-data -- Examining data.*
-breakpoints -- Making program stop at certain points.*
-files -- Specifying and examining files.*
-status -- Status inquiries.*
-support -- Support facilities.*
-user-defined -- User-defined commands.*
-aliases -- Aliases of other commands.*
-obscure -- Obscure features.*
-Type \"help\" followed by a class name for a list of commands in that class..*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help" }
- -re ".*$prompt $" { fail "help" }
- timeout { fail "(timeout) help" }
- }
-
-
+gdb_test "help" "List of classes of commands:.*\[\r\n\]+running -- Running the program.*\[\r\n\]+stack -- Examining the stack.*\[\r\n\]+data -- Examining data.*\[\r\n\]+breakpoints -- Making program stop at certain points.*\[\r\n\]+files -- Specifying and examining files.*\[\r\n\]+status -- Status inquiries.*\[\r\n\]+support -- Support facilities.*\[\r\n\]+user-defined -- User-defined commands.*\[\r\n\]+aliases -- Aliases of other commands.*\[\r\n\]+obscure -- Obscure features.*\[\r\n\]+Type \"help\" followed by a class name for a list of commands in that class..*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help"
#test handle
-send "handle\n"
-expect {
- -re "Argument required .signal to handle.*$prompt $"\
- { pass "handle" }
- -re ".*$prompt $" { fail "handle" }
- timeout { fail "(timeout) handle" }
- }
-
-
+gdb_test "handle" "Argument required .signal to handle.*" "handle"
#test info "i" abbreviation
-send "i\n"
-expect {
- -re "\"info\" must be followed by the name of an info command..*
-List of info subcommands:.*
-Type \"help info\" followed by info subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "info \"i\" abbreviation" }
- -re ".*$prompt $" { fail "info \"i\" abbreviation" }
- timeout { fail "(timeout) info \"i\" abbreviation" }
- }
-
-
+gdb_test "i" "\"info\" must be followed by the name of an info command..*\[\r\n\]+List of info subcommands:.*\[\r\n\]+Type \"help info\" followed by info subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "info \"i\" abbreviation"
#test info
-send "info\n"
-expect {
- -re "\"info\" must be followed by the name of an info command..*
-List of info subcommands:.*
-Type \"help info\" followed by info subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "info" }
- -re ".*$prompt $" { fail "info" }
- timeout { fail "(timeout) info" }
- }
-
-
+gdb_test "info" "\"info\" must be followed by the name of an info command..*\[\r\n\]+List of info subcommands:.*\[\r\n\]+Type \"help info\" followed by info subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "info"
#test ignore
-send "ignore\n"
-expect {
- -re "Argument required .a breakpoint number.*$prompt $"\
- { pass "ignore" }
- -re ".*$prompt $" { fail "ignore" }
- timeout { fail "(timeout) ignore" }
- }
-
-
+gdb_test "ignore" "Argument required .a breakpoint number.*" "ignore"
#test info address
-send "info address\n"
-expect {
- -re "Argument required..*$prompt $"\
- { pass "info address" }
- -re ".*$prompt $" { fail "info address" }
- timeout { fail "(timeout) info address" }
- }
-
-
+gdb_test "info address" "Argument required." "info address"
#test info all-registers
setup_xfail "a29k-*-udi"
-send "info all-registers\n"
-expect {
- -re "The program has no registers now..*$prompt $"\
- { pass "info all-registers" }
- -re ".*$prompt $" { fail "info all-registers" }
- timeout { fail "(timeout) info all-registers" }
- }
-
-
+gdb_test "info all-registers" "The program has no registers now." "info all-registers"
#test info args
-send "info args\n"
-expect {
- -re "No frame selected..*$prompt $"\
- { pass "info args" }
- -re ".*$prompt $" { fail "info args" }
- timeout { fail "(timeout) info args" }
- }
-
-
+gdb_test "info args" "No frame selected." "info args"
#test info bogus-gdb-command
-send "info bogus-gdb-command\n"
-expect {
- -re "Undefined info command: \"bogus-gdb-command\". Try \"help info\"..*$prompt $"\
- { pass "info bogus-gdb-command" }
- -re ".*$prompt $" { fail "info bogus-gdb-command" }
- timeout { fail "(timeout) info bogus-gdb-command" }
- }
-
-
+gdb_test "info bogus-gdb-command" "Undefined info command: \"bogus-gdb-command\". Try \"help info\".*" "info bogus-gdb-command"
#test info breakpoints
-send "info breakpoints\n"
-expect {
- -re "No breakpoints or watchpoints..*$prompt $"\
- { pass "info breakpoints" }
- -re ".*$prompt $" { fail "info breakpoints" }
- timeout { fail "(timeout) info breakpoints" }
- }
-
-
+gdb_test "info breakpoints" "No breakpoints or watchpoints." "info breakpoints"
#test info catch
-send "info catch\n"
-expect {
- -re "No frame selected..*$prompt $"\
- { pass "info catch" }
- -re ".*$prompt $" { fail "info catch" }
- timeout { fail "(timeout) info catch" }
- }
-
-
+gdb_test "info catch" "No frame selected." "info catch"
#test info copying
# FIXME -- doesn't work worth a shit
-#send "info copying\n"
-#expect {
-# -re "GNU GENERAL PUBLIC LICENSE.*\
-#of preserving the free status of all derivatives of our free software and.*\
-#of promoting the sharing and reuse of software generally..*$prompt $"\
-# { pass "info copying" }
-# timeout { fail "(timeout) info copying" }
+#send_gdb "info copying"
+# -re "GNU GENERAL PUBLIC LICENSE.*#of preserving the free status of all derivatives of our free software and.*#of promoting the sharing and reuse of software generally."#
+gdb_test "info copying"
# }
#
#
-
#test info display
-send "info display\n"
-expect {
- -re "There are no auto-display expressions now..*$prompt $"\
- { pass "info display" }
- -re ".*$prompt $" { fail "info display" }
- timeout { fail "(timeout) info display" }
- }
-
-
+gdb_test "info display" "There are no auto-display expressions now." "info display"
#test info frame "f" abbreviation
-send "info f\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "info frame \"f\" abbreviation" }
- -re "No selected frame..*$prompt $"\
- { pass "info frame \"f\" abbreviation" }
- -re ".*$prompt $" { fail "info frame \"f\" abbreviation" }
- timeout { fail "(timeout) info frame \"f\" abbreviation" }
- }
-
-
+gdb_test "info f" "No stack.*|No selected frame.*" "info frame \"f\" abbreviation"
#test info frame
-send "info frame\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "info frame" }
- -re "No selected frame..*$prompt $"\
- { pass "info frame" }
- -re ".*$prompt $" { fail "info frame" }
- timeout { fail "(timeout) info frame" }
- }
-
-
+gdb_test "info frame" "No stack.|No selected frame." "info frame"
#test info files
-send "info files\n"
-expect {
- -re "$prompt $"\
- { pass "info files" }
- timeout { fail "(timeout) info files" }
- }
-
-
+gdb_test "info files" "" "info files"
#test info float
-send "info float\n"
-expect {
- -re "No floating point info available for this processor..*$prompt $"\
- { pass "info float" }
- -re ".*$prompt $" { fail "info float" }
- timeout { fail "(timeout) info float" }
- }
-
-
+gdb_test "info float" "No floating point info available for this processor." "info float"
#test info functions
-send "info functions\n"
-expect {
- -re "All defined functions:.*$prompt $"\
- { pass "info functions" }
- -re ".*$prompt $" { fail "info functions" }
- timeout { fail "(timeout) info functions" }
- }
-
-gdb_test "info line" "No line number information.*" "info line"
-
+gdb_test "info functions" "All defined functions:" "info functions"
#test info locals
-send "info locals\n"
-expect {
- -re "No frame selected..*$prompt $"\
- { pass "info locals" }
- -re ".*$prompt $" { fail "info locals" }
- timeout { fail "(timeout) info locals" }
- }
-
-
+gdb_test "info locals" "No frame selected." "info locals"
#test info program
setup_xfail "a29k-*-udi"
-send "info program\n"
-expect {
- -re "The program being debugged is not being run..*$prompt $"\
- { pass "info program" }
- -re ".*$prompt $" { fail "info program" }
- timeout { fail "(timeout) info program" }
- }
-
-
+gdb_test "info program" "The program being debugged is not being run." "info program"
#test info registers
setup_xfail "a29k-*-udi"
-send "info registers\n"
-expect {
- -re "The program has no registers now..*$prompt $"\
- { pass "info registers" }
- -re ".*$prompt $" { fail "info registers" }
- timeout { fail "(timeout) info registers" }
- }
-
-
+gdb_test "info registers" "The program has no registers now." "info registers"
#test info stack "s" abbreviation
setup_xfail "a29k-*-udi"
-send "info s\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "info stack \"s\" abbreviation" }
- -re ".*$prompt $" { fail "info stack \"s\" abbreviation" }
- timeout { fail "(timeout) info stack \"s\" abbreviation" }
- }
-
-
+gdb_test "info s" "No stack." "info stack \"s\" abbreviation"
#test info stack
setup_xfail "a29k-*-udi"
-send "info stack\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "info stack" }
- -re ".*$prompt $" { fail "info stack" }
- timeout { fail "(timeout) info stack" }
- }
-
-
+gdb_test "info stack" "No stack." "info stack"
#test info set
# FIXME -- needs to match the entire output
-send "info set\n"
-expect {
- -re "confirm: Whether to confirm potentially dangerous operations is on..*
-history filename: The filename in which to record the command history is .*
-listsize: Number of source lines gdb will list by default is 10..*$prompt $"\
- { pass "info set" }
- -re "\n$prompt $" { fail "info set" }
- timeout { fail "(timeout) info set" }
- }
-
-
+gdb_test "info set" "confirm: Whether to confirm potentially dangerous operations is o\[a-z\]*..*\[\r\n\]+history filename: The filename in which to record the command history is .*\[\r\n\]+listsize: Number of source lines gdb will list by default is 10.*" "info set"
#test info source
-send "info source\n"
-expect {
- -re "No current source file..*$prompt $"\
- { pass "info source" }
- -re ".*$prompt $" { fail "info source" }
- timeout { fail "(timeout) info source" }
- }
-
-
+gdb_test "info source" "No current source file..*" "info source"
#test info sources
-send "info sources\n"
-expect {
- -re "No symbol table is loaded. Use the \"file\" command..*$prompt $"\
- { pass "info sources" }
- -re ".*$prompt $" { fail "info sources" }
- timeout { fail "(timeout) info sources" }
- }
-
-
+gdb_test "info sources" "No symbol table is loaded. Use the \"file\" command.*" "info sources"
#test info target
-send "info target\n"
-expect {
- -re "$prompt $"\
- { pass "info target" }
- timeout { fail "(timeout) info target" }
- }
-
-
+gdb_test "info target" "" "info target"
#test info terminal
-send "info terminal\n"
-expect {
- -re "No saved terminal information..*$prompt $"\
- { pass "info terminal" }
- -re ".*$prompt $" { fail "info terminal" }
- timeout { fail "(timeout) info terminal" }
- }
-
-
+gdb_test "info terminal" "No saved terminal information." "info terminal"
#test info types
-send "info types\n"
-expect {
- -re "All defined types:.*$prompt $"\
- { pass "info types" }
- -re ".*$prompt $" { fail "info types" }
- timeout { fail "(timeout) info types" }
- }
-
-
+gdb_test "info types" "All defined types:" "info types"
#test info variables
-send "info variables\n"
-expect {
- -re "All defined variables:.*$prompt $"\
- { pass "info variables" }
- -re ".*$prompt $" { fail "info variables" }
- timeout { fail "(timeout) info variables" }
- }
-
-
+gdb_test "info variables" "All defined variables:" "info variables"
#test info warranty
-send "info warranty\n"
-expect {
- -re "NO WARRANTY.*
- 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY.*
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN.*
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES.*
-PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED.*
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF.*
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS.*
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE.*
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,.*
-REPAIR OR CORRECTION..*
- 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING.*
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR.*
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,.*
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING.*
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM .INCLUDING BUT NOT LIMITED.*
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY.*
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER.*
-PROGRAMS., EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE.*
-POSSIBILITY OF SUCH DAMAGES..*$prompt $"\
- { pass "info warranty" }
- -re ".*$prompt $" { fail "info warranty" }
- timeout { fail "(timeout) info warranty" }
- }
-
-
+gdb_test "info warranty" "NO WARRANTY.*\[\r\n\]+ *11. *BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY.*\[\r\n\]+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN.*\[\r\n\]+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES.*\[\r\n\]+PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED.*\[\r\n\]+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF.*\[\r\n\]+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS.*\[\r\n\]+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE.*\[\r\n\]+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,.*\[\r\n\]+REPAIR OR CORRECTION..*\[\r\n\]+ *12. *IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING.*\[\r\n\]+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR.*\[\r\n\]+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,.*\[\r\n\]+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING.*\[\r\n\]+OUT OF THE USE OR INABILITY TO USE THE PROGRAM .INCLUDING BUT NOT LIMITED.*\[\r\n\]+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY.*\[\r\n\]+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER.*\[\r\n\]+PROGRAMS., EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE.*\[\r\n\]+POSSIBILITY OF SUCH DAMAGES.*" "info warranty"
#test info watchpoints
-send "info watchpoints\n"
-expect {
- -re "No breakpoints or watchpoints..*$prompt $"\
- { pass "info watchpoints" }
- -re ".*$prompt $" { fail "info watchpoints" }
- timeout { fail "(timeout) info watchpoints" }
- }
-
-
+gdb_test "info watchpoints" "No breakpoints or watchpoints." "info watchpoints"
#test inspect
-send "inspect\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "inspect" }
- -re ".*$prompt $" { fail "inspect" }
- timeout { fail "(timeout) inspect" }
- }
-
-
+gdb_test "inspect" "The history is empty." "inspect"
#test jump
setup_xfail "a29k-*-udi"
-send "jump\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "jump" }
- -re ".*$prompt $" { fail "jump" }
- timeout { fail "(timeout) jump" }
- }
-
-
+gdb_test "jump" "The program is not being run." "jump"
#test kill
-send "kill\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "kill" }
- -re ".*$prompt $" { fail "kill" }
- timeout { fail "(timeout) kill" }
- }
-
-
+gdb_test "kill" "The program is not being run." "kill"
#test list "l" abbreviation
-send "l\n"
-expect {
- -re "No symbol table is loaded. Use the \"file\" command..*$prompt $"\
- { pass "list \"l\" abbreviation" }
- -re ".*$prompt $" { fail "list \"l\" abbreviation" }
- timeout { fail "(timeout) list \"l\" abbreviation" }
- }
-
-
+gdb_test "l" "No symbol table is loaded. Use the \"file\" command.*" "list \"l\" abbreviation"
#test list
-send "list\n"
-expect {
- -re "No symbol table is loaded. Use the \"file\" command..*$prompt $"\
- { pass "list" }
- -re ".*$prompt $" { fail "list" }
- timeout { fail "(timeout) list" }
- }
-
-
+gdb_test "list" "No symbol table is loaded. Use the \"file\" command.*" "list"
#test load
# The ``takes a file name'' case is for vxgdb.
# The ``Use the "file" command'' case is for newer GDB versions which try
# to deduce the filename from the exec file.
-send "load\n"
-expect {
- -re "You can't do that when your target is `None'.*$prompt $"\
- { pass "load" }
- -re "The load command takes a file name.*$prompt $"\
- { pass "load" }
- -re "Must specify at least a file name with the load command.*$prompt $"\
- { pass "load" }
- -re "Use the .file. or .exec-file. command.*$prompt $"\
- { pass "load" }
- -re ".*$prompt $" { fail "load" }
- timeout { fail "(timeout) load" }
- }
-
-
+gdb_test "load" "You can't do that when your target is `None'.*|The load command takes a file name.*|Must specify at least a file name with the load command.*|.*Use the .file. or .exec-file. command.*" "load"
#test next "n" abbreviation
setup_xfail "a29k-*-udi"
-send "n\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "next \"n\" abbreviation" }
- -re ".*$prompt $" { fail "next \"n\" abbreviation" }
- timeout { fail "(timeout) next \"n\" abbreviation" }
- }
-
-
+gdb_test "n" "The program is not being run." "next \"n\" abbreviation"
#test next
setup_xfail "a29k-*-udi"
-send "next\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "next" }
- -re ".*$prompt $" { fail "next" }
- timeout { fail "(timeout) next" }
- }
-
-
+gdb_test "next" "The program is not being run." "next"
#test nexti "ni" abbreviation
setup_xfail "a29k-*-udi"
-send "ni\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "nexti \"ni\" abbreviation" }
- -re ".*$prompt $" { fail "nexti \"ni\" abbreviation" }
- timeout { fail "(timeout) nexti \"ni\" abbreviation" }
- }
-
-
+gdb_test "ni" "The program is not being run." "nexti \"ni\" abbreviation"
#test nexti
setup_xfail "a29k-*-udi"
-send "nexti\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "nexti" }
- -re ".*$prompt $" { fail "nexti" }
- timeout { fail "(timeout) nexti" }
- }
-
-
+gdb_test "nexti" "The program is not being run." "nexti"
#test output
-send "output\n"
-expect {
- -re "Argument required .expression to compute.*$prompt $"\
- { pass "output" }
- -re ".*$prompt $" { fail "output" }
- timeout { fail "(timeout) output" }
- }
-
-
+gdb_test "output" "Argument required .expression to compute.*" "output"
#test print "p" abbreviation
-send "p\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "print \"p\" abbreviation" }
- -re ".*$prompt $" { fail "print \"p\" abbreviation" }
- timeout { fail "(timeout) print \"p\" abbreviation" }
- }
-
-
+gdb_test "p" "The history is empty." "print \"p\" abbreviation"
#test print
-send "print\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "print" }
- -re ".*$prompt $" { fail "print" }
- timeout { fail "(timeout) print" }
- }
-
-
+gdb_test "print" "The history is empty." "print"
#test printf
-send "printf\n"
-expect {
- -re "Argument required .format-control string and values to print.*$prompt $"\
- { pass "printf" }
- -re ".*$prompt $" { fail "printf" }
- timeout { fail "(timeout) printf" }
- }
-
-
-# this command was removed from GDB 4.5.8
-#test printsyms
-#send "printsyms\n"
-#expect {
-# -re "printsyms takes an output file name and optional symbol file name.*$prompt $"\
-# { pass "printsyms" }
-# -re ".*$prompt $" { fail "printsyms" }
-# timeout { fail "(timeout) printsyms" }
-# }
-
+gdb_test "printf" "Argument required .format-control string and values to print.*" "printf"
#test ptype
-send "ptype\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "ptype" }
- -re ".*$prompt $" { fail "ptype" }
- timeout { fail "(timeout) ptype" }
- }
-
-
+gdb_test "ptype" "The history is empty." "ptype"
#test pwd
-send "pwd\n"
-expect {
- -re "Working directory .*$prompt $"\
- { pass "pwd" }
- -re ".*$prompt $" { fail "pwd" }
- timeout { fail "(timeout) pwd" }
- }
-
+gdb_test "pwd" "Working directory .*" "pwd"
#test run "r" abbreviation
-if [istarget "*-*-vxworks"] then {
- send "set args\n"
+if [istarget "*-*-vxworks*"] then {
+ send_gdb "set args\n"
expect -re "$prompt $" {}
gdb_test "r" "Starting program: .*
You must specify a function name to run, and arguments if any"\
"run \"r\" abbreviation"
- send "set args main\n"
+ send_gdb "set args main\n"
expect -re "$prompt $" {}
} else {
- send "r\n"
+ send_gdb "r\n"
expect {
-re "Starting program: .*
You can't do that when your target is `None'.*$prompt $"\
-re "Starting program: .*
No image loaded into target.*$prompt $"\
{ pass "run \"r\" abbreviation" }
+ -re "Starting program: .*
+No program loaded.*$prompt $"\
+ { pass "run \"r\" abbreviation" }
-re "Don't know how to run. Try \"help target\"..*$prompt $"\
{ pass "run \"r\" abbreviation" }
-re ".*$prompt $" { fail "run \"r\" abbreviation" }
}
#test run
-if [istarget "*-*-vxworks"] then {
- send "set args\n"
+if [istarget "*-*-vxworks*"] then {
+ send_gdb "set args\n"
expect -re "$prompt $" {}
gdb_test "run" "Starting program: .*
You must specify a function name to run, and arguments if any"
- send "set args main\n"
+ send_gdb "set args main\n"
expect -re "$prompt $" {}
} else {
- send "run\n"
+ send_gdb "run\n"
expect {
-re "Starting program:.*You can't do that when your target is `None'.*$prompt $" { pass "run" }
-re "Starting program: .*
-re "Starting program: .*
No image loaded into target.*$prompt $"\
{ pass "run" }
+ -re "Starting program: .*
+No program loaded.*$prompt $"\
+ { pass "run \"r\" abbreviation" }
-re "Don't know how to run. Try \"help target\"..*$prompt $"\
{ pass "run" }
-re ".*$prompt $" { fail "run" }
}
#test rbreak
-send "rbreak\n"
-expect {
- -re "$prompt $"\
- { pass "rbreak" }
- timeout { fail "(timeout) rbreak" }
- }
-
+gdb_test "rbreak" "" "rbreak"
#test return
# The middle case accommodates the a29k, where doing the "ni" above causes
# an initial stack to be created.
-send "return\n"
+send_gdb "return\n"
expect {
-re "No selected frame..*$prompt $"\
{ pass "return" }
-re "Make .* return now.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re ".*$prompt $" { fail "return" }
timeout { fail "(timeout) return" }
}
-
#test reverse-search
-send "reverse-search\n"
-expect {
- -re "No previous regular expression.*$prompt $"\
- { pass "reverse-search" }
- -re "There is no previous regular expression.*$prompt $"\
- { pass "forward-search" }
- -re ".*$prompt $" { fail "reverse-search" }
- timeout { fail "(timeout) reverse-search" }
- }
-
-
+gdb_test "reverse-search" "No previous regular expression.*|There is no previous regular expression.*" "reverse-search"
#test step "s" abbreviation
setup_xfail "a29k-*-udi"
-send "s\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "step \"s\" abbreviation" }
- -re ".*$prompt $" { fail "step \"s\" abbreviation" }
- timeout { fail "(timeout) step \"s\" abbreviation" }
- }
-
-
+gdb_test "s" "The program is not being run." "step \"s\" abbreviation"
#test step
setup_xfail "a29k-*-udi"
-send "step\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "step" }
- -re ".*$prompt $" { fail "step" }
- timeout { fail "(timeout) step" }
- }
-
-
+gdb_test "step" "The program is not being run." "step"
#test search
-send "search\n"
-expect {
- -re "No previous regular expression.*$prompt $"\
- { pass "search" }
- -re "There is no previous regular expression.*$prompt $"\
- { pass "forward-search" }
- -re ".*$prompt $" { fail "search" }
- timeout { fail "(timeout) search" }
- }
-
-
+gdb_test "search" "No previous regular expression.*|There is no previous regular expression.*" "search"
#test section
-send "section\n"
-expect {
- -re "Must specify section name and its virtual address.*$prompt $"\
- { pass "section" }
- -re ".*$prompt $" { fail "section" }
- timeout { fail "(timeout) section" }
- }
-
-
+gdb_test "section" "Must specify section name and its virtual address.*" "section"
+#test set annotate
+gdb_test "set annotate" "Argument required .integer to set it to.*" "set annotate"
#test set args
-send "set args\n"
-expect {
- -re "$prompt $"\
- { pass "set args" }
- timeout { fail "(timeout) set args" }
- }
-
-
+gdb_test "set args" "" "set args"
#test set check "c" abbreviation
-send "set c\n"
-expect {
- -re "\"set check\" must be followed by the name of a check subcommand..*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "set check \"c\" abbreviation" }
- -re ".*$prompt $" { fail "set check \"c\" abbreviation" }
- timeout { fail "(timeout) set check \"c\" abbreviation" }
- }
-
-
+gdb_test "set c" "\"set check\" must be followed by the name of a check subcommand..*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set check \"c\" abbreviation"
#test set check "ch" abbreviation
-send "set ch\n"
-expect {
- -re "\"set check\" must be followed by the name of a check subcommand..*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "set check \"ch\" abbreviation" }
- -re ".*$prompt $" { fail "set check \"ch\" abbreviation" }
- timeout { fail "(timeout) set check \"ch\" abbreviation" }
- }
-
-
+gdb_test "set ch" "\"set check\" must be followed by the name of a check subcommand..*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set check \"ch\" abbreviation"
#test set check
-send "set check\n"
-expect {
- -re "\"set check\" must be followed by the name of a check subcommand..*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "set check" }
- -re ".*$prompt $" { fail "set check" }
- timeout { fail "(timeout) set check" }
- }
-
-
+gdb_test "set check" "\"set check\" must be followed by the name of a check subcommand..*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set check"
#test set check range
-send "set check range\n"
-expect {
- -re "$prompt $"\
- { pass "set check range" }
- timeout { fail "(timeout) set check range" }
- }
-
-
+gdb_test "set check range" "" "set check range"
#test set check type
-send "set check type\n"
-expect {
- -re "$prompt $"\
- { pass "set check type" }
- timeout { fail "(timeout) set check type" }
- }
-
-
+gdb_test "set check type" "" "set check type"
#test set complaints
-send "set complaints\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $"\
- { pass "set complaints" }
- -re ".*$prompt $" { fail "set complaints" }
- timeout { fail "(timeout) set complaints" }
- }
-
-
+gdb_test "set complaints" "Argument required .integer to set it to.*" "set complaints"
#test set confirm
-send "set confirm\n"
-expect {
- -re "$prompt $"\
- { pass "set confirm" }
- timeout { fail "(timeout) set confirm" }
- }
-
-
-#test set editing
-send "set editing\n"
-expect {
- -re "$prompt $"\
- { pass "set editing" }
- timeout { fail "(timeout) set editing" }
- }
-
-
+gdb_test "set confirm" "" "set confirm"
+# Don't test set editing. What if we're talking to a gdb that
+# won't do editing correctly while we're talking to it?
+# gdb_test "set editing" "" "set editing"
#test set environment
-send "set environment\n"
-expect {
- -re "Argument required .environment variable and value.*$prompt $"\
- { pass "set environment" }
- -re ".*$prompt $" { fail "set environment" }
- timeout { fail "(timeout) set environment" }
- }
-
-
+gdb_test "set environment" "Argument required .environment variable and value.*" "set environment"
#test set height
-send "set height\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $"\
- { pass "set height" }
- -re ".*$prompt $" { fail "set height" }
- timeout { fail "(timeout) set height" }
- }
-
-
+gdb_test "set height" "Argument required .integer to set it to.*" "set height"
#test set history expansion
-send "set history expansion\n"
-expect {
- -re "$prompt $"\
- { pass "set history expansion" }
- timeout { fail "(timeout) set history expansion" }
- }
-
-
+gdb_test "set history expansion" "" "set history expansion"
#test set history filename
-send "set history filename\n"
-expect {
- -re "Argument required .filename to set it to.*$prompt $" {
- pass "set history filename"
- }
- -re ".*$prompt $" {
- fail "set history filename"
- }
- timeout {
- fail "(timeout) set history filename"
- }
- }
-
-
+gdb_test "set history filename" "Argument required .filename to set it to.*" "set history filename"
#test set history save
-send "set history save\n"
-expect {
- -re "$prompt $"\
- { pass "set history save" }
- timeout { fail "(timeout) set history save" }
- }
-
-
+gdb_test "set history save" "" "set history save"
#test set history size
-send "set history size\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $"\
- { pass "set history size" }
- -re ".*$prompt $" { fail "set history size" }
- timeout { fail "(timeout) set history size" }
- }
-
-
+gdb_test "set history size" "Argument required .integer to set it to.*" "set history size"
#test set history
-send "set history\n"
-expect {
- -re "\"set history\" must be followed by the name of a history subcommand..*
-List of set history subcommands:.*
-set history filename -- Set the filename in which to record the command history.*
-set history size -- Set the size of the command history.*
-set history save -- Set saving of the history record on exit.*
-set history expansion -- Set history expansion on command input.*
-Type \"help set history\" followed by set history subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "set history" }
- -re ".*$prompt $" { fail "set history" }
- timeout { fail "(timeout) set history" }
- }
-
-
+gdb_test "set history" "\"set history\" must be followed by the name of a history subcommand..*\[\r\n\]+List of set history subcommands:.*\[\r\n\]+set history filename -- Set the filename in which to record the command history.*\[\r\n\]+set history size -- Set the size of the command history.*\[\r\n\]+set history save -- Set saving of the history record on exit.*\[\r\n\]+set history expansion -- Set history expansion on command input.*\[\r\n\]+Type \"help set history\" followed by set history subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set history"
#test set language
-send "set language\n"
-expect {
- -re "The currently understood settings are:.*
-local or auto Automatic setting based on source file.*
-c Use the C language.*
-c\[+\]+ Use the C\[+\]+ language.*
-modula-2 Use the Modula-2 language.*$prompt $" {
- pass "set language"
- }
- -re ".*$prompt $" {
- fail "set language"
- }
- timeout {
- fail "(timeout) set language"
- }
- }
-
-
+gdb_test "set language" "The currently understood settings are:.*\[\r\n\]+local or auto *Automatic setting based on source file.*\[\r\n\]+c *Use the C language.*\[\r\n\]+c\[+\]+ *Use the C\[+\]+ language.*\[\r\n\]+modula-2 *Use the Modula-2 language.*" "set language"
#test set listsize
-send "set listsize\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $" {
- pass "set listsize"
- }
- -re ".*$prompt $" { fail "set listsize" }
- timeout { fail "(timeout) set listsize" }
- }
-
-
+gdb_test "set listsize" "Argument required .integer to set it to.*" "set listsize"
#test set print "p" abbreviation
-send "set p\n"
-expect {
- -re "\"set print\" must be followed by the name of a print subcommand..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $" {
- pass "set print \"p\" abbreviation"
- }
- -re ".*$prompt $" { fail "set print \"p\" abbreviation" }
- timeout { fail "(timeout) set print \"p\" abbreviation" }
- }
-
-
+gdb_test "set p" "\"set print\" must be followed by the name of a print subcommand..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set print \"p\" abbreviation"
#test set print "pr" abbreviation
-send "set pr\n"
-expect {
- -re "\"set print\" must be followed by the name of a print subcommand..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $" {
- pass "set print \"pr\" abbreviation"
- }
- -re ".*$prompt $" { fail "set print \"pr\" abbreviation" }
- timeout { fail "(timeout) set print \"pr\" abbreviation" }
- }
-
-
+gdb_test "set pr" "\"set print\" must be followed by the name of a print subcommand..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set print \"pr\" abbreviation"
#test set print
-send "set print\n"
-expect {
- -re "\"set print\" must be followed by the name of a print subcommand..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $" {
- pass "set print"
- }
- -re ".*$prompt $" { fail "set print" }
- timeout { fail "(timeout) set print" }
- }
-
-
+gdb_test "set print" "\"set print\" must be followed by the name of a print subcommand..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "set print"
#test set print address
-send "set print address\n"
-expect {
- -re "$prompt $"\
- { pass "set print address" }
- timeout { fail "(timeout) set print address" }
- }
-
-
+gdb_test "set print address" "" "set print address"
#test set print array
-send "set print array\n"
-expect {
- -re "$prompt $"\
- { pass "set print array" }
- timeout { fail "(timeout) set print array" }
- }
-
-
+gdb_test "set print array" "" "set print array"
#test set print asm-demangle
-send "set print asm-demangle\n"
-expect {
- -re "$prompt $"\
- { pass "set print asm-demangle" }
- timeout { fail "(timeout) set print asm-demangle" }
- }
-
-
+gdb_test "set print asm-demangle" "" "set print asm-demangle"
#test set print demangle
-send "set print demangle\n"
-expect {
- -re "$prompt $"\
- { pass "set print demangle" }
- timeout { fail "(timeout) set print demangle" }
- }
-
-
+gdb_test "set print demangle" "" "set print demangle"
#test set print elements
-send "set print elements\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $"\
- { pass "set print elements" }
- -re ".*$prompt $" { fail "set print elements" }
- timeout { fail "(timeout) set print elements" }
- }
-
-
+gdb_test "set print elements" "Argument required .integer to set it to.*" "set print elements"
#test set print object
-send "set print object\n"
-expect {
- -re "$prompt $"\
- { pass "set print object" }
- timeout { fail "(timeout) set print object" }
- }
-
-
+gdb_test "set print object" "" "set print object"
#test set print pretty
-send "set print pretty\n"
-expect {
- -re "$prompt $"\
- { pass "set print pretty" }
- timeout { fail "(timeout) set print pretty" }
- }
-
-
+gdb_test "set print pretty" "" "set print pretty"
#test set print sevenbit-strings
-send "set print sevenbit-strings\n"
-expect {
- -re "$prompt $"\
- { pass "set print sevenbit-strings" }
- timeout { fail "(timeout) set print sevenbit-strings" }
- }
-
-
+gdb_test "set print sevenbit-strings" "" "set print sevenbit-strings"
#test set print union
-send "set print union\n"
-expect {
- -re "$prompt $"\
- { pass "set print union" }
- timeout { fail "(timeout) set print union" }
- }
-
-
+gdb_test "set print union" "" "set print union"
#test set print vtbl
-send "set print vtbl\n"
-expect {
- -re "$prompt $"\
- { pass "set print vtbl" }
- timeout { fail "(timeout) set print vtbl" }
- }
-
-
+gdb_test "set print vtbl" "" "set print vtbl"
# FIXME -- need a test for "set prompt"
#test set radix
-send "set radix\n"
-expect {
- -re "Input and output radices now set to decimal 10, hex a, octal 12.*$prompt $"\
- { pass "set radix" }
- -re "Argument required .integer to set it to.*$prompt $"\
- { fail "set radix (obsolete radix support)" }
- -re ".*$prompt $" { fail "set radix" }
- timeout { fail "(timeout) set radix" }
- }
-
-
+gdb_test "set radix" "Input and output radices now set to decimal 10, hex a, octal 12.*" "set radix"
#test set symbol-reloading
-send "set symbol-reloading\n"
-expect {
- -re "$prompt $"\
- { pass "set symbol-reloading" }
- timeout { fail "(timeout) set symbol-reloading" }
- }
-
-
+gdb_test "set symbol-reloading" "" "set symbol-reloading"
#test set variable
-send "set variable\n"
-expect {
- -re "Argument required .expression to compute.*$prompt $"\
- { pass "set variable" }
- -re ".*$prompt $" { fail "set variable" }
- timeout { fail "(timeout) set variable" }
- }
-
-
+gdb_test "set variable" "Argument required .expression to compute.*" "set variable"
#test set verbose
-send "set verbose\n"
-expect {
- -re "$prompt $"\
- { pass "set verbose" }
- timeout { fail "(timeout) set verbose" }
- }
-
-
+gdb_test "set verbose" "" "set verbose"
#test set width
-send "set width\n"
-expect {
- -re "Argument required .integer to set it to.*$prompt $"\
- { pass "set width" }
- -re ".*$prompt $" { fail "set width" }
- timeout { fail "(timeout) set width" }
- }
-
-
+gdb_test "set width" "Argument required .integer to set it to.*" "set width"
#test set write
# This is only supported on targets which use exec.o.
-if ![istarget "rs6000-*-*"] then {
- send "set write\n"
- expect {
- -re "set write\[\r\n\]*$prompt $"\
- { pass "set write" }
- -re "$prompt $" { fail "set write" }
- timeout { fail "(timeout) set write" }
- }
- gdb_test "set write off" ""
-}
-
+gdb_test "set write" "" "set write"
#test set
-send "set\n"
-expect {
- -re "Argument required .expression to compute.*$prompt $"\
- { pass "set" }
- -re ".*$prompt $" { fail "set" }
- timeout { fail "(timeout) set" }
- }
-
-
+gdb_test "set" "Argument required .expression to compute.*" "set"
#test shell echo Hi dad!
-send "shell echo Hi dad!\n"
-expect {
- -re "Hi dad!.*$prompt $"\
- { pass "shell echo Hi dad!" }
- -re ".*$prompt $" { fail "shell echo Hi dad!" }
- timeout { fail "(timeout) shell echo Hi dad!" }
- }
-
-
+gdb_test "shell echo Hi dad!" "Hi dad!" "shell echo Hi dad!"
+#test show annotate
+gdb_test "show annotate" "Annotation_level is 0." "show annotate"
#test show args
-send "show args\n"
-expect {
- -re "Arguments to give program being debugged when it is started is \"\"..*$prompt $"\
- { pass "show args" }
- -re ".*$prompt $" { fail "show args" }
- timeout { fail "(timeout) show args" }
- }
-
-
+gdb_test "show args" "Arguments to give program being debugged when it is started is \"\"." "show args"
#test show check "c" abbreviation
-send "show c\n"
-expect {
- -re "range: Range checking is \"auto; currently off\"..*
-type: Type checking is \"auto; currently off\"..*$prompt $"\
- { pass "show check \"c\" abbreviation" }
- -re ".*$prompt $" { fail "show check \"c\" abbreviation" }
- timeout { fail "(timeout) show check \"c\" abbreviation" }
- }
-
-
+gdb_test "show c" "range: *Range checking is \"auto; currently off\"..*\[\r\n\]+type: *Type checking is \"auto; currently off\".*" "show check \"c\" abbreviation"
#test show check "ch" abbreviation
-send "show ch\n"
-expect {
- -re "range: Range checking is \"auto; currently off\"..*
-type: Type checking is \"auto; currently off\"..*$prompt $"\
- { pass "show check \"ch\" abbreviation" }
- -re ".*$prompt $" { fail "show check \"ch\" abbreviation" }
- timeout { fail "(timeout) show check \"ch\" abbreviation" }
- }
-
-
+gdb_test "show ch" "range: *Range checking is \"auto; currently off\"..*\[\r\n\]+type: *Type checking is \"auto; currently off\"." "show check \"ch\" abbreviation"
#test show check
-send "show check\n"
-expect {
- -re "range: Range checking is \"auto; currently off\"..*
-type: Type checking is \"auto; currently off\"..*$prompt $"\
- { pass "show check" }
- -re ".*$prompt $" { fail "show check" }
- timeout { fail "(timeout) show check" }
- }
-
-
+gdb_test "show check" "range: *Range checking is \"auto; currently off\"..*\[\r\n\]+type: *Type checking is \"auto; currently off\"." "show check"
#test show check range
-send "show check range\n"
-expect {
- -re "Range checking is \"auto; currently off\"..*$prompt $"\
- { pass "show check range" }
- -re ".*$prompt $" { fail "show check range" }
- timeout { fail "(timeout) show check range" }
- }
-
-
+gdb_test "show check range" "Range checking is \"auto; currently off\"." "show check range"
#test show check type
-send "show check type\n"
-expect {
- -re "Type checking is \"auto; currently off\"..*$prompt $"\
- { pass "show check type" }
- -re ".*$prompt $" { fail "show check type" }
- timeout { fail "(timeout) show check type" }
- }
-
-
+gdb_test "show check type" "Type checking is \"auto; currently off\"." "show check type"
#test show commands
-send "show commands\n"
-expect {
- -re "$prompt $"\
- { pass "show commands" }
- timeout { fail "(timeout) show commands" }
- }
-
-
+gdb_test "show commands" "" "show commands"
#test show complaints
-send "show complaints\n"
-expect {
- -re "Max number of complaints about incorrect symbols is 0..*$prompt $"\
- { pass "show complaints" }
- -re ".*$prompt $" { fail "show complaints" }
- timeout { fail "(timeout) show complaints" }
- }
-
-
+gdb_test "show complaints" "Max number of complaints about incorrect symbols is 0." "show complaints"
#test show confirm
-send "show confirm\n"
-expect {
- -re "Whether to confirm potentially dangerous operations is on..*$prompt $"\
- { pass "show confirm" }
- -re ".*$prompt $" { fail "show confirm" }
- timeout { fail "(timeout) show confirm" }
- }
-
-
+gdb_test "show confirm" "Whether to confirm potentially dangerous operations is o\[a-z\]*." "show confirm"
#test show convenience
-send "show convenience\n"
-expect {
- -re "No debugger convenience variables now defined..*
-Convenience variables have names starting with \".\";.*
-use \"set\" as in \"set .foo = 5\" to define them..*$prompt $"\
- { pass "show convenience" }
- -re ".*$prompt $" { fail "show convenience" }
- timeout { fail "(timeout) show convenience" }
- }
-
-
+gdb_test "show convenience" "No debugger convenience variables now defined..*\[\r\n\]+Convenience variables have names starting with \".\";.*\[\r\n\]+use \"set\" as in \"set .foo = 5\" to define them." "show convenience"
#test show directories
-send "show directories\n"
-expect {
- -re "Source directories searched: .cdir:.cwd.*$prompt $"\
- { pass "show directories" }
- -re ".*$prompt $" { fail "show directories" }
- timeout { fail "(timeout) show directories" }
- }
-
-
+gdb_test "show directories" "Source directories searched: .cdir:.cwd" "show directories"
#test show editing
-send "show editing\n"
-expect {
- -re "Editing of command lines as they are typed is on..*$prompt $"\
- { pass "show editing" }
- -re ".*$prompt $" { fail "show editing" }
- timeout { fail "(timeout) show editing" }
- }
-
-
+gdb_test "show editing" "Editing of command lines as they are typed is o\[a-z\]*." "show editing"
#test show height
-send "show height\n"
-expect {
- -re "Number of lines gdb thinks are in a page is.*$prompt $"\
- { pass "show height" }
- -re ".*$prompt $" { fail "show height" }
- timeout { fail "(timeout) show height" }
- }
-
-
+gdb_test "show height" "Number of lines gdb thinks are in a page is.*" "show height"
#test show history expansion
-send "show history expansion\n"
-expect {
- -re "History expansion on command input is on.*$prompt $"\
- { pass "show history expansion" }
- -re ".*$prompt $" { fail "show history expansion" }
- timeout { fail "(timeout) show history expansion" }
- }
-
-
+gdb_test "show history expansion" "History expansion on command input is o\[a-z\]*.*" "show history expansion"
#test show history filename
-send "show history filename\n"
-expect {
- -re "The filename in which to record the command history is.*.gdb_history.*$prompt $" { pass "show history filename" }
- -re ".*$prompt $" { fail "show history filename" }
- timeout { fail "(timeout) show history filename" }
- }
-
-
+gdb_test "show history filename" "The filename in which to record the command history is.*.gdb_history.*" "show history filename"
#test show history save
-send "show history save\n"
-expect {
- -re "Saving of the history record on exit is on..*$prompt $" {
- pass "show history save"
- }
- -re ".*$prompt $" { fail "show history save" }
- timeout { fail "(timeout) show history save" }
- }
-
-
+gdb_test "show history save" "Saving of the history record on exit is on." "show history save"
#test show history size
-send "show history size\n"
-expect {
- -re "The size of the command history is.*$prompt $"\
- { pass "show history size" }
- -re ".*$prompt $" { fail "show history size" }
- timeout { fail "(timeout) show history size" }
- }
-
-
+gdb_test "show history size" "The size of the command history is.*" "show history size"
#test show history
-send "show history\n"
-expect {
- -re "filename: The filename in which to record the command history is.*.gdb_history.*
-size: The size of the command history is.*
-save: Saving of the history record on exit is o.*
-expansion: History expansion on command input is o.*$prompt $"
- { pass "show history" }
- -re ".*$prompt $" { fail "show history" }
- timeout { fail "(timeout) show history" }
- }
-
-
+gdb_test "show history" "filename: *The filename in which to record the command history is.*.gdb_history.*\[\r\n\]+size: * The size of the command history is.*\[\r\n\]+save: *Saving of the history record on exit is o.*\[\r\n\]+expansion: *History expansion on command input is o.*" "show history"
#test show language
-send "show language\n"
-expect {
- -re "The current source language is \"auto; currently c\"..*$prompt $"\
- { pass "show language" }
- -re ".*$prompt $" { fail "show language" }
- timeout { fail "(timeout) show language" }
- }
-
-
+gdb_test "show language" "The current source language is \"auto; currently c\"." "show language"
#test show listsize
-send "show listsize\n"
-expect {
- -re "Number of source lines gdb will list by default is 10..*$prompt $"\
- { pass "show listsize" }
- -re ".*$prompt $" { fail "show listsize" }
- timeout { fail "(timeout) show listsize" }
- }
-
-
+gdb_test "show listsize" "Number of source lines gdb will list by default is 10." "show listsize"
#test show print "p" abbreviation
-send "show p\n"
-expect {
- -re ".*$prompt $"\
- { pass "show print \"p\" abbreviation" }
- timeout { fail "(timeout) show print \"p\" abbreviation" }
- }
-
-
+gdb_test "show p" ".*" "show p"
#test show print "pr" abbreviation
-send "show pr\n"
-expect {
- -re ".*$prompt $"\
- { pass "show print \"pr\" abbreviation" }
- timeout { fail "(timeout) show print \"pr\" abbreviation" }
- }
-
-
-
+gdb_test "show pr" ".*" "show pr"
#test show print
-send "show print\n"
-expect {
- -re ".*$prompt $"\
- { pass "show print" }
- timeout { fail "(timeout) show print" }
- }
-
-
+gdb_test "show print" "" "show print"
#test show paths
-send "show paths\n"
-expect {
- -re "Executable and object file path:.*$prompt $"\
- { pass "show paths" }
- -re ".*$prompt $" { fail "show paths" }
- timeout { fail "(timeout) show paths" }
- }
-
-
+gdb_test "show paths" "Executable and object file path:.*" "show paths"
#test show print address
-send "show print address\n"
-expect {
- -re "Printing of addresses is on..*$prompt $"\
- { pass "show print address" }
- -re ".*$prompt $" { fail "show print address" }
- timeout { fail "(timeout) show print address" }
- }
-
-
+gdb_test "show print address" "Printing of addresses is on." "show print address"
#test show print array
-send "show print array\n"
-expect {
- -re "Prettyprinting of arrays is on..*$prompt $"\
- { pass "show print array" }
- -re ".*$prompt $" { fail "show print array" }
- timeout { fail "(timeout) show print array" }
- }
-
-
+gdb_test "show print array" "Prettyprinting of arrays is on." "show print array"
#test show print asm-demangle
-send "show print asm-demangle\n"
-expect {
- -re "Demangling of C\[+\]+ names in disassembly listings is on..*$prompt $"\
- { pass "show print asm-demangle" }
- -re ".*$prompt $" { fail "show print asm-demangle" }
- timeout { fail "(timeout) show print asm-demangle" }
- }
-
-
+gdb_test "show print asm-demangle" "Demangling of C\[+\]+ names in disassembly listings is on." "show print asm-demangle"
#test show print demangle
-send "show print demangle\n"
-expect {
- -re "Demangling of encoded C\[+\]+ names when displaying symbols is on..*$prompt $"\
- { pass "show print demangle" }
- -re ".*$prompt $" { fail "show print demangle" }
- timeout { fail "(timeout) show print demangle" }
- }
-
-
+gdb_test "show print demangle" "Demangling of encoded C\[+\]+ names when displaying symbols is on." "show print demangle"
#test show print elements
-send "show print elements\n"
-expect {
- -re "Limit on string chars or array elements to print is 200..*$prompt $"\
- { pass "show print elements" }
- -re ".*$prompt $" { fail "show print elements" }
- timeout { fail "(timeout) show print elements" }
- }
-
-
+gdb_test "show print elements" "Limit on string chars or array elements to print is 200." "show print elements"
#test show print object
-send "show print object\n"
-expect {
- -re "Printing of object's derived type based on vtable info is on..*$prompt $"\
- { pass "show print object" }
- -re ".*$prompt $" { fail "show print object" }
- timeout { fail "(timeout) show print object" }
- }
-
-
+gdb_test "show print object" "Printing of object's derived type based on vtable info is on." "show print object"
#test show print pretty
-send "show print pretty\n"
-expect {
- -re "Prettyprinting of structures is on..*$prompt $"\
- { pass "show print pretty" }
- -re ".*$prompt $" { fail "show print pretty" }
- timeout { fail "(timeout) show print pretty" }
- }
-
-
+gdb_test "show print pretty" "Prettyprinting of structures is on." "show print pretty"
#test show print sevenbit-strings
-send "show print sevenbit-strings\n"
-expect {
- -re "Printing of 8-bit characters in strings as .nnn is on..*$prompt $"\
- { pass "show print sevenbit-strings" }
- -re ".*$prompt $" { fail "show print sevenbit-strings" }
- timeout { fail "(timeout) show print sevenbit-strings" }
- }
-
-
+gdb_test "show print sevenbit-strings" "Printing of 8-bit characters in strings as .nnn is on." "show print sevenbit-strings"
#test show print union
-send "show print union\n"
-expect {
- -re "Printing of unions interior to structures is on..*$prompt $"\
- { pass "show print union" }
- -re ".*$prompt $" { fail "show print union" }
- timeout { fail "(timeout) show print union" }
- }
-
-
+gdb_test "show print union" "Printing of unions interior to structures is on." "show print union"
#test show print vtbl
-send "show print vtbl\n"
-expect {
- -re "Printing of C\[+\]+ virtual function tables is on..*$prompt $"\
- { pass "show print vtbl" }
- -re ".*$prompt $" { fail "show print vtbl" }
- timeout { fail "(timeout) show print vtbl" }
- }
-
-
+gdb_test "show print vtbl" "Printing of C\[+\]+ virtual function tables is on." "show print vtbl"
#test show prompt
# In the FAIL case, can't just look for $prompt because that will match
-# the output, rather than the prompt. So look for $prompt at the start
+# the output, rather than the prompt. So look for $prompt at the start
# of a line.
-send "show prompt\n"
-expect {
- -re "Gdb's prompt is \"$prompt \".*$prompt $"\
- { pass "show prompt" }
- -re ".*\r\n$prompt $" { fail "show prompt" }
- timeout { fail "(timeout) show prompt" }
- }
-
-
+gdb_test "show prompt" "Gdb's prompt is \"$prompt \".*" "show prompt"
#test show radix
-send "show radix\n"
-expect {
- -re "Input and output radices set to decimal 10, hex a, octal 12..*$prompt $"\
- { pass "show radix" }
- -re "Default input and output number radix is 10..*$prompt $"\
- { fail "show radix (obsolete radix support)" }
- -re ".*$prompt $" { fail "show radix" }
- timeout { fail "(timeout) show radix" }
- }
-
-
+gdb_test "show radix" "Input and output radices set to decimal 10, hex a, octal 12." "show radix"
#test show symbol-reloading
-send "show symbol-reloading\n"
-expect {
- -re "Dynamic symbol table reloading multiple times in one run is on..*$prompt $"\
- { pass "show symbol-reloading" }
- -re ".*$prompt $" { fail "show symbol-reloading" }
- timeout { fail "(timeout) show symbol-reloading" }
- }
-
-
+gdb_test "show symbol-reloading" "Dynamic symbol table reloading multiple times in one run is on." "show symbol-reloading"
#test show user
-send "show user\n"
-expect {
- -re "$prompt $"\
- { pass "show user" }
- timeout { fail "(timeout) show user" }
- }
-
-
+gdb_test "show user" "" "show user"
#test show values
-send "show values\n"
-expect {
- -re "$prompt $"\
- { pass "show values" }
- timeout { fail "(timeout) show values" }
- }
-
-
+gdb_test "show values" "" "show values"
#test show verbose
-send "show verbose\n"
-expect {
- -re "Verbose printing of informational messages is on..*$prompt $"\
- { pass "show verbose" }
- -re ".*$prompt $" { fail "show verbose" }
- timeout { fail "(timeout) show verbose" }
- }
-
-
+gdb_test "show verbose" "Verbose printing of informational messages is o.*|Verbosity is off.*" "show verbose"
#test show version
-send "show version\n"
-expect {
- -re "GDB is free software and you are welcome to distribute copies of it.*
- under certain conditions; type \"show copying\" to see the conditions..*
-There is absolutely no warranty for GDB; type \"show warranty\" for details..*
-GDB.*Copyright \[0-9\]* Free Software Foundation, Inc..*$prompt $"\
- { pass "show version" }
- -re ".*$prompt $" { fail "show version" }
- timeout { fail "(timeout) show version" }
- }
-
+gdb_test "show version" "GNU gdb \[0-9\.\]*.*\[\r\n\]+Copyright \[0-9\]* Free Software Foundation, Inc.*\[\r\n\]+GDB is free software, covered by the GNU General Public License, and you are.*\[\r\n\]+welcome to change it and/or distribute copies of it under certain conditions.*\[\r\n\]+Type \"show copying\" to see the conditions.*\[\r\n\]+There is absolutely no warranty for GDB. Type \"show warranty\" for details.*\[\r\n\]+This GDB was configured as .*|GDB is free software and you are welcome to distribute copies of it.*\[\r\n\]+ under certain conditions; type \"show copying\" to see the conditions..*\[\r\n\]+There is absolutely no warranty for GDB; type \"show warranty\" for details..*\[\r\n\]+GDB.*Copyright \[0-9\]* Free Software Foundation, Inc.*" "show version"
#test show width
-send "show width\n"
-expect {
- -re "Number of characters gdb thinks are in a line is.*$prompt $"\
- { pass "show width" }
- -re ".*$prompt $" { fail "show width" }
- timeout { fail "(timeout) show width" }
- }
-
-
+gdb_test "show width" "Number of characters gdb thinks are in a line is.*" "show width"
#test show write
# This is only supported on targets which use exec.o.
-if ![istarget "rs6000-*-*"] then {
- send "show write\n"
- expect {
- -re "Writing into executable and core files is off..*$prompt $"\
- { pass "show write" }
- -re ".*$prompt $" { fail "show write" }
- timeout { fail "(timeout) show write" }
- }
-}
-
+gdb_test "show write" "Writing into executable and core files is o.*" "show write"
#test show
-send "show\n"
-expect {
- -re "confirm: Whether to confirm potentially dangerous operations is on..*
-history filename: The filename in which to record the command history is .*
-history size: The size of the command history is.*
-history save: Saving of the history record on exit is on..*
-print elements: Limit on string chars or array elements to print is 200..*
-listsize: Number of source lines gdb will list by default is 10.*$prompt $"\
- { pass "show" }
- -re "\n$prompt $" { fail "show" }
- timeout { fail "(timeout) show" }
- }
-
-
+gdb_test "show" "confirm: *Whether to confirm potentially dangerous operations is on..*\[\r\n\]+history filename: *The filename in which to record the command history is .*\[\r\n\]+history size: *The size of the command history is.*\[\r\n\]+history save: *Saving of the history record on exit is on..*\[\r\n\]+print elements: *Limit on string chars or array elements to print is 200..*\[\r\n\]+listsize: *Number of source lines gdb will list by default is 10.*" "show"
#test stepi "si" abbreviation
setup_xfail "a29k-*-udi"
-send "si\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "stepi \"si\" abbreviation" }
- -re ".*$prompt $" { fail "stepi \"si\" abbreviation" }
- timeout { fail "(timeout) stepi \"si\" abbreviation" }
- }
-
-
+gdb_test "si" "The program is not being run." "stepi \"si\" abbreviation"
#test stepi
setup_xfail "a29k-*-udi"
-send "stepi\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "stepi" }
- -re ".*$prompt $" { fail "stepi" }
- timeout { fail "(timeout) stepi" }
- }
-
-
+gdb_test "stepi" "The program is not being run." "stepi"
#test signal
setup_xfail "a29k-*-udi"
-send "signal\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "signal" }
- -re ".*$prompt $" { fail "signal" }
- timeout { fail "(timeout) signal" }
- }
-
-
+gdb_test "signal" "The program is not being run." "signal"
#test source
-send "source\n"
-expect {
- -re "source command requires pathname of file to source..*$prompt"
- { pass "source" }
- -re "No such file or directory.*$prompt $" { pass "source" }
- -re ".*$prompt $" { fail "source" }
- timeout { fail "(timeout) source" }
- }
-
+gdb_test "source" "source command requires pathname of file to source..*|No such file or directory.*" "source"
#test step "s" abbreviation
setup_xfail "a29k-*-udi"
-send "s\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "step \"s\" abbreviation" }
- -re ".*$prompt $" { fail "step \"s\" abbreviation" }
- timeout { fail "(timeout) step \"s\" abbreviation" }
- }
-
-
+gdb_test "s" "The program is not being run." "step \"s\" abbreviation"
#test step
setup_xfail "a29k-*-udi"
-send "step\n"
-expect {
- -re "The program is not being run..*$prompt $"\
- { pass "step" }
- -re ".*$prompt $" { fail "step" }
- timeout { fail "(timeout) step" }
- }
-
-
+gdb_test "step" "The program is not being run." "step"
#test symbol-file
-send "symbol-file\n"
-expect {
- -re "$prompt $"\
- { pass "symbol-file" }
- timeout { fail "(timeout) symbol-file" }
- }
-
+gdb_test "symbol-file" "" "symbol-file"
#test target child
-send "target child\n"
-expect {
- -re "Use the \"run\" command to start a Unix child process..*$prompt $"\
- { pass "target child (non-procfs version)" }
- -re "Undefined target command: \"child\". Try \"help target\"..*$prompt $"\
- { pass "target child (procfs version)" }
-
- -re ".*$prompt $" { fail "target child" }
- timeout { fail "(timeout) target child" }
- }
-
+gdb_test "target child" "Use the \"run\" command to start a Unix child process.*|Undefined target command: \"child\". *Try \"help target\".*" "target child"
#test target procfs
-send "target procfs\n"
-expect {
- -re "Use the \"run\" command to start a Unix child process..*$prompt $"\
- { pass "target procfs (procfs version)" }
- -re "Undefined target command: \"procfs\". Try \"help target\"..*$prompt $"\
- { pass "target procfs (non-procfs version)" }
-
- -re ".*$prompt $" { fail "target procfs" }
- timeout { fail "(timeout) target procfs" }
- }
-
+gdb_test "target procfs" "Use the \"run\" command to start a Unix child process.*|Undefined target command: \"procfs\". *Try \"help target\".*" "target procfs"
#test target core
-send "target core\n"
+send_gdb "target core\n"
expect {
- -re "No core file specified..*$prompt $"\
- { pass "target core" }
- -re ".*A program is being debugged already. Kill it. .y or n.*$" {
- send "n\n"
- if $verbose>1 then {
- send_user "\t\tDidn't kill program being debugged\n"
- }
- expect -re "$prompt $" { }
- pass "target core"
- }
- -re "Undefined target command: \"core\". Try \"help target\"..*$prompt $"\
- { pass "target core" }
- -re ".*$prompt $" { fail "target core" }
- timeout { fail "(timeout) target core" }
+ -re "No core file specified..*$prompt $" { pass "target core" }
+ -re ".*A program is being debugged already. Kill it. .y or n.*$" {
+ send_gdb "n\n"
+ if $verbose>1 then {
+ send_user "\t\tDidn't kill program being debugged\n"
}
-
+ expect -re "$prompt $" { }
+ pass "target core"
+ }
+ -re "Undefined target command: \"core\". Try \"help target\"..*$prompt $" { pass "target core" }
+ -re ".*$prompt $" { fail "target core" }
+ timeout { fail "(timeout) target core" }
+}
#test target exec
-send "target exec\n"
+send_gdb "target exec\n"
expect {
-re "No exec file now..*$prompt $"\
{ pass "target exec" }
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
- send "n\n"
+ send_gdb "n\n"
if $verbose>1 then {
send_user "\t\tDidn't kill program being debugged\n"
}
timeout { fail "(timeout) target exec" }
}
-
#test target remote
if ![istarget "*-*-udi*"] then {
- send "target remote\n"
+ send_gdb "target remote\n"
expect {
-re "To open a remote debug connection, you need to specify what serial.*
device is attached to the remote system .e.g. /dev/ttya.*$prompt $"\
{ pass "target remote" }
-re ".*A program is being debugged already. Kill it. .y or n.*$" {
- send "n\n"
+ send_gdb "n\n"
if $verbose>1 then {
send_user "\t\tDidn't kill program being debugged\n"
}
}
#test target
-send "target\n"
-expect {
- -re "Argument required .target name.*$prompt $"\
- { pass "target" }
- -re ".*$prompt $" { fail "target" }
- timeout { fail "(timeout) target" }
- }
-
-
+gdb_test "target" "Argument required .target name.*" "target"
#test tbreak
-send "tbreak\n"
-expect {
- -re "No default breakpoint address now..*$prompt $"\
- { pass "tbreak" }
- -re ".*$prompt $" { fail "tbreak" }
- timeout { fail "(timeout) tbreak" }
- }
-
-
+gdb_test "tbreak" "No default breakpoint address now." "tbreak"
#test tty
-send "tty\n"
-expect {
- -re "Argument required .terminal name for running target process.*$prompt $"\
- { pass "tty" }
- -re ".*$prompt $" { fail "tty" }
- timeout { fail "(timeout) tty" }
- }
-
-
+gdb_test "tty" "Argument required .terminal name for running target process.*" "tty"
#test until "u" abbreviation
setup_xfail "a29k-*-udi"
-send "u\n"
-expect {
- -re "The program is not running..*$prompt $"\
- { pass "until \"u\" abbreviation" }
- -re ".*$prompt $" { fail "until \"u\" abbreviation" }
- timeout { fail "(timeout) until \"u\" abbreviation" }
- }
-
-
+gdb_test "u" "The program is not running." "until \"u\" abbreviation"
#test until
setup_xfail "a29k-*-udi"
-send "until\n"
-expect {
- -re "The program is not running..*$prompt $"\
- { pass "until" }
- -re ".*$prompt $" { fail "until" }
- timeout { fail "(timeout) until" }
- }
-
-
+gdb_test "until" "The program is not running." "until"
#test undisplay
# FIXME -- need to dump full output to detailed log
-send "undisplay\n"
+send_gdb "undisplay\n"
expect {
- -re "Delete all auto-display expressions.*y or n. $"\
- { send "y\n"
- expect {
- -re "$prompt $"\
- { pass "undisplay prompt" }
- timeout { fail "(timeout) (timeout) undisplay prompt" }
- }
- }
- timeout { fail "(timeout) (timeout) undisplay prompt" }
+ -re "Delete all auto-display expressions.*y or n. $" {
+ send_gdb "y\n"
+ expect {
+ -re "$prompt $" { pass "undisplay prompt" }
+ timeout { fail "(timeout) (timeout) undisplay prompt" }
}
-
+ }
+ timeout { fail "(timeout) (timeout) undisplay prompt" }
+}
#test unset environment
-send "unset environment\n"
-expect {
- -re "Delete all environment variables?.*y or n. $"\
- { send "y\n"
- expect {
- -re "$prompt $"\
- { pass "unset environmentprompt" }
- timeout { fail "(timeout) (timeout) unset environment prompt" }
- }
- }
- timeout { fail "(timeout) (timeout) unset environment prompt" }
+send_gdb "unset environment\n"
+expect {
+ -re "Delete all environment variables?.*y or n. $" {
+ send_gdb "y\n"
+ expect {
+ -re "$prompt $" { pass "unset environmentprompt" }
+ timeout {
+ fail "(timeout) (timeout) unset environment prompt"
+ }
}
-
-
+ }
+ timeout {
+ fail "(timeout) (timeout) unset environment prompt"
+ }
+}
#test unset
-send "unset\n"
-expect {
- -re "\"unset\" must be followed by the name of an unset subcommand..*
-List of unset subcommands:.*
-unset environment -- Cancel environment variable VAR for the program.*
-Type \"help unset\" followed by unset subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "unset" }
- -re ".*$prompt $" { fail "unset" }
- timeout { fail "(timeout) unset" }
- }
-
-
+gdb_test "unset" "\"unset\" must be followed by the name of an unset subcommand..*\[\r\n\]+List of unset subcommands:.*\[\r\n\]+unset environment -- Cancel environment variable VAR for the program.*\[\r\n\]+Type \"help unset\" followed by unset subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "unset"
#test up
-gdb_test "up" "No stack\\." "up in default.exp"
-
#test up-silently
-send "up-silently\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "up-silently" }
- -re ".*$prompt $" { fail "up-silently" }
- timeout { fail "(timeout) up-silently" }
- }
-
-
+gdb_test "up-silently" "No stack." "up-silently"
#test watch
-send "watch\n"
-expect {
- -re "Argument required .expression to compute.*$prompt $"\
- { pass "watch" }
- -re ".*$prompt $" { fail "watch" }
- timeout { fail "(timeout) watch" }
- }
-
-
+gdb_test "watch" "Argument required .expression to compute.*" "watch"
#test whatis
-send "whatis\n"
-expect {
- -re "The history is empty..*$prompt $"\
- { pass "whatis" }
- -re ".*$prompt $" { fail "whatis" }
- timeout { fail "(timeout) whatis" }
- }
-
-
+gdb_test "whatis" "The history is empty." "whatis"
#test where
setup_xfail "a29k-*-udi"
-send "where\n"
-expect {
- -re "No stack..*$prompt $"\
- { pass "where" }
- -re ".*$prompt $" { fail "where" }
- timeout { fail "(timeout) where" }
- }
-
-
+gdb_test "where" "No stack." "where"
#test x
#The case in which it prints a number is for vxgdb.
-send "x\n"
-expect {
- -re "0x0:.*Cannot access memory at address 0x0..*$prompt $"\
- { pass "x" }
- -re "0x0:.*0x\[0-9\]*.*$prompt $"\
- { pass "x" }
- -re ".*$prompt $" { fail "x" }
- timeout { fail "(timeout) x" }
- }
+gdb_test "x" "0x0:.*0x\[0-9\]*|0x0:.*Cannot access memory at address 0x0." "x"
+gdb_exit
# 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. */
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
+if $tracelevel {
+ strace $tracelevel
+}
#
# test running programs
set bug_id 0
set testfile "exprs"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${testfile}.ci file"
- return -1
+if [get_compiler_info ${binfile}] {
+ return -1;
}
gdb_exit
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-source ${binfile}.ci
-
#
# set it up at a breakpoint so we can play with the variable values
#
continue
}
-#
-# test expressions with "char" types
-#
-send "set variable v_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_char == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_char == 127\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print char ==" }
- -re "$prompt $" { fail "print char ==" }
- timeout { fail "(timeout) print char ==" }
- }
- }
- -re "$prompt $" { fail "print char ==" }
- timeout { fail "(timeout) print char ==" }
- }
+proc test_expr { args } {
+ if { [llength $args] % 2 } {
+ warning "an even # of arguments should be passed to test_expr"
}
- -re "$prompt $" { fail "print char ==" }
- timeout { fail "(timeout) print char ==" }
-}
-
-
-send "set variable v_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_char != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_char != 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char !=" }
- -re "$prompt $" { fail "print char !=" }
- timeout { fail "(timeout) print char !=" }
- }
- }
- -re "$prompt $" { fail "print char !=" }
- timeout { fail "(timeout) print char !=" }
- }
+ set last_ent [expr [llength $args] - 1];
+ set testname [lindex $args $last_ent];
+ if [gdb_test [lindex $args 0] "" "$testname (setup)"] {
+ return 1;
}
- -re "$prompt $" { fail "print char !=" }
- timeout { fail "(timeout) print char !=" }
-}
-
-
-send "set variable v_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_char < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_char < 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char <" }
- -re "$prompt $" { fail "print char <" }
- timeout { fail "(timeout) print char <" }
- }
- }
- -re "$prompt $" { fail "print char <" }
- timeout { fail "(timeout) print char <" }
- }
- }
- -re "$prompt $" { fail "print char <" }
- timeout { fail "(timeout) print char <" }
-}
-
-
-send "set variable v_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_char > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_char > 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print char >" }
- -re "$prompt $" { fail "print char >" }
- timeout { fail "(timeout) print char >" }
- }
- }
- -re "$prompt $" { fail "print char >" }
- timeout { fail "(timeout) print char >" }
+ for {set x 1} {$x < $last_ent} {set x [expr $x + 2]} {
+ if [gdb_test [lindex $args $x] [lindex $args [expr $x + 1]] $testname] {
+ return 1;
}
}
- -re "$prompt $" { fail "print char >" }
- timeout { fail "(timeout) print char >" }
}
-
-
+#
+# test expressions with "char" types
+#
+test_expr "set variable v_char=127" "print v_char == 0" "\\$\[0-9\]* = 0" "print v_char == 127" "\\$\[0-9\]* = 1" "print char =="
+test_expr "set variable v_char=127" "print v_char != 0" "\\$\[0-9\]* = 1" "print v_char != 127" "\\$\[0-9\]* = 0" "print char !="
+test_expr "set variable v_char=127" "print v_char < 0" "\\$\[0-9\]* = 0" "print v_char < 127" "\\$\[0-9\]* = 0" "print char <"
+test_expr "set variable v_char=127" "print v_char > 0" "\\$\[0-9\]* = 1" "print v_char > 127" "\\$\[0-9\]* = 0" "print char >"
#
# test expressions with "signed char" types
#
-send "set variable v_signed_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_char == 127\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char ==" }
- -re "$prompt $" { fail "print signed char ==" }
- timeout { fail "(timeout) print signed char ==" }
- }
- }
- -re "$prompt $" { fail "print signed char ==" }
- timeout { fail "(timeout) print signed char ==" }
- }
- }
- -re "$prompt $" { fail "print signed char ==" }
- timeout { fail "(timeout) print signed char ==" }
-}
-
-
-send "set variable v_signed_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_char != 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char !=" }
- -re "$prompt $" { fail "print signed char !=" }
- timeout { fail "(timeout) print signed char !=" }
- }
- }
- -re "$prompt $" { fail "print signed char !=" }
- timeout { fail "(timeout) print signed char !=" }
- }
- }
- -re "$prompt $" { fail "print signed char !=" }
- timeout { fail "(timeout) print signed char !=" }
-}
-
-
-send "set variable v_signed_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_char < 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char <" }
- -re "$prompt $" { fail "print signed char <" }
- timeout { fail "(timeout) print signed char <" }
- }
- }
- -re "$prompt $" { fail "print signed char <" }
- timeout { fail "(timeout) print signed char <" }
- }
- }
- -re "$prompt $" { fail "print signed char <" }
- timeout { fail "(timeout) print signed char <" }
-}
-
-
-send "set variable v_signed_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_char > 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char >" }
- -re "$prompt $" { fail "print signed char >" }
- timeout { fail "(timeout) print signed char >" }
- }
- }
- -re "$prompt $" { fail "print signed char >" }
- timeout { fail "(timeout) print signed char >" }
- }
- }
- -re "$prompt $" { fail "print signed char >" }
- timeout { fail "(timeout) print signed char >" }
-}
-
-
+test_expr "set variable v_signed_char=127" "print v_signed_char == 0" "\\$\[0-9\]* = 0" "print v_signed_char == 127" "\\$\[0-9\]* = 1" "print signed char =="
+test_expr "set variable v_signed_char=127" "print v_signed_char != 0" "\\$\[0-9\]* = 1" "print v_signed_char != 127" "\\$\[0-9\]* = 0" "print signed char !="
+test_expr "set variable v_signed_char=127" "print v_signed_char < 0" "\\$\[0-9\]* = 0" "print v_signed_char < 127" "\\$\[0-9\]* = 0" "print signed char <"
+test_expr "set variable v_signed_char=127" "print v_signed_char > 0" "\\$\[0-9\]* = 1" "print v_signed_char > 127" "\\$\[0-9\]* = 0" "print signed char >"
# make char a minus
-if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
-send "set variable v_signed_char=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_char == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char == (minus)" }
- -re "$prompt $" { fail "print signed char == (minus)" }
- timeout { fail "(timeout) print signed char == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char == (minus)" }
- timeout { fail "(timeout) print signed char == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char == (minus)" }
- timeout { fail "(timeout) print signed char == (minus)" }
-}
-
-
-if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
-send "set variable v_signed_char=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_char != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char != (minus)" }
- -re "$prompt $" { fail "print signed char != (minus)" }
- timeout { fail "(timeout) print signed char != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char != (minus)" }
- timeout { fail "(timeout) print signed char != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char != (minus)" }
- timeout { fail "(timeout) print signed char != (minus)" }
-}
-
-
-if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
-send "set variable v_signed_char=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_char < 127\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed char < (minus)" }
- -re "$prompt $" { fail "print signed char < (minus)" }
- timeout { fail "(timeout) print signed char < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char < (minus)" }
- timeout { fail "(timeout) print signed char < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char < (minus)" }
- timeout { fail "(timeout) print signed char < (minus)" }
-}
-
-if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
-send "set variable v_signed_char=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_char > 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed char > (minus)" }
- -re "$prompt $" { fail "print signed char > (minus)" }
- timeout { fail "(timeout) print signed char > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char > (minus)" }
- timeout { fail "(timeout) print signed char > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed char > (minus)" }
- timeout { fail "(timeout) print signed char > (minus)" }
-}
-
-
+test_expr "set variable v_signed_char=-1" "print v_signed_char == 0" "\\$\[0-9\]* = 0" "print v_signed_char == -1" "\\$\[0-9\]* = 1" "print signed char == (minus)"
+test_expr "set variable v_signed_char=-1" "print v_signed_char != 0" "\\$\[0-9\]* = 1" "print v_signed_char != -1" "\\$\[0-9\]* = 0" "print signed char != (minus)"
+test_expr "set variable v_signed_char=-1" "print v_signed_char < 0" "\\$\[0-9\]* = 1" "print v_signed_char < 127" "\\$\[0-9\]* = 1" "print signed char < (minus)"
+test_expr "set variable v_signed_char=-1" "print v_signed_char > 0" "\\$\[0-9\]* = 0" "print v_signed_char > 127" "\\$\[0-9\]* = 0" "print signed char > (minus)"
#
# test expressions with "unsigned char" types
#
-send "set variable v_unsigned_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_char == 127\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char ==" }
- -re "$prompt $" { fail "print unsigned char ==" }
- timeout { fail "(timeout) print unsigned char ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned char ==" }
- timeout { fail "(timeout) print unsigned char ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned char ==" }
- timeout { fail "(timeout) print unsigned char ==" }
-}
-
-
-send "set variable v_unsigned_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_char != 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char !=" }
- -re "$prompt $" { fail "print unsigned char !=" }
- timeout { fail "(timeout) print unsigned char !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned char !=" }
- timeout { fail "(timeout) print unsigned char !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned char !=" }
- timeout { fail "(timeout) print unsigned char !=" }
-}
-
-
-send "set variable v_unsigned_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_char < 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char <" }
- -re "$prompt $" { fail "print unsigned char <" }
- timeout { fail "(timeout) print unsigned char <" }
- }
- }
- -re "$prompt $" { fail "print unsigned char <" }
- timeout { fail "(timeout) print unsigned char <" }
- }
- }
- -re "$prompt $" { fail "print unsigned char <" }
- timeout { fail "(timeout) print unsigned char <" }
-}
-
-
-send "set variable v_unsigned_char=127\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_char > 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char >" }
- -re "$prompt $" { fail "print unsigned char >" }
- timeout { fail "(timeout) print unsigned char >" }
- }
- }
- -re "$prompt $" { fail "print unsigned char >" }
- timeout { fail "(timeout) print unsigned char >" }
- }
- }
- -re "$prompt $" { fail "print unsigned char >" }
- timeout { fail "(timeout) print unsigned char >" }
-}
-
-
+test_expr "set variable v_unsigned_char=127" "print v_unsigned_char == 0" "\\$\[0-9\]* = 0" "print v_unsigned_char == 127" "\\$\[0-9\]* = 1" "print unsigned char =="
+test_expr "set variable v_unsigned_char=127" "print v_unsigned_char != 0" "\\$\[0-9\]* = 1" "print v_unsigned_char != 127" "\\$\[0-9\]* = 0" "print unsigned char !="
+test_expr "set variable v_unsigned_char=127" "print v_unsigned_char < 0" "\\$\[0-9\]* = 0" "print v_unsigned_char < 127" "\\$\[0-9\]* = 0" "print unsigned char <"
+test_expr "set variable v_unsigned_char=127" "print v_unsigned_char > 0" "\\$\[0-9\]* = 1" "print v_unsigned_char > 127" "\\$\[0-9\]* = 0" "print unsigned char >"
# make char a minus
# FIXME: gdb mishandles the cast (unsigned char) on the i960, so I've
# set up an expected failure for this case.
-send "set variable v_unsigned_char=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_char == ~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- setup_xfail "i960-*-*" 1821
- send "print v_unsigned_char == (unsigned char)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char == (~0)" }
- -re "$prompt $" { fail "print unsigned char == (~0)" }
- timeout { fail "(timeout) print unsigned char == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char == (~0)" }
- timeout { fail "(timeout) print unsigned char == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char == (~0)" }
- timeout { fail "(timeout) print unsigned char == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char == (~0)" }
- timeout { fail "(timeout) print unsigned char == (~0)" }
-}
-
-
+setup_xfail "i960-*-*" 1821
+test_expr "set variable v_unsigned_char=~0" "print v_unsigned_char == 0" "\\$\[0-9\]* = 0" "print v_unsigned_char == ~0" "\\$\[0-9\]* = 0" "print v_unsigned_char == (unsigned char)~0" "\\$\[0-9\]* = 1" "print unsigned char == (~0)"
# FIXME: gdb mishandles the cast (unsigned char) on the i960, so I've
# set up an expected failure for this case.
-send "set variable v_unsigned_char=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- setup_xfail "i960-*-*" 1821
- send "print v_unsigned_char != (unsigned char)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char != (~0)" }
- -re "$prompt $" { fail "print unsigned char != (~0)" }
- timeout { fail "(timeout) print unsigned char != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char != (~0)" }
- timeout { fail "(timeout) print unsigned char != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char != (~0)" }
- timeout { fail "(timeout) print unsigned char != (~0)" }
-}
-
-
-send "set variable v_unsigned_char=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_char < 127\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned char < (~0)" }
- -re "$prompt $" { fail "print unsigned char < (~0)" }
- timeout { fail "(timeout) print unsigned char < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char < (~0)" }
- timeout { fail "(timeout) print unsigned char < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char < (~0)" }
- timeout { fail "(timeout) print unsigned char < (~0)" }
-}
-
-
-send "set variable v_unsigned_char=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_char > 127\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned char > (~0)" }
- -re "$prompt $" { fail "print unsigned char > (~0)" }
- timeout { fail "(timeout) print unsigned char > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char > (~0)" }
- timeout { fail "(timeout) print unsigned char > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned char > (~0)" }
- timeout { fail "(timeout) print unsigned char > (~0)" }
-}
-
-
+setup_xfail "i960-*-*" 1821
+test_expr "set variable v_unsigned_char=~0" "print v_unsigned_char != 0" "\\$\[0-9\]* = 1" "print v_unsigned_char != (unsigned char)~0" "\\$\[0-9\]* = 0" "print unsigned char != (~0)"
+test_expr "set variable v_unsigned_char=~0" "print v_unsigned_char < 0" "\\$\[0-9\]* = 0" "print v_unsigned_char < 127" "\\$\[0-9\]* = 0" "print unsigned char < (~0)"
+test_expr "set variable v_unsigned_char=~0" "print v_unsigned_char > 0" "\\$\[0-9\]* = 1" "print v_unsigned_char > 127" "\\$\[0-9\]* = 1" "print unsigned char > (~0)"
#
# test expressions with "short" types
#
-send "set variable v_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_short == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short ==" }
- -re "$prompt $" { fail "print signed short ==" }
- timeout { fail "(timeout) print signed short ==" }
- }
- }
- -re "$prompt $" { fail "print signed short ==" }
- timeout { fail "(timeout) print signed short ==" }
- }
- }
- -re "$prompt $" { fail "print signed short ==" }
- timeout { fail "(timeout) print signed short ==" }
-}
-
-
-send "set variable v_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_short != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short !=" }
- -re "$prompt $" { fail "print signed short !=" }
- timeout { fail "(timeout) print signed short !=" }
- }
- }
- -re "$prompt $" { fail "print signed short !=" }
- timeout { fail "(timeout) print signed short !=" }
- }
- }
- -re "$prompt $" { fail "print signed short !=" }
- timeout { fail "(timeout) print signed short !=" }
-}
-
-
-send "set variable v_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short <" }
- -re "$prompt $" { fail "print signed short <" }
- timeout { fail "(timeout) print signed short <" }
- }
- }
- -re "$prompt $" { fail "print signed short <" }
- timeout { fail "(timeout) print signed short <" }
- }
- }
- -re "$prompt $" { fail "print signed short <" }
- timeout { fail "(timeout) print signed short <" }
-}
-
-
-send "set variable v_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short >" }
- -re "$prompt $" { fail "print signed short >" }
- timeout { fail "(timeout) print signed short >" }
- }
- }
- -re "$prompt $" { fail "print signed short >" }
- timeout { fail "(timeout) print signed short >" }
- }
- }
- -re "$prompt $" { fail "print signed short >" }
- timeout { fail "(timeout) print signed short >" }
-}
-
-
+test_expr "set variable v_short=0x7FFF" "print v_short == 0" "\\$\[0-9\]* = 0" "print v_short == 0x7FFF" "\\$\[0-9\]* = 1" "print signed short =="
+test_expr "set variable v_short=0x7FFF" "print v_short != 0" "\\$\[0-9\]* = 1" "print v_short != 0x7FFF" "\\$\[0-9\]* = 0" "print signed short !="
+test_expr "set variable v_short=0x7FFF" "print v_short < 0" "\\$\[0-9\]* = 0" "print v_short < 0x7FFF" "\\$\[0-9\]* = 0" "print signed short <"
+test_expr "set variable v_short=0x7FFF" "print v_short > 0" "\\$\[0-9\]* = 1" "print v_short > 0x7FFF" "\\$\[0-9\]* = 0" "print signed short >"
# make short a minus
-send "set variable v_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_short == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short == (minus)" }
- -re "$prompt $" { fail "print signed short == (minus)" }
- timeout { fail "(timeout) print signed short == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short == (minus)" }
- timeout { fail "(timeout) print signed short == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short == (minus)" }
- timeout { fail "(timeout) print signed short == (minus)" }
-}
-
-
-send "set variable v_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_short != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short != (minus)" }
- -re "$prompt $" { fail "print signed short != (minus)" }
- timeout { fail "(timeout) print signed short != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short != (minus)" }
- timeout { fail "(timeout) print signed short != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short != (minus)" }
- timeout { fail "(timeout) print signed short != (minus)" }
-}
-
-
-send "set variable v_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed short < (minus)" }
- -re "$prompt $" { fail "print signed short < (minus)" }
- timeout { fail "(timeout) print signed short < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short < (minus)" }
- timeout { fail "(timeout) print signed short < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short < (minus)" }
- timeout { fail "(timeout) print signed short < (minus)" }
-}
-
-
-send "set variable v_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed short > (minus)" }
- -re "$prompt $" { fail "print signed short > (minus)" }
- timeout { fail "(timeout) print signed short > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short > (minus)" }
- timeout { fail "(timeout) print signed short > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed short > (minus)" }
- timeout { fail "(timeout) print signed short > (minus)" }
-}
-
-
+test_expr "set variable v_short=-1" "print v_short == 0" "\\$\[0-9\]* = 0" "print v_short == -1" "\\$\[0-9\]* = 1" "print signed short == (minus)"
+test_expr "set variable v_short=-1" "print v_short != 0" "\\$\[0-9\]* = 1" "print v_short != -1" "\\$\[0-9\]* = 0" "print signed short != (minus)"
+test_expr "set variable v_short=-1" "print v_short < 0" "\\$\[0-9\]* = 1" "print v_short < 0x7FFF" "\\$\[0-9\]* = 1" "print signed short < (minus)"
+test_expr "set variable v_short=-1" "print v_short > 0" "\\$\[0-9\]* = 0" "print v_short > 0x7FFF" "\\$\[0-9\]* = 0" "print signed short > (minus)"
#
# test expressions with "signed short" types
#
-send "set variable v_signed_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_short == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short ==" }
- -re "$prompt $" { fail "print signed signed short ==" }
- timeout { fail "(timeout) print signed signed short ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed short ==" }
- timeout { fail "(timeout) print signed signed short ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed short ==" }
- timeout { fail "(timeout) print signed signed short ==" }
-}
-
-
-send "set variable v_signed_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_short != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short !=" }
- -re "$prompt $" { fail "print signed signed short !=" }
- timeout { fail "(timeout) print signed signed short !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed short !=" }
- timeout { fail "(timeout) print signed signed short !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed short !=" }
- timeout { fail "(timeout) print signed signed short !=" }
-}
-
-
-send "set variable v_signed_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short <" }
- -re "$prompt $" { fail "print signed signed short <" }
- timeout { fail "(timeout) print signed signed short <" }
- }
- }
- -re "$prompt $" { fail "print signed signed short <" }
- timeout { fail "(timeout) print signed signed short <" }
- }
- }
- -re "$prompt $" { fail "print signed signed short <" }
- timeout { fail "(timeout) print signed signed short <" }
-}
-
-
-send "set variable v_signed_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short >" }
- -re "$prompt $" { fail "print signed signed short >" }
- timeout { fail "(timeout) print signed signed short >" }
- }
- }
- -re "$prompt $" { fail "print signed signed short >" }
- timeout { fail "(timeout) print signed signed short >" }
- }
- }
- -re "$prompt $" { fail "print signed signed short >" }
- timeout { fail "(timeout) print signed signed short >" }
-}
-
-
+test_expr "set variable v_signed_short=0x7FFF" "print v_signed_short == 0" "\\$\[0-9\]* = 0" "print v_signed_short == 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed short =="
+test_expr "set variable v_signed_short=0x7FFF" "print v_signed_short != 0" "\\$\[0-9\]* = 1" "print v_signed_short != 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed short !="
+test_expr "set variable v_signed_short=0x7FFF" "print v_signed_short < 0" "\\$\[0-9\]* = 0" "print v_signed_short < 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed short <"
+test_expr "set variable v_signed_short=0x7FFF" "print v_signed_short > 0" "\\$\[0-9\]* = 1" "print v_signed_short > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed short >"
# make short a minus
-send "set variable v_signed_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_short == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short == (minus)" }
- -re "$prompt $" { fail "print signed signed short == (minus)" }
- timeout { fail "(timeout) print signed signed short == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short == (minus)" }
- timeout { fail "(timeout) print signed signed short == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short == (minus)" }
- timeout { fail "(timeout) print signed signed short == (minus)" }
-}
-
-
-send "set variable v_signed_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_short != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short != (minus)" }
- -re "$prompt $" { fail "print signed signed short != (minus)" }
- timeout { fail "(timeout) print signed signed short != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short != (minus)" }
- timeout { fail "(timeout) print signed signed short != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short != (minus)" }
- timeout { fail "(timeout) print signed signed short != (minus)" }
-}
-
-
-send "set variable v_signed_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed short < (minus)" }
- -re "$prompt $" { fail "print signed signed short < (minus)" }
- timeout { fail "(timeout) print signed signed short < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short < (minus)" }
- timeout { fail "(timeout) print signed signed short < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short < (minus)" }
- timeout { fail "(timeout) print signed signed short < (minus)" }
-}
-
-
-send "set variable v_signed_short=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed short > (minus)" }
- -re "$prompt $" { fail "print signed signed short > (minus)" }
- timeout { fail "(timeout) print signed signed short > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short > (minus)" }
- timeout { fail "(timeout) print signed signed short > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed short > (minus)" }
- timeout { fail "(timeout) print signed signed short > (minus)" }
-}
-
-
+test_expr "set variable v_signed_short=-1" "print v_signed_short == 0" "\\$\[0-9\]* = 0" "print v_signed_short == -1" "\\$\[0-9\]* = 1" "print signed signed short == (minus)"
+test_expr "set variable v_signed_short=-1" "print v_signed_short != 0" "\\$\[0-9\]* = 1" "print v_signed_short != -1" "\\$\[0-9\]* = 0" "print signed signed short != (minus)"
+test_expr "set variable v_signed_short=-1" "print v_signed_short < 0" "\\$\[0-9\]* = 1" "print v_signed_short < 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed short < (minus)"
+test_expr "set variable v_signed_short=-1" "print v_signed_short > 0" "\\$\[0-9\]* = 0" "print v_signed_short > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed short > (minus)"
#
# test expressions with "unsigned short" types
#
-send "set variable v_unsigned_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_short == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short ==" }
- -re "$prompt $" { fail "print unsigned short ==" }
- timeout { fail "(timeout) print unsigned short ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned short ==" }
- timeout { fail "(timeout) print unsigned short ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned short ==" }
- timeout { fail "(timeout) print unsigned short ==" }
-}
-
-
-send "set variable v_unsigned_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_short != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short !=" }
- -re "$prompt $" { fail "print unsigned short !=" }
- timeout { fail "(timeout) print unsigned short !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned short !=" }
- timeout { fail "(timeout) print unsigned short !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned short !=" }
- timeout { fail "(timeout) print unsigned short !=" }
-}
-
-
-send "set variable v_unsigned_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short <" }
- -re "$prompt $" { fail "print unsigned short <" }
- timeout { fail "(timeout) print unsigned short <" }
- }
- }
- -re "$prompt $" { fail "print unsigned short <" }
- timeout { fail "(timeout) print unsigned short <" }
- }
- }
- -re "$prompt $" { fail "print unsigned short <" }
- timeout { fail "(timeout) print unsigned short <" }
-}
-
-
-send "set variable v_unsigned_short=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short >" }
- -re "$prompt $" { fail "print unsigned short >" }
- timeout { fail "(timeout) print unsigned short >" }
- }
- }
- -re "$prompt $" { fail "print unsigned short >" }
- timeout { fail "(timeout) print unsigned short >" }
- }
- }
- -re "$prompt $" { fail "print unsigned short >" }
- timeout { fail "(timeout) print unsigned short >" }
-}
-
-
+test_expr "set variable v_unsigned_short=0x7FFF" "print v_unsigned_short == 0" "\\$\[0-9\]* = 0" "print v_unsigned_short == 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned short =="
+test_expr "set variable v_unsigned_short=0x7FFF" "print v_unsigned_short != 0" "\\$\[0-9\]* = 1" "print v_unsigned_short != 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned short !="
+test_expr "set variable v_unsigned_short=0x7FFF" "print v_unsigned_short < 0" "\\$\[0-9\]* = 0" "print v_unsigned_short < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned short <"
+test_expr "set variable v_unsigned_short=0x7FFF" "print v_unsigned_short > 0" "\\$\[0-9\]* = 1" "print v_unsigned_short > 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned short >"
# make short a minus
-send "set variable v_unsigned_short=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_short == ~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_short == (unsigned short)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short == (~0)" }
- -re "$prompt $" { fail "print unsigned short == (~0)" }
- timeout { fail "(timeout) print unsigned short == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short == (~0)" }
- timeout { fail "(timeout) print unsigned short == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short == (~0)" }
- timeout { fail "(timeout) print unsigned short == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short == (~0)" }
- timeout { fail "(timeout) print unsigned short == (~0)" }
-}
-
-
-send "set variable v_unsigned_short=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_short != (unsigned short)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short != (~0)" }
- -re "$prompt $" { fail "print unsigned short != (~0)" }
- timeout { fail "(timeout) print unsigned short != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short != (~0)" }
- timeout { fail "(timeout) print unsigned short != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short != (~0)" }
- timeout { fail "(timeout) print unsigned short != (~0)" }
-}
-
-
-send "set variable v_unsigned_short=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_short < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned short < (~0)" }
- -re "$prompt $" { fail "print unsigned short < (~0)" }
- timeout { fail "(timeout) print unsigned short < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short < (~0)" }
- timeout { fail "(timeout) print unsigned short < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short < (~0)" }
- timeout { fail "(timeout) print unsigned short < (~0)" }
-}
-
-
-send "set variable v_unsigned_short=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_short > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_short > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned short > (~0)" }
- -re "$prompt $" { fail "print unsigned short > (~0)" }
- timeout { fail "(timeout) print unsigned short > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short > (~0)" }
- timeout { fail "(timeout) print unsigned short > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned short > (~0)" }
- timeout { fail "(timeout) print unsigned short > (~0)" }
-}
-
-
+test_expr "set variable v_unsigned_short=~0" "print v_unsigned_short == 0" "\\$\[0-9\]* = 0" "print v_unsigned_short == ~0" "\\$\[0-9\]* = 0" "print v_unsigned_short == (unsigned short)~0" "\\$\[0-9\]* = 1" "print unsigned short == (~0)"
+test_expr "set variable v_unsigned_short=~0" "print v_unsigned_short != 0" "\\$\[0-9\]* = 1" "print v_unsigned_short != (unsigned short)~0" "\\$\[0-9\]* = 0" "print unsigned short != (~0)"
+test_expr "set variable v_unsigned_short=~0" "print v_unsigned_short < 0" "\\$\[0-9\]* = 0" "print v_unsigned_short < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned short < (~0)"
+test_expr "set variable v_unsigned_short=~0" "print v_unsigned_short > 0" "\\$\[0-9\]* = 1" "print v_unsigned_short > 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned short > (~0)"
#
# test expressions with "int" types
#
-send "set variable v_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_int == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int ==" }
- -re "$prompt $" { fail "print signed int ==" }
- timeout { fail "(timeout) print signed int ==" }
- }
- }
- -re "$prompt $" { fail "print signed int ==" }
- timeout { fail "(timeout) print signed int ==" }
- }
- }
- -re "$prompt $" { fail "print signed int ==" }
- timeout { fail "(timeout) print signed int ==" }
-}
-
-
-send "set variable v_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_int != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int !=" }
- -re "$prompt $" { fail "print signed int !=" }
- timeout { fail "(timeout) print signed int !=" }
- }
- }
- -re "$prompt $" { fail "print signed int !=" }
- timeout { fail "(timeout) print signed int !=" }
- }
- }
- -re "$prompt $" { fail "print signed int !=" }
- timeout { fail "(timeout) print signed int !=" }
-}
-
-
-send "set variable v_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int <" }
- -re "$prompt $" { fail "print signed int <" }
- timeout { fail "(timeout) print signed int <" }
- }
- }
- -re "$prompt $" { fail "print signed int <" }
- timeout { fail "(timeout) print signed int <" }
- }
- }
- -re "$prompt $" { fail "print signed int <" }
- timeout { fail "(timeout) print signed int <" }
-}
-
-
-send "set variable v_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int >" }
- -re "$prompt $" { fail "print signed int >" }
- timeout { fail "(timeout) print signed int >" }
- }
- }
- -re "$prompt $" { fail "print signed int >" }
- timeout { fail "(timeout) print signed int >" }
- }
- }
- -re "$prompt $" { fail "print signed int >" }
- timeout { fail "(timeout) print signed int >" }
-}
-
-
+test_expr "set variable v_int=0x7FFF" "print v_int == 0" "\\$\[0-9\]* = 0" "print v_int == 0x7FFF" "\\$\[0-9\]* = 1" "print signed int =="
+test_expr "set variable v_int=0x7FFF" "print v_int != 0" "\\$\[0-9\]* = 1" "print v_int != 0x7FFF" "\\$\[0-9\]* = 0" "print signed int !="
+test_expr "set variable v_int=0x7FFF" "print v_int < 0" "\\$\[0-9\]* = 0" "print v_int < 0x7FFF" "\\$\[0-9\]* = 0" "print signed int <"
+test_expr "set variable v_int=0x7FFF" "print v_int > 0" "\\$\[0-9\]* = 1" "print v_int > 0x7FFF" "\\$\[0-9\]* = 0" "print signed int >"
# make int a minus
-send "set variable v_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_int == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int == (minus)" }
- -re "$prompt $" { fail "print signed int == (minus)" }
- timeout { fail "(timeout) print signed int == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int == (minus)" }
- timeout { fail "(timeout) print signed int == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int == (minus)" }
- timeout { fail "(timeout) print signed int == (minus)" }
-}
-
-
-send "set variable v_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_int != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int != (minus)" }
- -re "$prompt $" { fail "print signed int != (minus)" }
- timeout { fail "(timeout) print signed int != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int != (minus)" }
- timeout { fail "(timeout) print signed int != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int != (minus)" }
- timeout { fail "(timeout) print signed int != (minus)" }
-}
-
-
-send "set variable v_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed int < (minus)" }
- -re "$prompt $" { fail "print signed int < (minus)" }
- timeout { fail "(timeout) print signed int < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int < (minus)" }
- timeout { fail "(timeout) print signed int < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int < (minus)" }
- timeout { fail "(timeout) print signed int < (minus)" }
-}
-
-
-send "set variable v_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed int > (minus)" }
- -re "$prompt $" { fail "print signed int > (minus)" }
- timeout { fail "(timeout) print signed int > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int > (minus)" }
- timeout { fail "(timeout) print signed int > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed int > (minus)" }
- timeout { fail "(timeout) print signed int > (minus)" }
-}
-
-
+test_expr "set variable v_int=-1" "print v_int == 0" "\\$\[0-9\]* = 0" "print v_int == -1" "\\$\[0-9\]* = 1" "print signed int == (minus)"
+test_expr "set variable v_int=-1" "print v_int != 0" "\\$\[0-9\]* = 1" "print v_int != -1" "\\$\[0-9\]* = 0" "print signed int != (minus)"
+test_expr "set variable v_int=-1" "print v_int < 0" "\\$\[0-9\]* = 1" "print v_int < 0x7FFF" "\\$\[0-9\]* = 1" "print signed int < (minus)"
+test_expr "set variable v_int=-1" "print v_int > 0" "\\$\[0-9\]* = 0" "print v_int > 0x7FFF" "\\$\[0-9\]* = 0" "print signed int > (minus)"
#
# test expressions with "signed int" types
#
-send "set variable v_signed_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_int == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int ==" }
- -re "$prompt $" { fail "print signed signed int ==" }
- timeout { fail "(timeout) print signed signed int ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed int ==" }
- timeout { fail "(timeout) print signed signed int ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed int ==" }
- timeout { fail "(timeout) print signed signed int ==" }
-}
-
-
-send "set variable v_signed_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_int != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int !=" }
- -re "$prompt $" { fail "print signed signed int !=" }
- timeout { fail "(timeout) print signed signed int !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed int !=" }
- timeout { fail "(timeout) print signed signed int !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed int !=" }
- timeout { fail "(timeout) print signed signed int !=" }
-}
-
-
-send "set variable v_signed_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int <" }
- -re "$prompt $" { fail "print signed signed int <" }
- timeout { fail "(timeout) print signed signed int <" }
- }
- }
- -re "$prompt $" { fail "print signed signed int <" }
- timeout { fail "(timeout) print signed signed int <" }
- }
- }
- -re "$prompt $" { fail "print signed signed int <" }
- timeout { fail "(timeout) print signed signed int <" }
-}
-
-
-send "set variable v_signed_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int >" }
- -re "$prompt $" { fail "print signed signed int >" }
- timeout { fail "(timeout) print signed signed int >" }
- }
- }
- -re "$prompt $" { fail "print signed signed int >" }
- timeout { fail "(timeout) print signed signed int >" }
- }
- }
- -re "$prompt $" { fail "print signed signed int >" }
- timeout { fail "(timeout) print signed signed int >" }
-}
-
-
+test_expr "set variable v_signed_int=0x7FFF" "print v_signed_int == 0" "\\$\[0-9\]* = 0" "print v_signed_int == 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed int =="
+test_expr "set variable v_signed_int=0x7FFF" "print v_signed_int != 0" "\\$\[0-9\]* = 1" "print v_signed_int != 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed int !="
+test_expr "set variable v_signed_int=0x7FFF" "print v_signed_int < 0" "\\$\[0-9\]* = 0" "print v_signed_int < 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed int <"
+test_expr "set variable v_signed_int=0x7FFF" "print v_signed_int > 0" "\\$\[0-9\]* = 1" "print v_signed_int > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed int >"
# make int a minus
-send "set variable v_signed_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_int == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int == (minus)" }
- -re "$prompt $" { fail "print signed signed int == (minus)" }
- timeout { fail "(timeout) print signed signed int == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int == (minus)" }
- timeout { fail "(timeout) print signed signed int == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int == (minus)" }
- timeout { fail "(timeout) print signed signed int == (minus)" }
-}
-
-
-send "set variable v_signed_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_int != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int != (minus)" }
- -re "$prompt $" { fail "print signed signed int != (minus)" }
- timeout { fail "(timeout) print signed signed int != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int != (minus)" }
- timeout { fail "(timeout) print signed signed int != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int != (minus)" }
- timeout { fail "(timeout) print signed signed int != (minus)" }
-}
-
-
-send "set variable v_signed_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed int < (minus)" }
- -re "$prompt $" { fail "print signed signed int < (minus)" }
- timeout { fail "(timeout) print signed signed int < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int < (minus)" }
- timeout { fail "(timeout) print signed signed int < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int < (minus)" }
- timeout { fail "(timeout) print signed signed int < (minus)" }
-}
-
-
-send "set variable v_signed_int=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed int > (minus)" }
- -re "$prompt $" { fail "print signed signed int > (minus)" }
- timeout { fail "(timeout) print signed signed int > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int > (minus)" }
- timeout { fail "(timeout) print signed signed int > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed int > (minus)" }
- timeout { fail "(timeout) print signed signed int > (minus)" }
-}
-
-
+test_expr "set variable v_signed_int=-1" "print v_signed_int == 0" "\\$\[0-9\]* = 0" "print v_signed_int == -1" "\\$\[0-9\]* = 1" "print signed signed int == (minus)"
+test_expr "set variable v_signed_int=-1" "print v_signed_int != 0" "\\$\[0-9\]* = 1" "print v_signed_int != -1" "\\$\[0-9\]* = 0" "print signed signed int != (minus)"
+test_expr "set variable v_signed_int=-1" "print v_signed_int < 0" "\\$\[0-9\]* = 1" "print v_signed_int < 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed int < (minus)"
+test_expr "set variable v_signed_int=-1" "print v_signed_int > 0" "\\$\[0-9\]* = 0" "print v_signed_int > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed int > (minus)"
#
# test expressions with "unsigned int" types
#
-send "set variable v_unsigned_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_int == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int ==" }
- -re "$prompt $" { fail "print unsigned int ==" }
- timeout { fail "(timeout) print unsigned int ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned int ==" }
- timeout { fail "(timeout) print unsigned int ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned int ==" }
- timeout { fail "(timeout) print unsigned int ==" }
-}
-
-
-send "set variable v_unsigned_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_int != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int !=" }
- -re "$prompt $" { fail "print unsigned int !=" }
- timeout { fail "(timeout) print unsigned int !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned int !=" }
- timeout { fail "(timeout) print unsigned int !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned int !=" }
- timeout { fail "(timeout) print unsigned int !=" }
-}
-
-
-send "set variable v_unsigned_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int <" }
- -re "$prompt $" { fail "print unsigned int <" }
- timeout { fail "(timeout) print unsigned int <" }
- }
- }
- -re "$prompt $" { fail "print unsigned int <" }
- timeout { fail "(timeout) print unsigned int <" }
- }
- }
- -re "$prompt $" { fail "print unsigned int <" }
- timeout { fail "(timeout) print unsigned int <" }
-}
-
-
-send "set variable v_unsigned_int=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int >" }
- -re "$prompt $" { fail "print unsigned int >" }
- timeout { fail "(timeout) print unsigned int >" }
- }
- }
- -re "$prompt $" { fail "print unsigned int >" }
- timeout { fail "(timeout) print unsigned int >" }
- }
- }
- -re "$prompt $" { fail "print unsigned int >" }
- timeout { fail "(timeout) print unsigned int >" }
-}
-
-
+test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int == 0" "\\$\[0-9\]* = 0" "print v_unsigned_int == 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned int =="
+test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int != 0" "\\$\[0-9\]* = 1" "print v_unsigned_int != 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned int !="
+test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int < 0" "\\$\[0-9\]* = 0" "print v_unsigned_int < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned int <"
+test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int > 0" "\\$\[0-9\]* = 1" "print v_unsigned_int > 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned int >"
# make int a minus
-send "set variable v_unsigned_int=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_int == ~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_int == (unsigned int)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int == (~0)" }
- -re "$prompt $" { fail "print unsigned int == (~0)" }
- timeout { fail "(timeout) print unsigned int == (~0)" }
- }
- }
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- fail "print unsigned int == (~0)"
- send "print v_unsigned_int == (unsigned int)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int == (~0)" }
- -re "$prompt $" { fail "print unsigned int == (~0)" }
- timeout { fail "(timeout) print unsigned int == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int == (~0)" }
- timeout { fail "(timeout) print unsigned int == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int == (~0)" }
- timeout { fail "(timeout) print unsigned int == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int == (~0)" }
- timeout { fail "(timeout) print unsigned int == (~0)" }
-}
-
-
-send "set variable v_unsigned_int=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_int != (unsigned int)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int != (~0)" }
- -re "$prompt $" { fail "print unsigned int != (~0)" }
- timeout { fail "(timeout) print unsigned int != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int != (~0)" }
- timeout { fail "(timeout) print unsigned int != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int != (~0)" }
- timeout { fail "(timeout) print unsigned int != (~0)" }
-}
-
-
-send "set variable v_unsigned_int=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_int < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned int < (~0)" }
- -re "$prompt $" { fail "print unsigned int < (~0)" }
- timeout { fail "(timeout) print unsigned int < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int < (~0)" }
- timeout { fail "(timeout) print unsigned int < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int < (~0)" }
- timeout { fail "(timeout) print unsigned int < (~0)" }
-}
-
-
-send "set variable v_unsigned_int=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_int > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned int > (~0)" }
- -re "$prompt $" { fail "print unsigned int > (~0)" }
- timeout { fail "(timeout) print unsigned int > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int > (~0)" }
- timeout { fail "(timeout) print unsigned int > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned int > (~0)" }
- timeout { fail "(timeout) print unsigned int > (~0)" }
-}
-
-
+test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int == 0" "\\$\[0-9\]* = 0" "print v_unsigned_int == ~0" "\\$\[0-9\]* = 1" "print v_unsigned_int == (unsigned int)~0" "\\$\[0-9\]* = 1" "print unsigned int == (~0)"
+test_expr "\\$\[0-9\]* = 0" "print v_unsigned_int == (unsigned int)~0" "\\$\[0-9\]* = 1" "print unsigned int == (~0)"
+test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int != 0" "\\$\[0-9\]* = 1" "print v_unsigned_int != (unsigned int)~0" "\\$\[0-9\]* = 0" "print unsigned int != (~0)"
+test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int < 0" "\\$\[0-9\]* = 0" "print v_unsigned_int < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned int < (~0)"
+test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int > 0" "\\$\[0-9\]* = 1" "print v_unsigned_int > 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned int > (~0)"
#
# test expressions with "long" types
#
-send "set variable v_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_long == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long ==" }
- -re "$prompt $" { fail "print signed long ==" }
- timeout { fail "(timeout) print signed long ==" }
- }
- }
- -re "$prompt $" { fail "print signed long ==" }
- timeout { fail "(timeout) print signed long ==" }
- }
- }
- -re "$prompt $" { fail "print signed long ==" }
- timeout { fail "(timeout) print signed long ==" }
-}
-
-
-send "set variable v_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_long != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long !=" }
- -re "$prompt $" { fail "print signed long !=" }
- timeout { fail "(timeout) print signed long !=" }
- }
- }
- -re "$prompt $" { fail "print signed long !=" }
- timeout { fail "(timeout) print signed long !=" }
- }
- }
- -re "$prompt $" { fail "print signed long !=" }
- timeout { fail "(timeout) print signed long !=" }
-}
-
-
-send "set variable v_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long <" }
- -re "$prompt $" { fail "print signed long <" }
- timeout { fail "(timeout) print signed long <" }
- }
- }
- -re "$prompt $" { fail "print signed long <" }
- timeout { fail "(timeout) print signed long <" }
- }
- }
- -re "$prompt $" { fail "print signed long <" }
- timeout { fail "(timeout) print signed long <" }
-}
-
-
-send "set variable v_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long >" }
- -re "$prompt $" { fail "print signed long >" }
- timeout { fail "(timeout) print signed long >" }
- }
- }
- -re "$prompt $" { fail "print signed long >" }
- timeout { fail "(timeout) print signed long >" }
- }
- }
- -re "$prompt $" { fail "print signed long >" }
- timeout { fail "(timeout) print signed long >" }
-}
-
-
+test_expr "set variable v_long=0x7FFF" "print v_long == 0" "\\$\[0-9\]* = 0" "print v_long == 0x7FFF" "\\$\[0-9\]* = 1" "print signed long =="
+test_expr "set variable v_long=0x7FFF" "print v_long != 0" "\\$\[0-9\]* = 1" "print v_long != 0x7FFF" "\\$\[0-9\]* = 0" "print signed long !="
+test_expr "set variable v_long=0x7FFF" "print v_long < 0" "\\$\[0-9\]* = 0" "print v_long < 0x7FFF" "\\$\[0-9\]* = 0" "print signed long <"
+test_expr "set variable v_long=0x7FFF" "print v_long > 0" "\\$\[0-9\]* = 1" "print v_long > 0x7FFF" "\\$\[0-9\]* = 0" "print signed long >"
# make long a minus
-send "set variable v_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_long == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long == (minus)" }
- -re "$prompt $" { fail "print signed long == (minus)" }
- timeout { fail "(timeout) print signed long == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long == (minus)" }
- timeout { fail "(timeout) print signed long == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long == (minus)" }
- timeout { fail "(timeout) print signed long == (minus)" }
-}
-
-
-send "set variable v_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_long != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long != (minus)" }
- -re "$prompt $" { fail "print signed long != (minus)" }
- timeout { fail "(timeout) print signed long != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long != (minus)" }
- timeout { fail "(timeout) print signed long != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long != (minus)" }
- timeout { fail "(timeout) print signed long != (minus)" }
-}
-
-
-send "set variable v_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed long < (minus)" }
- -re "$prompt $" { fail "print signed long < (minus)" }
- timeout { fail "(timeout) print signed long < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long < (minus)" }
- timeout { fail "(timeout) print signed long < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long < (minus)" }
- timeout { fail "(timeout) print signed long < (minus)" }
-}
-
-
-send "set variable v_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed long > (minus)" }
- -re "$prompt $" { fail "print signed long > (minus)" }
- timeout { fail "(timeout) print signed long > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long > (minus)" }
- timeout { fail "(timeout) print signed long > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed long > (minus)" }
- timeout { fail "(timeout) print signed long > (minus)" }
-}
-
-
+test_expr "set variable v_long=-1" "print v_long == 0" "\\$\[0-9\]* = 0" "print v_long == -1" "\\$\[0-9\]* = 1" "print signed long == (minus)"
+test_expr "set variable v_long=-1" "print v_long != 0" "\\$\[0-9\]* = 1" "print v_long != -1" "\\$\[0-9\]* = 0" "print signed long != (minus)"
+test_expr "set variable v_long=-1" "print v_long < 0" "\\$\[0-9\]* = 1" "print v_long < 0x7FFF" "\\$\[0-9\]* = 1" "print signed long < (minus)"
+test_expr "set variable v_long=-1" "print v_long > 0" "\\$\[0-9\]* = 0" "print v_long > 0x7FFF" "\\$\[0-9\]* = 0" "print signed long > (minus)"
#
# test expressions with "signed long" types
#
-send "set variable v_signed_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_long == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long ==" }
- -re "$prompt $" { fail "print signed signed long ==" }
- timeout { fail "(timeout) print signed signed long ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed long ==" }
- timeout { fail "(timeout) print signed signed long ==" }
- }
- }
- -re "$prompt $" { fail "print signed signed long ==" }
- timeout { fail "(timeout) print signed signed long ==" }
-}
-
-
-send "set variable v_signed_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_long != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long !=" }
- -re "$prompt $" { fail "print signed signed long !=" }
- timeout { fail "(timeout) print signed signed long !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed long !=" }
- timeout { fail "(timeout) print signed signed long !=" }
- }
- }
- -re "$prompt $" { fail "print signed signed long !=" }
- timeout { fail "(timeout) print signed signed long !=" }
-}
-
-
-send "set variable v_signed_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long <" }
- -re "$prompt $" { fail "print signed signed long <" }
- timeout { fail "(timeout) print signed signed long <" }
- }
- }
- -re "$prompt $" { fail "print signed signed long <" }
- timeout { fail "(timeout) print signed signed long <" }
- }
- }
- -re "$prompt $" { fail "print signed signed long <" }
- timeout { fail "(timeout) print signed signed long <" }
-}
-
-
-send "set variable v_signed_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long >" }
- -re "$prompt $" { fail "print signed signed long >" }
- timeout { fail "(timeout) print signed signed long >" }
- }
- }
- -re "$prompt $" { fail "print signed signed long >" }
- timeout { fail "(timeout) print signed signed long >" }
- }
- }
- -re "$prompt $" { fail "print signed signed long >" }
- timeout { fail "(timeout) print signed signed long >" }
-}
-
-
+test_expr "set variable v_signed_long=0x7FFF" "print v_signed_long == 0" "\\$\[0-9\]* = 0" "print v_signed_long == 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed long =="
+test_expr "set variable v_signed_long=0x7FFF" "print v_signed_long != 0" "\\$\[0-9\]* = 1" "print v_signed_long != 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed long !="
+test_expr "set variable v_signed_long=0x7FFF" "print v_signed_long < 0" "\\$\[0-9\]* = 0" "print v_signed_long < 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed long <"
+test_expr "set variable v_signed_long=0x7FFF" "print v_signed_long > 0" "\\$\[0-9\]* = 1" "print v_signed_long > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed long >"
# make long a minus
-send "set variable v_signed_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_long == -1\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long == (minus)" }
- -re "$prompt $" { fail "print signed signed long == (minus)" }
- timeout { fail "(timeout) print signed signed long == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long == (minus)" }
- timeout { fail "(timeout) print signed signed long == (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long == (minus)" }
- timeout { fail "(timeout) print signed signed long == (minus)" }
-}
-
-
-send "set variable v_signed_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_long != -1\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long != (minus)" }
- -re "$prompt $" { fail "print signed signed long != (minus)" }
- timeout { fail "(timeout) print signed signed long != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long != (minus)" }
- timeout { fail "(timeout) print signed signed long != (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long != (minus)" }
- timeout { fail "(timeout) print signed signed long != (minus)" }
-}
-
-
-send "set variable v_signed_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_signed_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print signed signed long < (minus)" }
- -re "$prompt $" { fail "print signed signed long < (minus)" }
- timeout { fail "(timeout) print signed signed long < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long < (minus)" }
- timeout { fail "(timeout) print signed signed long < (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long < (minus)" }
- timeout { fail "(timeout) print signed signed long < (minus)" }
-}
-
-
-send "set variable v_signed_long=-1\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_signed_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print signed signed long > (minus)" }
- -re "$prompt $" { fail "print signed signed long > (minus)" }
- timeout { fail "(timeout) print signed signed long > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long > (minus)" }
- timeout { fail "(timeout) print signed signed long > (minus)" }
- }
- }
- -re "$prompt $" { fail "print signed signed long > (minus)" }
- timeout { fail "(timeout) print signed signed long > (minus)" }
-}
-
-
+test_expr "set variable v_signed_long=-1" "print v_signed_long == 0" "\\$\[0-9\]* = 0" "print v_signed_long == -1" "\\$\[0-9\]* = 1" "print signed signed long == (minus)"
+test_expr "set variable v_signed_long=-1" "print v_signed_long != 0" "\\$\[0-9\]* = 1" "print v_signed_long != -1" "\\$\[0-9\]* = 0" "print signed signed long != (minus)"
+test_expr "set variable v_signed_long=-1" "print v_signed_long < 0" "\\$\[0-9\]* = 1" "print v_signed_long < 0x7FFF" "\\$\[0-9\]* = 1" "print signed signed long < (minus)"
+test_expr "set variable v_signed_long=-1" "print v_signed_long > 0" "\\$\[0-9\]* = 0" "print v_signed_long > 0x7FFF" "\\$\[0-9\]* = 0" "print signed signed long > (minus)"
#
# test expressions with "unsigned long" types
#
-send "set variable v_unsigned_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_long == 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long ==" }
- -re "$prompt $" { fail "print unsigned long ==" }
- timeout { fail "(timeout) print unsigned long ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned long ==" }
- timeout { fail "(timeout) print unsigned long ==" }
- }
- }
- -re "$prompt $" { fail "print unsigned long ==" }
- timeout { fail "(timeout) print unsigned long ==" }
-}
-
-
-send "set variable v_unsigned_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_long != 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long !=" }
- -re "$prompt $" { fail "print unsigned long !=" }
- timeout { fail "(timeout) print unsigned long !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned long !=" }
- timeout { fail "(timeout) print unsigned long !=" }
- }
- }
- -re "$prompt $" { fail "print unsigned long !=" }
- timeout { fail "(timeout) print unsigned long !=" }
-}
-
-
-send "set variable v_unsigned_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long <" }
- -re "$prompt $" { fail "print unsigned long <" }
- timeout { fail "(timeout) print unsigned long <" }
- }
- }
- -re "$prompt $" { fail "print unsigned long <" }
- timeout { fail "(timeout) print unsigned long <" }
- }
- }
- -re "$prompt $" { fail "print unsigned long <" }
- timeout { fail "(timeout) print unsigned long <" }
-}
-
-
-send "set variable v_unsigned_long=0x7FFF\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long >" }
- -re "$prompt $" { fail "print unsigned long >" }
- timeout { fail "(timeout) print unsigned long >" }
- }
- }
- -re "$prompt $" { fail "print unsigned long >" }
- timeout { fail "(timeout) print unsigned long >" }
- }
- }
- -re "$prompt $" { fail "print unsigned long >" }
- timeout { fail "(timeout) print unsigned long >" }
-}
-
-
+test_expr "set variable v_unsigned_long=0x7FFF" "print v_unsigned_long == 0" "\\$\[0-9\]* = 0" "print v_unsigned_long == 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned long =="
+test_expr "set variable v_unsigned_long=0x7FFF" "print v_unsigned_long != 0" "\\$\[0-9\]* = 1" "print v_unsigned_long != 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned long !="
+test_expr "set variable v_unsigned_long=0x7FFF" "print v_unsigned_long < 0" "\\$\[0-9\]* = 0" "print v_unsigned_long < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned long <"
+test_expr "set variable v_unsigned_long=0x7FFF" "print v_unsigned_long > 0" "\\$\[0-9\]* = 1" "print v_unsigned_long > 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned long >"
# make long a minus
-send "set variable v_unsigned_long=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long == 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_long == ~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_long == (unsigned long)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long == (~0)" }
- -re "$prompt $" { fail "print unsigned long == (~0)" }
- timeout { fail "(timeout) print unsigned long == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long == (~0)" }
- timeout { fail "(timeout) print unsigned long == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long == (~0)" }
- timeout { fail "(timeout) print unsigned long == (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long == (~0)" }
- timeout { fail "(timeout) print unsigned long == (~0)" }
-}
-
-
-send "set variable v_unsigned_long=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long != 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_long != (unsigned long)~0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long != (~0)" }
- -re "$prompt $" { fail "print unsigned long != (~0)" }
- timeout { fail "(timeout) print unsigned long != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long != (~0)" }
- timeout { fail "(timeout) print unsigned long != (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long != (~0)" }
- timeout { fail "(timeout) print unsigned long != (~0)" }
-}
-
-
-send "set variable v_unsigned_long=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long < 0\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" {
- send "print v_unsigned_long < 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 0.*$prompt $" { pass "print unsigned long < (~0)" }
- -re "$prompt $" { fail "print unsigned long < (~0)" }
- timeout { fail "(timeout) print unsigned long < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long < (~0)" }
- timeout { fail "(timeout) print unsigned long < (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long < (~0)" }
- timeout { fail "(timeout) print unsigned long < (~0)" }
-}
-
-
-send "set variable v_unsigned_long=~0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long > 0\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" {
- send "print v_unsigned_long > 0x7FFF\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "print unsigned long > (~0)" }
- -re "$prompt $" { fail "print unsigned long > (~0)" }
- timeout { fail "(timeout) print unsigned long > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long > (~0)" }
- timeout { fail "(timeout) print unsigned long > (~0)" }
- }
- }
- -re "$prompt $" { fail "print unsigned long > (~0)" }
- timeout { fail "(timeout) print unsigned long > (~0)" }
-}
+test_expr "set variable v_unsigned_long=~0" "print v_unsigned_long == 0" "\\$\[0-9\]* = 0" "print v_unsigned_long == ~0" "\\$\[0-9\]* = 1" "print v_unsigned_long == (unsigned long)~0" "\\$\[0-9\]* = 1" "print unsigned long == (~0)"
+test_expr "set variable v_unsigned_long=~0" "print v_unsigned_long != 0" "\\$\[0-9\]* = 1" "print v_unsigned_long != (unsigned long)~0" "\\$\[0-9\]* = 0" "print unsigned long != (~0)"
+test_expr "set variable v_unsigned_long=~0" "print v_unsigned_long < 0" "\\$\[0-9\]* = 0" "print v_unsigned_long < 0x7FFF" "\\$\[0-9\]* = 0" "print unsigned long < (~0)"
+test_expr "set variable v_unsigned_long=~0" "print v_unsigned_long > 0" "\\$\[0-9\]* = 1" "print v_unsigned_long > 0x7FFF" "\\$\[0-9\]* = 1" "print unsigned long > (~0)"
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
+if $tracelevel {
+ strace $tracelevel
}
set prms_id 0
set bug_id 0
set testfile "funcargs"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${testfile}.ci file"
- return -1
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile}] {
+ return -1;
}
#
global prompt
global det_file
global gcc_compiled
+ global gdb_spawn_id
delete_breakpoints
- send "break call0a\n" ; expect -re ".*$prompt $"
- send "break call0b\n" ; expect -re ".*$prompt $"
- send "break call0c\n" ; expect -re ".*$prompt $"
- send "break call0d\n" ; expect -re ".*$prompt $"
- send "break call0e\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call0a
+ gdb_breakpoint call0b
+ gdb_breakpoint call0c
+ gdb_breakpoint call0d
+ gdb_breakpoint call0e
# Run; should stop at call0a and print actual arguments.
# The a29k fails all of these tests, perhaps because the prologue
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
gdb_run_cmd
expect {
- -re ".* call0a \\(c=97 'a', s=1, i=2, l=3\\) .*$prompt $" {
+ -i $gdb_spawn_id -re ".* call0a \\(c=97 'a', s=1, i=2, l=3\\) .*$prompt $" {
pass "run to call0a"
}
- -re "$prompt $" { fail "run to call0a" ; return }
- timeout { fail "(timeout) run to call0a" ; return }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call0a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call0a" ; return }
}
# Print each arg as a double check to see if we can print
global prompt
global det_file
global gcc_compiled
+ global gdb_spawn_id
delete_breakpoints
- send "break call1a\n" ; expect -re ".*$prompt $"
- send "break call1b\n" ; expect -re ".*$prompt $"
- send "break call1c\n" ; expect -re ".*$prompt $"
- send "break call1d\n" ; expect -re ".*$prompt $"
- send "break call1e\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call1a;
+ gdb_breakpoint call1b;
+ gdb_breakpoint call1c;
+ gdb_breakpoint call1d;
+ gdb_breakpoint call1e;
# Run; should stop at call1a and print actual arguments.
# The a29k fails all of these tests, perhaps because the prologue
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
gdb_run_cmd
expect {
- -re ".* call1a \\(uc=98 'b', us=6, ui=7, ul=8\\) .*$prompt $" {
+ -i $gdb_spawn_id -re ".* call1a \\(uc=98 'b', us=6, ui=7, ul=8\\) .*$prompt $" {
pass "run to call1a"
}
- -re "$prompt $" { fail "run to call1a" ; return }
- timeout { fail "(timeout) run to call1a" ; return }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call1a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call1a" ; return }
}
# Print each arg as a double check to see if we can print
global prompt
global det_file
global gcc_compiled
+ global gdb_spawn_id
delete_breakpoints
- send "break call2a\n" ; expect -re ".*$prompt $"
- send "break call2b\n" ; expect -re ".*$prompt $"
- send "break call2c\n" ; expect -re ".*$prompt $"
- send "break call2d\n" ; expect -re ".*$prompt $"
- send "break call2e\n" ; expect -re ".*$prompt $"
- send "break call2f\n" ; expect -re ".*$prompt $"
- send "break call2g\n" ; expect -re ".*$prompt $"
- send "break call2h\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call2a
+ gdb_breakpoint call2b
+ gdb_breakpoint call2c
+ gdb_breakpoint call2d
+ gdb_breakpoint call2e
+ gdb_breakpoint call2f
+ gdb_breakpoint call2g
+ gdb_breakpoint call2h
# Run; should stop at call2a and print actual arguments.
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" }
gdb_run_cmd
expect {
- -re ".* call2a \\(c=97 'a', f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5\\) .*$prompt $" { pass "run to call2a" }
- -re "$prompt $" { fail "run to call2a" ; return }
- timeout { fail "(timeout) run to call2a" ; return }
+ -i $gdb_spawn_id -re ".* call2a \\(c=97 'a', f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5\\) .*$prompt $" { pass "run to call2a" }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call2a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call2a" ; return }
}
# Print each arg as a double check to see if we can print
return
}
- if {$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
# Continue; should stop at call2g and print actual arguments.
if [gdb_test "cont" ".* call2g \\(l=3, d2=5, c=97 'a', f1=4, s=1, d1=5, i=2, f2=4\\) .*" "continue to call2g"] {
return
# monitor only allows 8 breakpoints; w89k board allows 10, so
# break them up into two groups.
delete_breakpoints
- send "break call2i\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call2i
# Continue; should stop at call2i and print actual arguments.
if [gdb_test "cont" ".* call2i \\(c1=97 'a', f1=4, c2=97 'a', c3=97 'a', d1=5, c4=97 'a', c5=97 'a', c6=97 'a', f2=4, s=1, c7=97 'a', d2=5\\) .*" "continue to call2i"] {
global prompt
global hex
global det_file
+ global gdb_spawn_id
delete_breakpoints
- send "break call3a\n" ; expect -re ".*$prompt $"
- send "break call3b\n" ; expect -re ".*$prompt $"
- send "break call3c\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call3a
+ gdb_breakpoint call3b
+ gdb_breakpoint call3c
# Run; should stop at call3a and print actual arguments.
# Try dereferencing the arguments.
setup_xfail "a29k-*-udi"
gdb_run_cmd
expect {
- -re ".* call3a \\(cp=$hex \"a\", sp=$hex, ip=$hex, lp=$hex\\) .*$prompt $" { pass "run to call3a" }
- -re "$prompt $" { fail "run to call3a" ; return }
- timeout { fail "(timeout) run to call3a" ; return }
+ -i $gdb_spawn_id -re ".* call3a \\(cp=$hex \"a\", sp=$hex, ip=$hex, lp=$hex\\) .*$prompt $" { pass "run to call3a" }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call3a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call3a" ; return }
}
gdb_test "print *cp" ".* = 97 'a'"
global prompt
global hex
global det_file
+ global gdb_spawn_id
delete_breakpoints
- send "break call4a\n" ; expect -re ".*$prompt $"
- send "break call4b\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call4a
+ gdb_breakpoint call4b
# Run; should stop at call4a and print actual arguments.
# Try dereferencing the arguments.
setup_xfail "a29k-*-udi"
gdb_run_cmd
expect {
- -re ".* call4a \\(stp=$hex\\) .*$prompt $" {
+ -i $gdb_spawn_id -re ".* call4a \\(stp=$hex\\) .*$prompt $" {
pass "run to call4a"
}
- -re "$prompt $" { fail "run to call4a" ; return }
- timeout { fail "(timeout) run to call4a" ; return }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call4a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call4a" ; return }
}
gdb_test "print *stp" ".* = \{s1 = 101, s2 = 102\}"
gdb_test "cont" ".* call4b \\(unp=$hex\\) .*" "continue to call4b"
+ # sizeof int != sizeof long on h8300
+ setup_xfail "h8300*-*-*"
gdb_test "print *unp" ".* = \{u1 = 1, u2 = 1\}"
pass "locate actual args, structs/unions passed by reference"
global prompt
global hex
global det_file
+ global gdb_spawn_id
delete_breakpoints
- send "break call5a\n" ; expect -re ".*$prompt $"
- send "break call5b\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call5a
+ gdb_breakpoint call5b
# Run; should stop at call5a and print actual arguments.
# Try dereferencing the arguments.
setup_xfail "a29k-*-udi"
gdb_run_cmd
expect {
- -re ".* call5a \\(st=\{s1 = 101, s2 = 102\}\\) .*$prompt $" {
+ -i $gdb_spawn_id -re ".* call5a \\(st=\{s1 = 101, s2 = 102\}\\) .*$prompt $" {
pass "run to call5a"
}
- -re "$prompt $" { fail "run to call5a" ; return }
- timeout { fail "(timeout) run to call5a" ; return }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call5a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call5a" ; return }
}
gdb_test "print st" ".* = \{s1 = 101, s2 = 102\}"
# Continue; should stop at call5b and print actual arguments.
# Try dereferencing the arguments.
+ # sizeof int != sizeof long on h8300
+ setup_xfail "h8300*-*-*"
gdb_test "cont" ".* call5b \\(un=\{u1 = 2, u2 = 2\}\\) .*" \
"continue to call5b"
+ # sizeof int != sizeof long on h8300
+ setup_xfail "h8300*-*-*"
gdb_test "print un" ".* = \{u1 = 2, u2 = 2\}"
}
global decimal
global det_file
global gcc_compiled
+ global gdb_spawn_id
delete_breakpoints
- send "break call6a\n" ; expect -re ".*$prompt $"
- send "break call6b\n" ; expect -re ".*$prompt $"
- send "break call6c\n" ; expect -re ".*$prompt $"
- send "break call6d\n" ; expect -re ".*$prompt $"
- send "break call6e\n" ; expect -re ".*$prompt $"
- send "break call6f\n" ; expect -re ".*$prompt $"
- send "break call6g\n" ; expect -re ".*$prompt $"
- send "break call6h\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call6a
+ gdb_breakpoint call6b
+ gdb_breakpoint call6c
+ gdb_breakpoint call6d
+ gdb_breakpoint call6e
+ gdb_breakpoint call6f
+ gdb_breakpoint call6g
+ gdb_breakpoint call6h
# Run; should stop at call6a and print actual arguments.
# Print backtrace.
setup_xfail "a29k-*-udi"
gdb_run_cmd
expect {
- -re ".*Breakpoint $decimal, call6a .*$prompt $" { pass "run to call6a" }
- -re "$prompt $" { fail "run to call6a" ; return }
- timeout { fail "(timeout) run to call6a" ; return }
+ -i $gdb_spawn_id -re ".*Breakpoint $decimal, call6a .*$prompt $" { pass "run to call6a" }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call6a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call6a" ; return }
}
setup_xfail "rs6000-*-*"
- if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" }
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6a" }
- -re "$prompt $" { fail "backtrace from call6a" ; return }
- timeout { fail "(timeout) backtrace from call6a" ; return }
+
+ if {!$gcc_compiled} {
+ setup_xfail "mips-sgi-irix5*"
+ }
+
+ if [gdb_test "backtrace 100" ".* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\]" "backtrace from call6a"] {
+ return;
}
# Continue; should stop at call6b and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6b .*$prompt $" { pass "continue to call6b" }
- -re "$prompt $" { fail "continue to call6b" ; return }
- timeout { fail "(timeout) continue to call6b" ; return }
- }
+ gdb_continue call6b
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n]+
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6b" }
- -re "$prompt $" { fail "backtrace from call6b" ; return }
- timeout { fail "(timeout) backtrace from call6b" ; return }
+ if [gdb_test "backtrace 100" ".* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\]*.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\]" "backtrace from call6b"] {
+ return;
}
# Continue; should stop at call6c and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6c .*$prompt $" { pass "continue to call6c" }
- -re "$prompt $" { fail "continue to call6c" ; return }
- timeout { fail "(timeout) continue to call6c" ; return }
- }
+ gdb_continue call6c
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6c" }
- -re "$prompt $" { fail "backtrace from call6c" ; return }
- timeout { fail "(timeout) backtrace from call6c" ; return }
+ if [gdb_test "backtrace 100" ".* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6c"] {
+ return;
}
-
# Continue; should stop at call6d and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6d .*$prompt $" { pass "continue to call6d" }
- -re "$prompt $" { fail "continue to call6d" ; return }
- timeout { fail "(timeout) continue to call6d" ; return }
- }
+ gdb_continue call6d
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6d" }
- -re "$prompt $" { fail "backtrace from call6d" ; return }
- timeout { fail "(timeout) backtrace from call6d" ; return }
+ if [gdb_test "backtrace 100" ".* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6d"] {
+ return;
}
# Continue; should stop at call6e and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6e .*$prompt $" { pass "continue to call6e" }
- -re "$prompt $" { fail "continue to call6e" ; return }
- timeout { fail "(timeout) continue to call6e" ; return }
- }
+ gdb_continue call6e
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6e" }
- -re "$prompt $" { fail "backtrace from call6e" ; return }
- timeout { fail "(timeout) backtrace from call6e" ; return }
+ if [gdb_test "backtrace 100" ".* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6e"] {
+ return;
}
# Continue; should stop at call6f and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6f .*$prompt $" { pass "continue to call6f" }
- -re "$prompt $" { fail "continue to call6f" ; return }
- timeout { fail "(timeout) continue to call6f" ; return }
- }
+ gdb_continue call6f
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6f" }
- -re "$prompt $" { fail "backtrace from call6f" ; return }
- timeout { fail "(timeout) backtrace from call6f" ; return }
+ if [gdb_test "backtrace 100" ".* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6f"] {
+ return;
}
# Continue; should stop at call6g and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6g .*$prompt $" { pass "continue to call6g" }
- -re "$prompt $" { fail "continue to call6g" ; return }
- timeout { fail "(timeout) continue to call6g" ; return }
- }
+ gdb_continue call6g
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6g" }
- -re "$prompt $" { fail "backtrace from call6g" ; return }
- timeout { fail "(timeout) backtrace from call6g" ; return }
+ if [gdb_test "backtrace 100" ".* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6g"] {
+ return;
}
# Continue; should stop at call6h and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6h .*$prompt $" { pass "continue to call6h" }
- -re "$prompt $" { fail "continue to call6h" ; return }
- timeout { fail "(timeout) continue to call6h" ; return }
- }
+ gdb_continue call6h
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6h \\(us=6, ui=7, ul=8\\) .*\r
-.* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6h" }
- -re "$prompt $" { fail "backtrace from call6h" ; return }
- timeout { fail "(timeout) backtrace from call6h" ; return }
+ if [gdb_test "backtrace 100" ".* call6h \\(us=6, ui=7, ul=8\\) .*\[\r\n\].* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6h"] {
+ return;
}
# monitor only allows 8 breakpoints; w89k board allows 10, so
# break them up into two groups.
delete_breakpoints
- send "break call6i\n" ; expect -re ".*$prompt $"
- send "break call6j\n" ; expect -re ".*$prompt $"
- send "break call6k\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call6i
+ gdb_breakpoint call6j
+ gdb_breakpoint call6k
# Continue; should stop at call6i and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6i .*$prompt $" { pass "continue to call6i" }
- -re "$prompt $" { fail "continue to call6i" ; return }
- timeout { fail "(timeout) continue to call6i" ; return }
- }
+ gdb_continue call6i
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6i \\(ui=7, ul=8\\) .*\r
-.* call6h \\(us=6, ui=7, ul=8\\) .*\r
-.* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6i" }
- -re "$prompt $" { fail "backtrace from call6i" ; return }
- timeout { fail "(timeout) backtrace from call6i" ; return }
+ if [gdb_test "backtrace 100" ".* call6i \\(ui=7, ul=8\\) .*\[\r\n\].* call6h \\(us=6, ui=7, ul=8\\) .*\[\r\n\].* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6i"] {
+ return;
}
# Continue; should stop at call6j and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6j .*$prompt $" { pass "continue to call6j" }
- -re "$prompt $" { fail "continue to call6j" ; return }
- timeout { fail "(timeout) continue to call6j" ; return }
- }
+ gdb_continue call6j
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6j \\(ul=8\\) .*\r
-.* call6i \\(ui=7, ul=8\\) .*\r
-.* call6h \\(us=6, ui=7, ul=8\\) .*\r
-.* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6j" }
- -re "$prompt $" { fail "backtrace from call6j" ; return }
- timeout { fail "(timeout) backtrace from call6j" ; return }
+ if [gdb_test "backtrace 100" ".* call6j \\(ul=8\\) .*\[\r\n\].* call6i \\(ui=7, ul=8\\) .*\[\r\n\].* call6h \\(us=6, ui=7, ul=8\\) .*\[\r\n\].* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6j"] {
+ return;
}
# Continue; should stop at call6k and print actual arguments.
# This fails on i960-*-vxworks because gdb gets confused by
# breakpoints on adjacent instructions.
setup_xfail "i960-*-vxworks" 1786
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call6k .*$prompt $" {
- pass "continue to call6k"
- }
- -re "$prompt $" { fail "continue to call6k"; return }
- timeout { fail "(timeout) continue to call6k"; return }
- }
+ gdb_continue call6k
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call6k \\(\\) .*\r
-.* call6j \\(ul=8\\) .*\r
-.* call6i \\(ui=7, ul=8\\) .*\r
-.* call6h \\(us=6, ui=7, ul=8\\) .*\r
-.* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call6k" }
- -re "$prompt $" { fail "backtrace from call6k" ; return }
- timeout { fail "(timeout) backtrace from call6k" ; return }
+ if [gdb_test "backtrace 100" ".* call6k \\(\\) .*\[\r\n\].* call6j \\(ul=8\\) .*\[\r\n\].* call6i \\(ui=7, ul=8\\) .*\[\r\n\].* call6h \\(us=6, ui=7, ul=8\\) .*\[\r\n\].* call6g \\(uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6f \\(d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6e \\(f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6d \\(l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6c \\(i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6b \\(s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n\].* call6a \\(c=97 'a', s=1, i=2, l=3, f=4, d=5, uc=98 'b', us=6, ui=7, ul=8\\) .*\[\r\n].* main \\(.*\\) .*" "backtrace from call6k"] {
+ return;
}
}
global decimal
global det_file
global gcc_compiled
+ global gdb_spawn_id
delete_breakpoints
- send "break call7a\n" ; expect -re ".*$prompt $"
- send "break call7b\n" ; expect -re ".*$prompt $"
- send "break call7c\n" ; expect -re ".*$prompt $"
- send "break call7d\n" ; expect -re ".*$prompt $"
- send "break call7e\n" ; expect -re ".*$prompt $"
- send "break call7f\n" ; expect -re ".*$prompt $"
- send "break call7g\n" ; expect -re ".*$prompt $"
- send "break call7h\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call7a
+ gdb_breakpoint call7b
+ gdb_breakpoint call7c
+ gdb_breakpoint call7d
+ gdb_breakpoint call7e
+ gdb_breakpoint call7f
+ gdb_breakpoint call7g
+ gdb_breakpoint call7h
# Run; should stop at call7a and print actual arguments.
# Print backtrace.
setup_xfail "a29k-*-udi"
gdb_run_cmd
expect {
- -re ".*Breakpoint $decimal, call7a .*$prompt $" {
+ -i $gdb_spawn_id -re ".*Breakpoint $decimal, call7a .*$prompt $" {
pass "run to call7a"
}
- -re "$prompt $" { fail "run to call7a" ; return }
- timeout { fail "(timeout) run to call7a" ; return }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to call7a" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to call7a" ; return }
}
setup_xfail "i960-*-*" 1813
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" }
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7a" }
- -re "$prompt $" { fail "backtrace from call7a" ; return }
- timeout { fail "(timeout) backtrace from call7a" ; return }
- }
+ gdb_test "backtrace 100" ".* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7a"
# Continue; should stop at call7b and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7b .*$prompt $" { pass "continue to call7b" }
- -re "$prompt $" { fail "continue to call7b" ; return }
- timeout { fail "(timeout) continue to call7b" ; return }
- }
+ gdb_continue call7b
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7b" }
- -re "$prompt $" { fail "backtrace from call7b" ; return }
- timeout { fail "(timeout) backtrace from call7b" ; return }
- }
+
+ gdb_test "backtrace 100" ".* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7b"
# Continue; should stop at call7c and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7c .*$prompt $" { pass "continue to call7c" }
- -re "$prompt $" { fail "continue to call7c" ; return }
- timeout { fail "(timeout) continue to call7c" ; return }
- }
+ gdb_continue call7c
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7c" }
- -re "$prompt $" { fail "backtrace from call7c" ; return }
- timeout { fail "(timeout) backtrace from call7c" ; return }
- }
+ gdb_test "backtrace 100" ".* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7c"
# Continue; should stop at call7d and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7d .*$prompt $" { pass "continue to call7d" }
- -re "$prompt $" { fail "continue to call7d" ; return }
- timeout { fail "(timeout) continue to call7d" ; return }
- }
+ gdb_continue call7d
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7d" }
- -re "$prompt $" { fail "backtrace from call7d" ; return }
- timeout { fail "(timeout) backtrace from call7d" ; return }
- }
+ gdb_test "backtrace 100" ".* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7d"
- # Continue; should stop at call7e and print actual arguments.
- # Print backtrace.
-
- send "continue\n"
- expect {
- -re "Breakpoint $decimal, call7e .*$prompt $" { pass "continue to call7e" }
- -re "$prompt $" { fail "continue to call7e" ; return }
- timeout { fail "(timeout) continue to call7e" ; return }
- }
+ gdb_continue call7e
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7e" }
- -re "$prompt $" { fail "backtrace from call7e" ; return }
- timeout { fail "(timeout) backtrace from call7e" ; return }
- }
+ gdb_test "backtrace 100" ".* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7e"
# Continue; should stop at call7f and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7f .*$prompt $" { pass "continue to call7f" }
- -re "$prompt $" { fail "continue to call7f" ; return }
- timeout { fail "(timeout) continue to call7f" ; return }
- }
+ gdb_continue call7f
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7f" }
- -re "$prompt $" { fail "backtrace from call7f" ; return }
- timeout { fail "(timeout) backtrace from call7f" ; return }
- }
+ gdb_test "backtrace 100" ".* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7f"
# Continue; should stop at call7g and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7g .*$prompt $" { pass "continue to call7g" }
- -re "$prompt $" { fail "continue to call7g" ; return }
- timeout { fail "(timeout) continue to call7g" ; return }
- }
-
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\r
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7g" }
- -re "$prompt $" { fail "backtrace from call7g" ; return }
- timeout { fail "(timeout) backtrace from call7g" ; return }
- }
+ gdb_continue call7g
- # Continue; should stop at call7h and print actual arguments.
- # Print backtrace.
+ gdb_test "backtrace 100" ".* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\[\r\n\].* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7g"
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7h .*$prompt $" { pass "continue to call7h" }
- -re "$prompt $" { fail "continue to call7h" ; return }
- timeout { fail "(timeout) continue to call7h" ; return }
- }
+ gdb_continue call7h
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\r
-.* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\r
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7h" }
- -re "$prompt $" { fail "backtrace from call7h" ; return }
- timeout { fail "(timeout) backtrace from call7h" ; return }
- }
+ gdb_test "backtrace 100" ".* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\[\r\n\].* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\[\r\n\].* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7h"
# monitor only allows 8 breakpoints; w89k board allows 10, so
# break them up into two groups.
delete_breakpoints
- send "break call7i\n" ; expect -re ".*$prompt $"
- send "break call7j\n" ; expect -re ".*$prompt $"
- send "break call7k\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint call7i
+ gdb_breakpoint call7j
+ gdb_breakpoint call7k
# Continue; should stop at call7i and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7i .*$prompt $" { pass "continue to call7i" }
- -re "$prompt $" { fail "continue to call7i" ; return }
- timeout { fail "(timeout) continue to call7i" ; return }
- }
+ gdb_continue call7i
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\r
-.* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\r
-.* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\r
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7i" }
- -re "$prompt $" { fail "backtrace from call7i" ; return }
- timeout { fail "(timeout) backtrace from call7i" ; return }
- }
+ gdb_test "backtrace 100" ".* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\[\r\n\].* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\[\r\n\].* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\[\r\n\].* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7i"
# Continue; should stop at call7j and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7j .*$prompt $" { pass "continue to call7j" }
- -re "$prompt $" { fail "continue to call7j" ; return }
- timeout { fail "(timeout) continue to call7j" ; return }
- }
+ gdb_continue call7j
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7j \\(ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8\\) .*\r
-.* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\r
-.* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\r
-.* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\r
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7j" }
- -re "$prompt $" { fail "backtrace from call7j" ; return }
- timeout { fail "(timeout) backtrace from call7j" ; return }
- }
+ gdb_test "backtrace 100" ".* call7j \\(ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8\\) .*\[\r\n\].* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\[\r\n\].* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\[\r\n\].* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\[\r\n\].* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7j"
# Continue; should stop at call7k and print actual arguments.
# Print backtrace.
- send "continue\n"
- expect {
- -re ".*Breakpoint $decimal, call7k .*$prompt $" { pass "continue to call7k" }
- -re "$prompt $" { fail "continue to call7k" ; return }
- timeout { fail "(timeout) continue to call7k" ; return }
- }
+ gdb_continue call7k
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" }
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* call7k \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* call7j \\(ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8\\) .*\r
-.* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\r
-.* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\r
-.* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\r
-.* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\r
-.* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\r
-.* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\r
-.* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\r
-.* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\r
-.* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "backtrace from call7k" }
- -re "$prompt $" { fail "backtrace from call7k" ; return }
- timeout { fail "(timeout) backtrace from call7k" ; return }
- }
+ gdb_test "backtrace 100" ".* call7k \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* call7j \\(ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8\\) .*\[\r\n\].* call7i \\(ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6\\) .*\[\r\n\].* call7h \\(us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5\\) .*\[\r\n\].* call7g \\(d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b'\\) .*\[\r\n\].* call7f \\(uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3, f=4\\) .*\[\r\n\].* call7e \\(f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1, l=3\\) .*\[\r\n\].* call7d \\(l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2, s=1\\) .*\[\r\n\].* call7c \\(s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a', i=2\\) .*\[\r\n\].* call7b \\(i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7, c=97 'a'\\) .*\[\r\n\].* call7a \\(c=97 'a', i=2, s=1, l=3, f=4, uc=98 'b', d=5, us=6, ul=8, ui=7\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\].*" "backtrace from call7k"
}
#
global hex
global decimal
global det_file
+ global gdb_spawn_id
delete_breakpoints
- send "break hitbottom\n" ; expect -re ".*$prompt $"
+ gdb_breakpoint hitbottom
# Run; should stop at hitbottom and print actual arguments.
# Print backtrace.
gdb_run_cmd
expect {
- -re ".*Breakpoint $decimal, hitbottom .*$prompt $" { pass "run to hitbottom" }
- -re "$prompt $" { fail "run to hitbottom" ; return }
- timeout { fail "(timeout) run to hitbottom" ; return }
+ -i $gdb_spawn_id -re ".*Breakpoint $decimal, hitbottom .*$prompt $" { pass "run to hitbottom" }
+ -i $gdb_spawn_id -re "$prompt $" { fail "run to hitbottom" ; return }
+ -i $gdb_spawn_id timeout { fail "(timeout) run to hitbottom" ; return }
}
+ if ![istarget sparclet-*-*] {
# The a29k fails all of these tests, perhaps because the prologue
# code is broken.
- setup_xfail "a29k-*-udi"
- send "backtrace 100\n"
- expect {
- -re "backtrace 100\[\r\n\]+
-.* hitbottom \\(\\) .*\r
-.* recurse \\(a=\{s = 0, i = 0, l = 0\}, depth=0\\) .*\r
-.* recurse \\(a=\{s = 1, i = 1, l = 1\}, depth=1\\) .*\r
-.* recurse \\(a=\{s = 2, i = 2, l = 2\}, depth=2\\) .*\r
-.* recurse \\(a=\{s = 3, i = 3, l = 3\}, depth=3\\) .*\r
-.* recurse \\(a=\{s = 4, i = 4, l = 4\}, depth=4\\) .*\r
-.* test_struct_args \\(\\) .*\r
-.* main \\(.*\\) .*\r
-$prompt $" { pass "recursive passing of structs by value" }
- -re "$prompt $" { fail "recursive passing of structs by value" ; return }
- timeout { fail "(timeout) recursive passing of structs by value" ; return }
+ setup_xfail "a29k-*-udi"
+ gdb_test "backtrace 100" ".* hitbottom \\(\\) .*\[\r\n\].* recurse \\(a=\{s = 0, i = 0, l = 0\}, depth=0\\) .*\[\r\n\].* recurse \\(a=\{s = 1, i = 1, l = 1\}, depth=1\\) .*\[\r\n\].* recurse \\(a=\{s = 2, i = 2, l = 2\}, depth=2\\) .*\[\r\n\].* recurse \\(a=\{s = 3, i = 3, l = 3\}, depth=3\\) .*\[\r\n\].* recurse \\(a=\{s = 4, i = 4, l = 4\}, depth=4\\) .*\[\r\n\].* test_struct_args \\(\\) .*\[\r\n\].* main \\(.*\\) .*\[\r\n\]" "recursive passing of structs by value"
+ } else {
+ fail "recursive passing of structs by value (sparclet)"
}
}
global binfile
global srcdir
- if [istarget "mips-idt-*"] then {
+ if [istarget "mips-idt-*"] {
# Restart because IDT/SIM runs out of file descriptors.
gdb_exit
gdb_start
gdb_test "print i" " = 2" "print i after runto localvars_after_alloca"
gdb_test "print l" " = 3" "print l after runto localvars_after_alloca"
- send "next\n"
- expect {
- -re ".*$prompt $" { pass "next in localvars_after_alloca()" }
- timeout { fail "next in localvars_after_alloca()" ; return }
- }
+ # Lame regexp.
+ gdb_test "next" ".*" "next in localvars_after_alloca()"
# Print each arg as a double check to see if we can print
# them here as well as with backtrace.
global hex
global decimal
global gcc_compiled
+ global gdb_spawn_id
# Can not use "runto call0a" as call0a is called several times
# during single run. Instead stop in a marker function and
# break on the next call to call0a, then delete all the breakpoints
# and start testing.
- gdb_test "break call0a" "Breakpoint .*" \
- "break call0a in localvars_in_indirect_call"
- gdb_test "continue" "call0a .*" "continue in localvars_in_indirect_call"
+ gdb_breakpoint call0a
+ gdb_continue call0a
delete_breakpoints
# Print each arg as a double check to see if we can print
# second indirect call.
#
- send "finish\n"
+ send_gdb "finish\n"
expect {
- -re "\\(\\*pointer_to_call0a\\) \\(c, s, i, l\\);.*First.*$prompt $" {
- send "step\n"
+ -i $gdb_spawn_id -re "\\(\\*pointer_to_call0a\\) \\(c, s, i, l\\);.*First.*$prompt $" {
+ send_gdb "step\n"
exp_continue
}
- -re "\\(\\*pointer_to_call0a\\) \\(c, s, i, l\\);.*Second.*$prompt $" {
+ -i $gdb_spawn_id -re "\\(\\*pointer_to_call0a\\) \\(c, s, i, l\\);.*Second.*$prompt $" {
pass "finish from indirectly called function"
}
- -re ".*$prompt $" {
+ -i $gdb_spawn_id -re ".*$prompt $" {
fail "finish from indirectly called function"
return
}
- default { fail "finish from indirectly called function" ; return }
+ -i $gdb_spawn_id default { fail "finish from indirectly called function" ; return }
}
if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
global prompt
global hex
global decimal
+ global gdb_spawn_id
# Stop in a marker function and take control from there.
if { ! [ runto marker_call_with_trampolines ] } then { return 0 }
# Cater for gdb stopping in midline, see comment for finish above.
- send "finish\n"
+ send_gdb "finish\n"
expect {
- -re "marker_call_with_trampolines ..;.*$prompt $" {
- send "step\n"
+ -i $gdb_spawn_id -re "marker_call_with_trampolines ..;.*$prompt $" {
+ send_gdb "step\n"
exp_continue
}
- -re "pointer_to_call_with_trampolines.*$prompt $" {
+ -i $gdb_spawn_id -re "pointer_to_call_with_trampolines.*$prompt $" {
pass "finish from marker_call_with_trampolines"
}
- -re ".*$prompt $" {
+ -i $gdb_spawn_id -re ".*$prompt $" {
fail "finish from marker_call_with_trampolines"
}
- default { fail "finish from marker_call_with_trampolines" ; return 0 }
+ -i $gdb_spawn_id default { fail "finish from marker_call_with_trampolines" ; return 0 }
}
# Try to step into the target function.
# Stepping back to main might stop again after the return statement
# or immediately transfer control back to main if optimizations
# are performed.
- send "step\n"
+ send_gdb "step\n"
expect {
- -re "main .* at.*$prompt $" {
+ -i $gdb_spawn_id -re "main .* at.*$prompt $" {
pass "stepping back to main from function called with trampolines" ;
return 1
}
- -re "\}.*End of call_with_trampolines.*$prompt $" {
- send "step\n"
+ -i $gdb_spawn_id -re "\}.*End of call_with_trampolines.*$prompt $" {
+ send_gdb "step\n"
exp_continue
}
- -re ".*$prompt $" {
+ -i $gdb_spawn_id -re ".*$prompt $" {
fail "stepping back to main from function called with trampolines"
}
- default { fail "stepping back to main from function called with trampolines" ; return 0 }
+ -i $gdb_spawn_id default { fail "stepping back to main from function called with trampolines" ; return 0 }
}
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-source ${binfile}.ci
+set timeout 60
integral_args
funcargs_reload
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
proc test_convenience_variables {} {
global prompt
- gdb_test "set \$foo = 101" " = 101\[\r\n\]+" \
+ gdb_test "set \$foo = 101" "" \
"Set a new convenience variable"
gdb_test "print \$foo" " = 101" \
"Print contents of new convenience variable"
- gdb_test "set \$foo = 301" " = 301\[\r\n\]+" \
+ gdb_test "set \$foo = 301" "" \
"Set convenience variable to a new value"
gdb_test "print \$foo" " = 301" \
"Print new contents of convenience variable"
- gdb_test "set \$_ = 11" " = 11\[\r\n\]+" \
+ gdb_test "set \$_ = 11" "" \
"Set convenience variable \$_"
gdb_test "print \$_" " = 11" \
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+send_gdb "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
test_value_history
test_convenience_variables
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
set prms_id 0
set bug_id 0
+gdb_start
+
# force the height of the debugger to be pretty large so no pagers getused
-send "set height 400\n"
-expect -re "$prompt $"
+gdb_test "set height 400" "" "test set height"
# use a larger expect input buffer for long help outputs.
match_max 6000
-
# test help add-symbol-file
-send "help add-symbol-file\n"
-expect {
- -re "Usage: add-symbol-file FILE ADDR.*
-Load the symbols from FILE, assuming FILE has been dynamically loaded..*
-ADDR is the starting address of the file\'s text..*$prompt $" \
- { pass "help add-symbol-file" }
- -re ".*$prompt $" { fail "help add-symbol-file" }
- timeout { fail "(timeout) help add-symbol-file" }
- }
-
-
+gdb_test "help add-symbol-file" "Usage: add-symbol-file FILE ADDR.*\[\r\n\]+Load the symbols from FILE, assuming FILE has been dynamically loaded..*\[\r\n\]+ADDR is the starting address of the file\'s text." "help add-symbol-file"
# test help aliases
-send "help aliases\n"
-expect {
- -re "Aliases of other commands..*
-List of commands\:.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help aliases" }
- -re "$prompt $" { fail "help aliases" }
- timeout { fail "(timeout) help aliases" }
- }
-
-
-send "help attach\n"
-expect {
- -re "Attach to a process or file outside of GDB..*
-This command attaches to another target, of the same type as your last.*
-`target' command .`info files' will show your target stack.*
-The command may take as argument a process id or a device file..*
-For a process id, you must have permission to send the process a signal,.*
-and it must have the same effective uid as the debugger..*
-When using \"attach\", you should use the \"file\" command to specify.*
-the program running in the process, and to load its symbol table..*$prompt $"\
- { pass "help attach" }
- -re "$prompt $" { fail "help attach" }
- timeout { fail "(timeout) help attach" }
- }
-
-# -re "$prompt $" { fail "help attach" }
-
+gdb_test "help aliases" "Aliases of other commands..*\[\r\n\]+List of commands\:.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help aliases"
+gdb_test "help attach" "Attach to a process or file outside of GDB..*\[\r\n\]+This command attaches to another target, of the same type as your last.*\[\r\n\]+`target' command .`info files' will show your target stack.*\[\r\n\]+The command may take as argument a process id or a device file..*\[\r\n\]+For a process id, you must have permission to send the process a signal,.*\[\r\n\]+and it must have the same effective uid as the debugger..*\[\r\n\]+When using \"attach\", you should use the \"file\" command to specify.*\[\r\n\]+the program running in the process, and to load its symbol table." "help attach"
# test help breakpoint "b" abbreviation
-send "help b\n"
-expect {
- -re "Set breakpoint at specified line or function..*
-Argument may be line number, function name, or \"\[*\]\" and an address..*
-If line number is specified, break at start of code for that line..*
-If function is specified, break at start of code for that function..*
-If an address is specified, break at that exact address..*
-With no arg, uses current execution address of selected stack frame..*
-This is useful for breaking on return to a stack frame..*
-Multiple breakpoints at one place are permitted, and useful if conditional..*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help breakpoint \"b\" abbreviation" }
- -re "$prompt $" { fail "help breakpoint \"b\" abbreviation" }
- timeout { fail "(timeout) help breakpoint \"b\" abbreviation" }
- }
-
-
+gdb_test "help b" "Set breakpoint at specified line or function..*\[\r\n\]+Argument may be line number, function name, or \"\[*\]\" and an address..*\[\r\n\]+If line number is specified, break at start of code for that line..*\[\r\n\]+If function is specified, break at start of code for that function..*\[\r\n\]+If an address is specified, break at that exact address..*\[\r\n\]+With no arg, uses current execution address of selected stack frame..*\[\r\n\]+This is useful for breaking on return to a stack frame..*\[\r\n\]+Multiple breakpoints at one place are permitted, and useful if conditional..*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help breakpoint \"b\" abbreviation"
# test help breakpoint "br" abbreviation
-send "help br\n"
-expect {
- -re "Set breakpoint at specified line or function..*
-Argument may be line number, function name, or \"\[*\]\" and an address..*
-If line number is specified, break at start of code for that line..*
-If function is specified, break at start of code for that function..*
-If an address is specified, break at that exact address..*
-With no arg, uses current execution address of selected stack frame..*
-This is useful for breaking on return to a stack frame..*
-Multiple breakpoints at one place are permitted, and useful if conditional..*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help breakpoint \"br\" abbreviation" }
- -re "$prompt $" { fail "help breakpoint \"br\" abbreviation" }
- timeout { fail "(timeout) help breakpoint \"br\" abbreviation" }
- }
-
-
+gdb_test "help br" "Set breakpoint at specified line or function..*\[\r\n\]+Argument may be line number, function name, or \"\[*\]\" and an address..*\[\r\n\]+If line number is specified, break at start of code for that line..*\[\r\n\]+If function is specified, break at start of code for that function..*\[\r\n\]+If an address is specified, break at that exact address..*\[\r\n\]+With no arg, uses current execution address of selected stack frame..*\[\r\n\]+This is useful for breaking on return to a stack frame..*\[\r\n\]+Multiple breakpoints at one place are permitted, and useful if conditional..*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help breakpoint \"br\" abbreviation"
# test help breakpoint "bre" abbreviation
-send "help bre\n"
-expect {
- -re "Set breakpoint at specified line or function..*
-Argument may be line number, function name, or \"\[*\]\" and an address..*
-If line number is specified, break at start of code for that line..*
-If function is specified, break at start of code for that function..*
-If an address is specified, break at that exact address..*
-With no arg, uses current execution address of selected stack frame..*
-This is useful for breaking on return to a stack frame..*
-Multiple breakpoints at one place are permitted, and useful if conditional..*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help breakpoint \"bre\" abbreviation" }
- -re "$prompt $" { fail "help breakpoint \"bre\" abbreviation" }
- timeout { fail "(timeout) help breakpoint \"bre\" abbreviation" }
- }
-
-
+gdb_test "help bre" "Set breakpoint at specified line or function..*\[\r\n\]+Argument may be line number, function name, or \"\[*\]\" and an address..*\[\r\n\]+If line number is specified, break at start of code for that line..*\[\r\n\]+If function is specified, break at start of code for that function..*\[\r\n\]+If an address is specified, break at that exact address..*\[\r\n\]+With no arg, uses current execution address of selected stack frame..*\[\r\n\]+This is useful for breaking on return to a stack frame..*\[\r\n\]+Multiple breakpoints at one place are permitted, and useful if conditional..*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help breakpoint \"bre\" abbreviation"
# test help breakpoint "brea" abbreviation
-send "help brea\n"
-expect {
- -re "Set breakpoint at specified line or function..*
-Argument may be line number, function name, or \"\[*\]\" and an address..*
-If line number is specified, break at start of code for that line..*
-If function is specified, break at start of code for that function..*
-If an address is specified, break at that exact address..*
-With no arg, uses current execution address of selected stack frame..*
-This is useful for breaking on return to a stack frame..*
-Multiple breakpoints at one place are permitted, and useful if conditional..*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help breakpoint \"brea\" abbreviation" }
- -re "$prompt $" { fail "help breakpoint \"brea\" abbreviation" }
- timeout { fail "(timeout) help breakpoint \"brea\" abbreviation" }
- }
-
-
+gdb_test "help brea" "Set breakpoint at specified line or function..*\[\r\n\]+Argument may be line number, function name, or \"\[*\]\" and an address..*\[\r\n\]+If line number is specified, break at start of code for that line..*\[\r\n\]+If function is specified, break at start of code for that function..*\[\r\n\]+If an address is specified, break at that exact address..*\[\r\n\]+With no arg, uses current execution address of selected stack frame..*\[\r\n\]+This is useful for breaking on return to a stack frame..*\[\r\n\]+Multiple breakpoints at one place are permitted, and useful if conditional..*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help breakpoint \"brea\" abbreviation"
# test help breakpoint "break" abbreviation
-send "help break\n"
-expect {
- -re "Set breakpoint at specified line or function..*
-Argument may be line number, function name, or \"\[*\]\" and an address..*
-If line number is specified, break at start of code for that line..*
-If function is specified, break at start of code for that function..*
-If an address is specified, break at that exact address..*
-With no arg, uses current execution address of selected stack frame..*
-This is useful for breaking on return to a stack frame..*
-Multiple breakpoints at one place are permitted, and useful if conditional..*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help breakpoint \"break\" abbreviation" }
- -re "$prompt $" { fail "help breakpoint \"break\" abbreviation" }
- timeout { fail "(timeout) help breakpoint \"break\" abbreviation" }
- }
-
-
+gdb_test "help break" "Set breakpoint at specified line or function..*\[\r\n\]+Argument may be line number, function name, or \"\[*\]\" and an address..*\[\r\n\]+If line number is specified, break at start of code for that line..*\[\r\n\]+If function is specified, break at start of code for that function..*\[\r\n\]+If an address is specified, break at that exact address..*\[\r\n\]+With no arg, uses current execution address of selected stack frame..*\[\r\n\]+This is useful for breaking on return to a stack frame..*\[\r\n\]+Multiple breakpoints at one place are permitted, and useful if conditional..*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help breakpoint \"break\" abbreviation"
# test help breakpoints
-send "help breakpoints\n"
-expect {
- -re "Making program stop at certain points..*
-List of commands\:.*
-watch -- Set a watchpoint for an expression.*
-catch -- Set breakpoints to catch exceptions that are raised.*
-break -- Set breakpoint at specified line or function.*
-clear -- Clear breakpoint at specified line or function.*
-delete -- Delete some breakpoints or auto-display expressions.*
-disable -- Disable some breakpoints.*
-enable -- Enable some breakpoints.*
-tbreak -- Set a temporary breakpoint.*
-condition -- Specify breakpoint number N to break only if COND is true.*
-commands -- Set commands to be executed when a breakpoint is hit.*
-ignore -- Set ignore-count of breakpoint number N to COUNT.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help breakpoints" }
- -re "$prompt $" { fail "help breakpoints" }
- timeout { fail "(timeout) help breakpoints" }
- }
-
-
+gdb_test "help breakpoints" "Making program stop at certain points..*\[\r\n\]+List of commands\:.*\[\r\n\]+watch -- Set a watchpoint for an expression.*\[\r\n\]+catch -- Set breakpoints to catch exceptions that are raised.*\[\r\n\]+break -- Set breakpoint at specified line or function.*\[\r\n\]+clear -- Clear breakpoint at specified line or function.*\[\r\n\]+delete -- Delete some breakpoints or auto-display expressions.*\[\r\n\]+disable -- Disable some breakpoints.*\[\r\n\]+enable -- Enable some breakpoints.*\[\r\n\]+tbreak -- Set a temporary breakpoint.*\[\r\n\]+condition -- Specify breakpoint number N to break only if COND is true.*\[\r\n\]+commands -- Set commands to be executed when a breakpoint is hit.*\[\r\n\]+ignore -- Set ignore-count of breakpoint number N to COUNT.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help breakpoints"
# test help backtrace "bt" abbreviation
-send "help bt\n"
-expect {
- -re "Print backtrace of all stack frames, or innermost COUNT frames..*
-With a negative argument, print outermost -COUNT frames..*$prompt $"\
- { pass "help backtrace \"bt\" abbreviation" }
- -re "$prompt $" { fail "help backtrace \"bt\" abbreviation" }
- timeout { fail "(timeout) help backtrace \"bt\" abbreviation" }
- }
-
-
+gdb_test "help bt" "Print backtrace of all stack frames, or innermost COUNT frames..*\[\r\n\]+With a negative argument, print outermost -COUNT frames." "help backtrace \"bt\" abbreviation"
# test help backtrace
-send "help backtrace\n"
-expect {
- -re "Print backtrace of all stack frames, or innermost COUNT frames..*
-With a negative argument, print outermost -COUNT frames..*$prompt $"\
- { pass "help backtrace" }
- -re "$prompt $" { fail "help backtrace" }
- timeout { fail "(timeout) help backtrace" }
- }
-
-
+gdb_test "help backtrace" "Print backtrace of all stack frames, or innermost COUNT frames..*\[\r\n\]+With a negative argument, print outermost -COUNT frames." "help backtrace"
# test help continue "c" abbreviation
-send "help c\n"
-expect {
- -re "Continue program being debugged.*$prompt $"\
- { pass "help continue \"c\" abbreviation" }
- -re "$prompt $" { fail "help continue \"c\" abbreviation" }
- timeout { fail "(timeout) help continue \"c\" abbreviation" }
- }
-
-
+gdb_test "help c" "Continue program being debugged.*" "help continue \"c\" abbreviation"
# test help continue
-send "help continue\n"
-expect {
- -re "Continue program being debugged.*$prompt $"\
- { pass "help continue" }
- -re "$prompt $" { fail "help continue" }
- timeout { fail "(timeout) help continue" }
- }
-
-
+gdb_test "help continue" "Continue program being debugged.*" "help continue"
# test help call
-send "help call\n"
-expect {
- -re "Call a function.*$prompt $"\
- { pass "help call" }
- -re "$prompt $" { fail "help call" }
- timeout { fail "(timeout) help call" }
- }
-
-
+gdb_test "help call" "Call a function.*" "help call"
# test help catch
-send "help catch\n"
-expect {
- -re "Set breakpoints to catch exceptions that are raised..*
-Argument may be a single exception to catch, multiple exceptions.*
-to catch, or the default exception \"default\". If no arguments.*
-are given, breakpoints are set at all exception handlers catch clauses.*
-within the current scope..*
-A condition specified for the catch applies to all breakpoints set.*
-with this command.*
-Do \"help breakpoints\" for info on other commands dealing with breakpoints..*$prompt $"\
- { pass "help catch" }
- -re "$prompt $" { fail "help catch" }
- timeout { fail "(timeout) help catch" }
- }
-
-
+gdb_test "help catch" "Set breakpoints to catch exceptions that are raised..*\[\r\n\]+Argument may be a single exception to catch, multiple exceptions.*\[\r\n\]+to catch, or the default exception \"default\". If no arguments.*\[\r\n\]+are given, breakpoints are set at all exception handlers catch clauses.*\[\r\n\]+within the current scope..*\[\r\n\]+A condition specified for the catch applies to all breakpoints set.*\[\r\n\]+with this command.*\[\r\n\]+Do \"help breakpoints\" for info on other commands dealing with breakpoints." "help catch"
# test help cd
-send "help cd\n"
-expect {
- -re "Set working directory to DIR for debugger and program being debugged..*
-The change does not take effect for the program being debugged.*
-until the next time it is started..*$prompt $"\
- { pass "help cd" }
- -re "$prompt $" { fail "help cd" }
- timeout { fail "(timeout) help cd" }
- }
-
-
+gdb_test "help cd" "Set working directory to DIR for debugger and program being debugged..*\[\r\n\]+The change does not take effect for the program being debugged.*\[\r\n\]+until the next time it is started." "help cd"
# test help clear
-send "help clear\n"
-expect {
- -re "Clear breakpoint at specified line or function.*
-Argument may be line number, function name, or .* and an address.*
-If line number is specified, all breakpoints in that line are cleared.*
-If function is specified, breakpoints at beginning of function are cleared.*
-If an address is specified, breakpoints at that address are cleared.*
-With no argument, clears all breakpoints in the line that the selected frame.*
-is executing in..*
-See also the \"delete\" command which clears breakpoints by number..*$prompt $"\
- { pass "help clear" }
- -re "$prompt $" { fail "help clear" }
- timeout { fail "(timeout) help clear" }
- }
-
-
+gdb_test "help clear" "Clear breakpoint at specified line or function.*\[\r\n\]+Argument may be line number, function name, or .* and an address.*\[\r\n\]+If line number is specified, all breakpoints in that line are cleared.*\[\r\n\]+If function is specified, breakpoints at beginning of function are cleared.*\[\r\n\]+If an address is specified, breakpoints at that address are cleared.*\[\r\n\]+With no argument, clears all breakpoints in the line that the selected frame.*\[\r\n\]+is executing in..*\[\r\n\]+See also the \"delete\" command which clears breakpoints by number." "help clear"
# test help commands
-send "help commands\n"
-expect {
- -re "Set commands to be executed when a breakpoint is hit..*
-Give breakpoint number as argument after \"commands\"..*
-With no argument, the targeted breakpoint is the last one set..*
-The commands themselves follow starting on the next line..*
-Type a line containing \"end\" to indicate the end of them..*
-Give \"silent\" as the first line to make the breakpoint silent;.*
-then no output is printed when it is hit, except what the commands print..*$prompt $"\
- { pass "help commands" }
- -re "$prompt $" { fail "help commands" }
- timeout { fail "(timeout) help commands" }
- }
-
-
+gdb_test "help commands" "Set commands to be executed when a breakpoint is hit..*\[\r\n\]+Give breakpoint number as argument after \"commands\"..*\[\r\n\]+With no argument, the targeted breakpoint is the last one set..*\[\r\n\]+The commands themselves follow starting on the next line..*\[\r\n\]+Type a line containing \"end\" to indicate the end of them..*\[\r\n\]+Give \"silent\" as the first line to make the breakpoint silent;.*\[\r\n\]+then no output is printed when it is hit, except what the commands print." "help commands"
# test help condition
-send "help condition\n"
-expect {
- -re "Specify breakpoint number N to break only if COND is true..*
-Usage is `condition N COND', where N is an integer and COND is an.*
-expression to be evaluated whenever breakpoint N is reached. .*$prompt $"\
- { pass "help condition" }
- -re "$prompt $" { fail "help condition" }
- timeout { fail "(timeout) help condition" }
- }
-
-
+gdb_test "help condition" "Specify breakpoint number N to break only if COND is true..*\[\r\n\]+Usage is `condition N COND', where N is an integer and COND is an.*\[\r\n\]+expression to be evaluated whenever breakpoint N is reached. " "help condition"
# test help core-file
-send "help core-file\n"
-expect {
- -re "Use FILE as core dump for examining memory and registers..*
-No arg means have no core file. This command has been superseded by the.*
-`target core' and `detach' commands..*$prompt $"\
- { pass "help core-file" }
- -re "$prompt $" { fail "help core-file" }
- timeout { fail "(timeout) help core-file" }
- }
-
-
+gdb_test "help core-file" "Use FILE as core dump for examining memory and registers..*\[\r\n\]+No arg means have no core file. This command has been superseded by the.*\[\r\n\]+`target core' and `detach' commands." "help core-file"
# test help delete "d" abbreviation
-send "help d\n"
-expect {
- -re "Delete some breakpoints or auto-display expressions..*
-Arguments are breakpoint numbers with spaces in between..*
-To delete all breakpoints, give no argument..*
-Also a prefix command for deletion of other GDB objects..*
-The \"unset\" command is also an alias for \"delete\"..*
-List of delete subcommands:.*
-delete display -- Cancel some expressions to be displayed when program stops.*
-delete breakpoints -- Delete some breakpoints or auto-display expressions.*
-Type \"help delete\" followed by delete subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help delete \"d\" abbreviation" }
- -re "$prompt $" { fail "help delete \"d\" abbreviation" }
- timeout { fail "(timeout) help delete \"d\" abbreviation" }
- }
-
-
+gdb_test "help d" "Delete some breakpoints or auto-display expressions..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To delete all breakpoints, give no argument..*\[\r\n\]+Also a prefix command for deletion of other GDB objects..*\[\r\n\]+The \"unset\" command is also an alias for \"delete\"..*\[\r\n\]+List of delete subcommands:.*\[\r\n\]+delete display -- Cancel some expressions to be displayed when program stops.*\[\r\n\]+delete breakpoints -- Delete some breakpoints or auto-display expressions.*\[\r\n\]+Type \"help delete\" followed by delete subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help delete \"d\" abbreviation"
# test help delete
-send "help delete\n"
-expect {
- -re "Delete some breakpoints or auto-display expressions..*
-Arguments are breakpoint numbers with spaces in between..*
-To delete all breakpoints, give no argument..*
-Also a prefix command for deletion of other GDB objects..*
-The \"unset\" command is also an alias for \"delete\"..*
-List of delete subcommands:.*
-delete display -- Cancel some expressions to be displayed when program stops.*
-delete breakpoints -- Delete some breakpoints or auto-display expressions.*
-Type \"help delete\" followed by delete subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help delete" }
- -re "$prompt $" { fail "help delete" }
- timeout { fail "(timeout) help delete" }
- }
-
-
+gdb_test "help delete" "Delete some breakpoints or auto-display expressions..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To delete all breakpoints, give no argument..*\[\r\n\]+Also a prefix command for deletion of other GDB objects..*\[\r\n\]+The \"unset\" command is also an alias for \"delete\"..*\[\r\n\]+List of delete subcommands:.*\[\r\n\]+delete display -- Cancel some expressions to be displayed when program stops.*\[\r\n\]+delete breakpoints -- Delete some breakpoints or auto-display expressions.*\[\r\n\]+Type \"help delete\" followed by delete subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help delete"
# test help data
-send "help data\n"
-expect {
- -re ".*
-Examining data..*
-List of commands:.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help data" }
- -re "$prompt $" { fail "help data" }
- timeout { fail "(timeout) help data" }
- }
-
-
+gdb_test "help data" ".*\[\r\n\]+Examining data..*\[\r\n\]+List of commands:.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help data"
# test help define
-send "help define\n"
-expect {
- -re "Define a new command.*$prompt $"\
- { pass "help define" }
- -re "$prompt $" { fail "help define" }
- timeout { fail "(timeout) help define" }
- }
-
-
+gdb_test "help define" "Define a new command.*" "help define"
# test help delete breakpoints
-send "help delete breakpoints\n"
-expect {
- -re "Delete some breakpoints or auto-display expressions..*
-Arguments are breakpoint numbers with spaces in between..*
-To delete all breakpoints, give no argument..*
-This command may be abbreviated \"delete\"..*$prompt $"\
- { pass "help delete breakpoints" }
- -re "$prompt $" { fail "help delete breakpoints" }
- timeout { fail "(timeout) help delete breakpoints" }
- }
-
-
+gdb_test "help delete breakpoints" "Delete some breakpoints or auto-display expressions..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To delete all breakpoints, give no argument..*\[\r\n\]+This command may be abbreviated \"delete\"." "help delete breakpoints"
# test help delete display
-send "help delete display\n"
-expect {
- -re "Cancel some expressions to be displayed when program stops..*
-Arguments are the code numbers of the expressions to stop displaying..*
-No argument means cancel all automatic-display expressions..*
-Do \"info display\" to see current list of code numbers..*$prompt $"\
- { pass "help delete display" }
- -re "$prompt $" { fail "help delete display" }
- timeout { fail "(timeout) help delete display" }
- }
-
-
+gdb_test "help delete display" "Cancel some expressions to be displayed when program stops..*\[\r\n\]+Arguments are the code numbers of the expressions to stop displaying..*\[\r\n\]+No argument means cancel all automatic-display expressions..*\[\r\n\]+Do \"info display\" to see current list of code numbers." "help delete display"
# test help detach
-send "help detach\n"
-expect {
- -re "Detach a process or file previously attached..*
-If a process, it is no longer traced, and it continues its execution. If you.*
-were debugging a file, the file is closed and gdb no longer accesses it..*$prompt $"\
- { pass "help detach" }
- -re "$prompt $" { fail "help detach" }
- timeout { fail "(timeout) help detach" }
- }
-
-
+gdb_test "help detach" "Detach a process or file previously attached..*\[\r\n\]+If a process, it is no longer traced, and it continues its execution. If you.*\[\r\n\]+were debugging a file, the file is closed and gdb no longer accesses it." "help detach"
# test help directory
-send "help directory\n"
-expect {
- -re "Add directory DIR to beginning of search path for source files..*
-Forget cached info on source file locations and line positions..*
-DIR can also be .cwd for the current working directory, or .cdir for the.*
-directory in which the source file was compiled into object code..*
-With no argument, reset the search path to .cdir:.cwd, the default..*$prompt $"\
- { pass "help directory" }
- -re "$prompt $" { fail "help directory" }
- timeout { fail "(timeout) help directory" }
- }
-
-
+gdb_test "help directory" "Add directory DIR to beginning of search path for source files..*\[\r\n\]+Forget cached info on source file locations and line positions..*\[\r\n\]+DIR can also be .cwd for the current working directory, or .cdir for the.*\[\r\n\]+directory in which the source file was compiled into object code..*\[\r\n\]+With no argument, reset the search path to .cdir:.cwd, the default." "help directory"
# test help disable "dis" abbreviation
-send "help dis\n"
-expect {
- -re "Disable some breakpoints..*
-Arguments are breakpoint numbers with spaces in between..*
-To disable all breakpoints, give no argument..*
-A disabled breakpoint is not forgotten, but has no effect until reenabled..*
-List of disable subcommands:.*
-disable display -- Disable some expressions to be displayed when program stops.*
-disable breakpoints -- Disable some breakpoints.*
-Type \"help disable\" followed by disable subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help disable \"dis\" abbreviation" }
- -re "$prompt $" { fail "help disable \"dis\" abbreviation" }
- timeout { fail "(timeout) help disable \"dis\" abbreviation" }
- }
-
-
+gdb_test "help dis" "Disable some breakpoints..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To disable all breakpoints, give no argument..*\[\r\n\]+A disabled breakpoint is not forgotten, but has no effect until reenabled..*\[\r\n\]+List of disable subcommands:.*\[\r\n\]+disable display -- Disable some expressions to be displayed when program stops.*\[\r\n\]+disable breakpoints -- Disable some breakpoints.*\[\r\n\]+Type \"help disable\" followed by disable subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help disable \"dis\" abbreviation"
# test help disable "disa" abbreviation
-send "help disa\n"
-expect {
- -re "Disable some breakpoints..*
-Arguments are breakpoint numbers with spaces in between..*
-To disable all breakpoints, give no argument..*
-A disabled breakpoint is not forgotten, but has no effect until reenabled..*
-List of disable subcommands:.*
-disable display -- Disable some expressions to be displayed when program stops.*
-disable breakpoints -- Disable some breakpoints.*
-Type \"help disable\" followed by disable subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help disable \"disa\" abbreviation" }
- -re "$prompt $" { fail "help disable \"disa\" abbreviation" }
- timeout { fail "(timeout) help disable \"disa\" abbreviation" }
- }
-
-
+gdb_test "help disa" "Disable some breakpoints..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To disable all breakpoints, give no argument..*\[\r\n\]+A disabled breakpoint is not forgotten, but has no effect until reenabled..*\[\r\n\]+List of disable subcommands:.*\[\r\n\]+disable display -- Disable some expressions to be displayed when program stops.*\[\r\n\]+disable breakpoints -- Disable some breakpoints.*\[\r\n\]+Type \"help disable\" followed by disable subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help disable \"disa\" abbreviation"
# test help disable
-send "help disable\n"
-expect {
- -re "Disable some breakpoints..*
-Arguments are breakpoint numbers with spaces in between..*
-To disable all breakpoints, give no argument..*
-A disabled breakpoint is not forgotten, but has no effect until reenabled..*
-List of disable subcommands:.*
-disable display -- Disable some expressions to be displayed when program stops.*
-disable breakpoints -- Disable some breakpoints.*
-Type \"help disable\" followed by disable subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help disable" }
- -re "$prompt $" { fail "help disable" }
- timeout { fail "(timeout) help disable" }
- }
-
-
+gdb_test "help disable" "Disable some breakpoints..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To disable all breakpoints, give no argument..*\[\r\n\]+A disabled breakpoint is not forgotten, but has no effect until reenabled..*\[\r\n\]+List of disable subcommands:.*\[\r\n\]+disable display -- Disable some expressions to be displayed when program stops.*\[\r\n\]+disable breakpoints -- Disable some breakpoints.*\[\r\n\]+Type \"help disable\" followed by disable subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help disable"
# test help disable breakpoints
-send "help disable breakpoints\n"
-expect {
- -re "Disable some breakpoints..*
-Arguments are breakpoint numbers with spaces in between..*
-To disable all breakpoints, give no argument..*
-A disabled breakpoint is not forgotten, but has no effect until reenabled..*
-This command may be abbreviated \"disable\"..*$prompt $"\
- { pass "help disable breakpoints" }
- -re "$prompt $" { fail "help disable breakpoints" }
- timeout { fail "(timeout) help disable breakpoints" }
- }
-
-
+gdb_test "help disable breakpoints" "Disable some breakpoints..*\[\r\n\]+Arguments are breakpoint numbers with spaces in between..*\[\r\n\]+To disable all breakpoints, give no argument..*\[\r\n\]+A disabled breakpoint is not forgotten, but has no effect until reenabled..*\[\r\n\]+This command may be abbreviated \"disable\"." "help disable breakpoints"
# test help disable display
-send "help disable display\n"
-expect {
- -re "Disable some expressions to be displayed when program stops..*
-Arguments are the code numbers of the expressions to stop displaying..*
-No argument means disable all automatic-display expressions..*
-Do \"info display\" to see current list of code numbers..*$prompt $"\
- { pass "help disable display" }
- -re "$prompt $" { fail "help disable display" }
- timeout { fail "(timeout) help disable display" }
- }
-
-
+gdb_test "help disable display" "Disable some expressions to be displayed when program stops..*\[\r\n\]+Arguments are the code numbers of the expressions to stop displaying..*\[\r\n\]+No argument means disable all automatic-display expressions..*\[\r\n\]+Do \"info display\" to see current list of code numbers." "help disable display"
# test help disassemble
-send "help disassemble\n"
-expect {
- -re "Disassemble a specified section of memory..*
-Default is the function surrounding the pc of the selected frame..*
-With a single argument, the function surrounding that address is dumped..*
-Two arguments are taken as a range of memory to dump..*$prompt $"\
- { pass "help disassemble" }
- -re "$prompt $" { fail "help disassemble" }
- timeout { fail "(timeout) help disassemble" }
- }
-
-
+gdb_test "help disassemble" "Disassemble a specified section of memory..*\[\r\n\]+Default is the function surrounding the pc of the selected frame..*\[\r\n\]+With a single argument, the function surrounding that address is dumped..*\[\r\n\]+Two arguments are taken as a range of memory to dump." "help disassemble"
# test help display
-send "help display\n"
-expect {
- -re "Print value of expression EXP each time the program stops..*
-/FMT may be used before EXP as in the \"print\" command..*
-/FMT \"i\" or \"s\" or including a size-letter is allowed,.*
-as in the \"x\" command, and then EXP is used to get the address to examine.*
-and examining is done as in the \"x\" command..*
-With no argument, display all currently requested auto-display expressions..*
-Use \"undisplay\" to cancel display requests previously made..*$prompt $"\
- { pass "help display" }
- -re "$prompt $" { fail "help display" }
- timeout { fail "(timeout) help display" }
- }
-
-
+gdb_test "help display" "Print value of expression EXP each time the program stops..*\[\r\n\]+/FMT may be used before EXP as in the \"print\" command..*\[\r\n\]+/FMT \"i\" or \"s\" or including a size-letter is allowed,.*\[\r\n\]+as in the \"x\" command, and then EXP is used to get the address to examine.*\[\r\n\]+and examining is done as in the \"x\" command..*\[\r\n\]+With no argument, display all currently requested auto-display expressions..*\[\r\n\]+Use \"undisplay\" to cancel display requests previously made." "help display"
# test help do
-send "help do\n"
-expect {
- -re "Select and print stack frame called by this one..*
-An argument says how many frames down to go..*$prompt $"\
- { pass "help do" }
- -re "$prompt $" { fail "help do" }
- timeout { fail "(timeout) help do" }
- }
-
-
+gdb_test "help do" "Select and print stack frame called by this one..*\[\r\n\]+An argument says how many frames down to go." "help do"
# test help document
-send "help document\n"
-expect {
- -re "Document a user-defined command..*
-Give command name as argument. Give documentation on following lines..*
-End with a line of just \"end\"..*$prompt $"\
- { pass "help document" }
- -re "$prompt $" { fail "help document" }
- timeout { fail "(timeout) help document" }
- }
-
-
-
+gdb_test "help document" "Document a user-defined command..*\[\r\n\]+Give command name as argument. Give documentation on following lines..*\[\r\n\]+End with a line of just \"end\"." "help document"
# test help down
-send "help down\n"
-expect {
- -re "Select and print stack frame called by this one..*
-An argument says how many frames down to go..*$prompt $"\
- { pass "help down" }
- -re "$prompt $" { fail "help down" }
- timeout { fail "(timeout) help down" }
- }
-
-
+gdb_test "help down" "Select and print stack frame called by this one..*\[\r\n\]+An argument says how many frames down to go." "help down"
# test help down-silently
-send "help down-silently\n"
-expect {
- -re "Same as the `down' command, but does not print anything..*
-This is useful in command scripts..*$prompt $"\
- { pass "help down-silently" }
- -re "$prompt $" { fail "help down-silently" }
- timeout { fail "(timeout) help down-silently" }
- }
-
-
+gdb_test "help down-silently" "Same as the `down' command, but does not print anything..*\[\r\n\]+This is useful in command scripts." "help down-silently"
# this command was removed from GDB 4.5.8
# test help dump-me
-#send "help dump-me\n"
-#expect {
-# -re "Get fatal error; make debugger dump its core..*$prompt $"\
-# { pass "help dump-me" }
-# -re "$prompt $" { fail "help dump-me" }
-# timeout { fail "(timeout) help dump-me" }
-# }
-
+#send_gdb "help dump-me"
+# -re "Get fatal error; make debugger dump its core."
+#
+# }
# test help echo
-send "help echo\n"
-expect {
- -re "Print a constant string. Give string as argument..*
-C escape sequences may be used in the argument..*
-No newline is added at the end of the argument;.*
-use \".n\" if you want a newline to be printed..*
-Since leading and trailing whitespace are ignored in command arguments,.*
-if you want to print some you must use \".\" before leading whitespace.*
-to be printed or after trailing whitespace..*$prompt $"\
- { pass "help echo" }
- -re "$prompt $" { fail "help echo" }
- timeout { fail "(timeout) help echo" }
- }
-
-
+gdb_test "help echo" "Print a constant string. Give string as argument..*\[\r\n\]+C escape sequences may be used in the argument..*\[\r\n\]+No newline is added at the end of the argument;.*\[\r\n\]+use \".n\" if you want a newline to be printed..*\[\r\n\]+Since leading and trailing whitespace are ignored in command arguments,.*\[\r\n\]+if you want to print some you must use \".\" before leading whitespace.*\[\r\n\]+to be printed or after trailing whitespace." "help echo"
# test help enable breakpoints delete
-send "help enable breakpoints delete\n"
-expect {
- -re "Enable breakpoints and delete when hit. Give breakpoint numbers..*
-If a breakpoint is hit while enabled in this fashion, it is deleted..*$prompt $"\
- { pass "help enable breakpoints delete" }
- -re "$prompt $" { fail "help enable breakpoints delete" }
- timeout { fail "(timeout) help enable breakpoints delete" }
- }
-
-
+gdb_test "help enable breakpoints delete" "Enable breakpoints and delete when hit. Give breakpoint numbers..*\[\r\n\]+If a breakpoint is hit while enabled in this fashion, it is deleted." "help enable breakpoints delete"
# test help enable breakpoints once
-send "help enable breakpoints once\n"
-expect {
- -re "Enable breakpoints for one hit..*$prompt $"\
- { pass "help enable breakpoints once" }
- -re "$prompt $" { fail "help enable breakpoints once" }
- timeout { fail "(timeout) help enable breakpoints once" }
- }
-
-
+gdb_test "help enable breakpoints once" "Enable breakpoints for one hit..*" "help enable breakpoints once"
# test help enable breakpoints
-send "help enable breakpoints\n"
-expect {
- -re "Enable some breakpoints..*
-Give breakpoint numbers .separated by spaces. as arguments..*
-This is used to cancel the effect of the \"disable\" command..*
-May be abbreviated to simply \"enable\"..*.*
-List of enable breakpoints subcommands:.*
-enable breakpoints delete -- Enable breakpoints and delete when hit.*
-enable breakpoints once -- Enable breakpoints for one hit.*
-Type \"help enable breakpoints\" followed by enable breakpoints subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help enable breakpoints" }
- -re "$prompt $" { fail "help enable breakpoints" }
- timeout { fail "(timeout) help enable breakpoints" }
- }
-
-
+gdb_test "help enable breakpoints" "Enable some breakpoints..*\[\r\n\]+Give breakpoint numbers .separated by spaces. as arguments..*\[\r\n\]+This is used to cancel the effect of the \"disable\" command..*\[\r\n\]+May be abbreviated to simply \"enable\"..*.*\[\r\n\]+List of enable breakpoints subcommands:.*\[\r\n\]+enable breakpoints delete -- Enable breakpoints and delete when hit.*\[\r\n\]+enable breakpoints once -- Enable breakpoints for one hit.*\[\r\n\]+Type \"help enable breakpoints\" followed by enable breakpoints subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help enable breakpoints"
# test help enable delete
-send "help enable delete\n"
-expect {
- -re "Enable breakpoints and delete when hit. Give breakpoint numbers..*
-If a breakpoint is hit while enabled in this fashion, it is deleted..*$prompt $"\
- { pass "help enable delete" }
- -re "$prompt $" { fail "help enable delete" }
- timeout { fail "(timeout) help enable delete" }
- }
-
-
+gdb_test "help enable delete" "Enable breakpoints and delete when hit. Give breakpoint numbers..*\[\r\n\]+If a breakpoint is hit while enabled in this fashion, it is deleted." "help enable delete"
# test help enable display
-send "help enable display\n"
-expect {
- -re "Enable some expressions to be displayed when program stops..*
-Arguments are the code numbers of the expressions to resume displaying..*
-No argument means enable all automatic-display expressions..*
-Do \"info display\" to see current list of code numbers..*$prompt $"\
- { pass "help enable display" }
- -re "$prompt $" { fail "help enable display" }
- timeout { fail "(timeout) help enable display" }
- }
-
-
+gdb_test "help enable display" "Enable some expressions to be displayed when program stops..*\[\r\n\]+Arguments are the code numbers of the expressions to resume displaying..*\[\r\n\]+No argument means enable all automatic-display expressions..*\[\r\n\]+Do \"info display\" to see current list of code numbers." "help enable display"
# test help enable once
-send "help enable once\n"
-expect {
- -re "Enable breakpoints for one hit.*$prompt $"\
- { pass "help enable once" }
- -re "$prompt $" { fail "help enable once" }
- timeout { fail "(timeout) help enable once" }
- }
-
-
+gdb_test "help enable once" "Enable breakpoints for one hit.*" "help enable once"
# test help enable
-send "help enable\n"
-expect {
- -re "Enable some breakpoints..*
-Give breakpoint numbers .separated by spaces. as arguments..*
-With no subcommand, breakpoints are enabled until you command otherwise..*
-This is used to cancel the effect of the \"disable\" command..*
-With a subcommand you can enable temporarily..*
-List of enable subcommands:.*
-enable display -- Enable some expressions to be displayed when program stops.*
-enable once -- Enable breakpoints for one hit.*
-enable delete -- Enable breakpoints and delete when hit.*
-Type \"help enable\" followed by enable subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help enable" }
- -re "$prompt $" { fail "help enable" }
- timeout { fail "(timeout) help enable" }
- }
-
-
+gdb_test "help enable" "Enable some breakpoints..*\[\r\n\]+Give breakpoint numbers .separated by spaces. as arguments..*\[\r\n\]+With no subcommand, breakpoints are enabled until you command otherwise..*\[\r\n\]+This is used to cancel the effect of the \"disable\" command..*\[\r\n\]+With a subcommand you can enable temporarily..*\[\r\n\]+List of enable subcommands:.*\[\r\n\]+enable display -- Enable some expressions to be displayed when program stops.*\[\r\n\]+enable once -- Enable breakpoints for one hit.*\[\r\n\]+enable delete -- Enable breakpoints and delete when hit.*\[\r\n\]+Type \"help enable\" followed by enable subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help enable"
# test help exec-file
-send "help exec-file\n"
-expect {
- -re "Use FILE as program for getting contents of pure memory..*
-If FILE cannot be found as specified, your execution directory path.*
-is searched for a command of that name..*
-No arg means have no executable file..*$prompt $"\
- { pass "help exec-file" }
- -re "$prompt $" { fail "help exec-file" }
- timeout { fail "(timeout) help exec-file" }
- }
-
-
+gdb_test "help exec-file" "Use FILE as program for getting contents of pure memory..*\[\r\n\]+If FILE cannot be found as specified, your execution directory path.*\[\r\n\]+is searched for a command of that name..*\[\r\n\]+No arg means have no executable file." "help exec-file"
# test help frame "f" abbreviation
-send "help f\n"
-expect {
- -re "Select and print a stack frame..*
-With no argument, print the selected stack frame. .See also \"info frame\".*
-An argument specifies the frame to select..*
-It can be a stack frame number or the address of the frame..*
-With argument, nothing is printed if input is coming from.*
-a command file or a user-defined command..*$prompt $"\
- { pass "help frame \"f\" abbreviation" }
- -re "$prompt $" { fail "help frame \"f\" abbreviation" }
- timeout { fail "(timeout) help frame \"f\" abbreviation" }
- }
-
-
+gdb_test "help f" "Select and print a stack frame..*\[\r\n\]+With no argument, print the selected stack frame. .See also \"info frame\".*\[\r\n\]+An argument specifies the frame to select..*\[\r\n\]+It can be a stack frame number or the address of the frame..*\[\r\n\]+With argument, nothing is printed if input is coming from.*\[\r\n\]+a command file or a user-defined command." "help frame \"f\" abbreviation"
# test help frame
-send "help frame\n"
-expect {
- -re "Select and print a stack frame..*
-With no argument, print the selected stack frame. .See also \"info frame\"...*
-An argument specifies the frame to select..*
-It can be a stack frame number or the address of the frame..*
-With argument, nothing is printed if input is coming from.*
-a command file or a user-defined command..*$prompt $"\
- { pass "help frame" }
- -re "$prompt $" { fail "help frame" }
- timeout { fail "(timeout) help frame" }
- }
-
-
+gdb_test "help frame" "Select and print a stack frame..*\[\r\n\]+With no argument, print the selected stack frame. .See also \"info frame\"...*\[\r\n\]+An argument specifies the frame to select..*\[\r\n\]+It can be a stack frame number or the address of the frame..*\[\r\n\]+With argument, nothing is printed if input is coming from.*\[\r\n\]+a command file or a user-defined command." "help frame"
# test help fg
-send "help fg\n"
-expect {
- -re "Continue program being debugged.*$prompt $"\
- { pass "help fg" }
- -re "$prompt $" { fail "help fg" }
- timeout { fail "(timeout) help fg" }
- }
-
-
+gdb_test "help fg" "Continue program being debugged.*" "help fg"
# test help file
-send "help file\n"
-expect {
- -re "Use FILE as program to be debugged..*
-It is read for its symbols, for getting the contents of pure memory,.*
-and it is the program executed when you use the `run' command..*
-If FILE cannot be found as specified, your execution directory path.*
-..PATH. is searched for a command of that name..*
-No arg means to have no executable file and no symbols..*$prompt $"\
- { pass "help file" }
- -re "$prompt $" { fail "help file" }
- timeout { fail "(timeout) help file" }
- }
-
-
+gdb_test "help file" "Use FILE as program to be debugged..*\[\r\n\]+It is read for its symbols, for getting the contents of pure memory,.*\[\r\n\]+and it is the program executed when you use the `run' command..*\[\r\n\]+If FILE cannot be found as specified, your execution directory path.*\[\r\n\]+..PATH. is searched for a command of that name..*\[\r\n\]+No arg means to have no executable file and no symbols." "help file"
# test help files
-send "help files\n"
-expect {
- -re "Specifying.*$prompt $" { pass "help files" }
- -re "$prompt $" { fail "help files" }
- timeout { fail "(timeout) help files" }
- }
-
-
+gdb_test "help files" "Specifying.*" "help files"
# test help finish
-send "help finish\n"
-expect {
- -re "Execute until selected stack frame returns..*
-Upon return, the value returned is printed and put in the value history..*$prompt $"\
- { pass "help finish" }
- -re "$prompt $" { fail "help finish" }
- timeout { fail "(timeout) help finish" }
- }
-
-
+gdb_test "help finish" "Execute until selected stack frame returns..*\[\r\n\]+Upon return, the value returned is printed and put in the value history." "help finish"
# test help forward-search
-send "help forward-search\n"
-expect {
- -re "Search for regular expression .see regex.3.. from last line listed..*$prompt $"\
- { pass "help forward-search" }
- -re "$prompt $" { fail "help forward-search" }
- timeout { fail "(timeout) help forward-search" }
- }
-
-
+gdb_test "help forward-search" "Search for regular expression .see regex.3.. from last line listed..*" "help forward-search"
# test help help "h" abbreviation
-send "help h\n"
-expect {
- -re "Print list of commands..*$prompt $"\
- { pass "help help \"h\" abbreviation" }
- -re "$prompt $" { fail "help help \"h\" abbreviation" }
- timeout { fail "(timeout) help help \"h\" abbreviation" }
- }
-
-
+gdb_test "help h" "Print list of commands." "help help \"h\" abbreviation"
# test help help
-send "help help\n"
-expect {
- -re "Print list of commands..*$prompt $"\
- { pass "help help" }
- -re "$prompt $" { fail "help help" }
- timeout { fail "(timeout) help help" }
- }
-
-
+gdb_test "help help" "Print list of commands." "help help"
# test help handle
-send "help handle\n"
-expect {
- -re "Specify how to handle a signal..*$prompt $"\
- { pass "help handle" }
- -re "$prompt $" { fail "help handle" }
- timeout { fail "(timeout) help handle" }
- }
-
-
+gdb_test "help handle" "Specify how to handle a signal..*" "help handle"
# test help info "i" abbreviation
-send "help i\n"
-expect {
- -re "Generic command for showing things about the program being debugged..*
-List of info subcommands:.*
-Type \"help info\" followed by info subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help info \"i\" abbreviation" }
- -re "$prompt $" { fail "help info \"i\" abbreviation" }
- timeout { fail "(timeout) help info \"i\" abbreviation" }
- }
-
-
+gdb_test "help i" "Generic command for showing things about the program being debugged..*\[\r\n\]+List of info subcommands:.*\[\r\n\]+Type \"help info\" followed by info subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help info \"i\" abbreviation"
# test help info
-send "help info\n"
-expect {
- -re "Generic command for showing things about the program being debugged..*
-List of info subcommands:.*
-Type \"help info\" followed by info subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help info" }
- -re "$prompt $" { fail "help info" }
- timeout { fail "(timeout) help info" }
- }
-
-
+gdb_test "help info" "Generic command for showing things about the program being debugged..*\[\r\n\]+List of info subcommands:.*\[\r\n\]+Type \"help info\" followed by info subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help info"
# test help ignore
-send "help ignore\n"
-expect {
- -re "Set ignore-count of breakpoint number N to COUNT..*
-Usage is `ignore N COUNT'..*$prompt $"\
- { pass "help ignore" }
- -re "$prompt $" { fail "help ignore" }
- timeout { fail "(timeout) help ignore" }
- }
-
-
+gdb_test "help ignore" "Set ignore-count of breakpoint number N to COUNT..*\[\r\n\]+Usage is `ignore N COUNT'." "help ignore"
# test help info address
-send "help info address\n"
-expect {
- -re "Describe where variable VAR is stored..*$prompt $"\
- { pass "help info address" }
- -re "$prompt $" { fail "help info address" }
- timeout { fail "(timeout) help info address" }
- }
-
-
+gdb_test "help info address" "Describe where variable VAR is stored." "help info address"
# test help info all-registers
-send "help info all-registers\n"
-expect {
- -re "List of all registers and their contents, for selected stack frame..*
-Register name as argument means describe only that register..*$prompt $"\
- { pass "help info all-registers" }
- -re "$prompt $" { fail "help info all-registers" }
- timeout { fail "(timeout) help info all-registers" }
- }
-
-
+gdb_test "help info all-registers" "List of all registers and their contents, for selected stack frame..*\[\r\n\]+Register name as argument means describe only that register." pass "help info all-registers" "help info all-registers"
# test help info args
-send "help info args\n"
-expect {
- -re "Argument variables of current stack frame..*$prompt $"\
- { pass "help info args" }
- -re "$prompt $" { fail "help info args" }
- timeout { fail "(timeout) help info args" }
- }
-
-
+gdb_test "help info args" "Argument variables of current stack frame." "help info args"
# test help info breakpoints
-send "help info breakpoints\n"
-expect {
- -re "Status of user-settable breakpoints, or breakpoint number NUMBER..*
-breakpoint set..*$prompt $"\
- { pass "help info breakpoints" }
- -re "$prompt $" { fail "help info breakpoints" }
- timeout { fail "(timeout) help info breakpoints" }
- }
-
-
+gdb_test "help info breakpoints" "Status of user-settable breakpoints, or breakpoint number NUMBER..*\[\r\n\]+breakpoint set." "help info breakpoints"
# test help info catch
-send "help info catch\n"
-expect {
- -re "Exceptions that can be caught in the current stack frame..*$prompt $"\
- { pass "help info catch" }
- -re "$prompt $" { fail "help info catch" }
- timeout { fail "(timeout) help info catch" }
- }
-
-
+gdb_test "help info catch" "Exceptions that can be caught in the current stack frame." "help info catch"
# test help info copying
-send "help info copying\n"
-expect {
- -re "Conditions for redistributing copies of GDB..*$prompt $"\
- { pass "help info copying" }
- -re "$prompt $" { fail "help info copying" }
- timeout { fail "(timeout) help info copying" }
- }
-
-
+gdb_test "help info copying" "Conditions for redistributing copies of GDB." "help info copying"
# test help info display
-send "help info display\n"
-expect {
- -re "Expressions to display when program stops, with code numbers..*$prompt $"\
- { pass "help info display" }
- -re "$prompt $" { fail "help info display" }
- timeout { fail "(timeout) help info display" }
- }
-
-
+gdb_test "help info display" "Expressions to display when program stops, with code numbers." "help info display"
# test help info frame "f" abbreviation
-send "help info f\n"
-expect {
- -re "All about selected stack frame, or frame at ADDR..*$prompt $"\
- { pass "help info frame \"f\" abbreviation" }
- -re "$prompt $" { fail "help info frame \"f\" abbreviation" }
- timeout { fail "(timeout) help info frame \"f\" abbreviation" }
- }
-
-
+gdb_test "help info f" "All about selected stack frame, or frame at ADDR." "help info frame \"f\" abbreviation"
# test help info frame
-send "help info frame\n"
-expect {
- -re "All about selected stack frame, or frame at ADDR..*$prompt $"\
- { pass "help info frame" }
- -re "$prompt $" { fail "help info frame" }
- timeout { fail "(timeout) help info frame" }
- }
-
-
+gdb_test "help info frame" "All about selected stack frame, or frame at ADDR." "help info frame"
# test help info files
-send "help info files\n"
-expect {
- -re "Names of targets and files being debugged..*
-Shows the entire stack of targets currently in use .including the exec-file,.*
-core-file, and process, if any., as well as the symbol file name..*$prompt $"\
- { pass "help info files" }
- -re "$prompt $" { fail "help info files" }
- timeout { fail "(timeout) help info files" }
- }
-
-
+gdb_test "help info files" "Names of targets and files being debugged..*\[\r\n\]+Shows the entire stack of targets currently in use .including the exec-file,.*\[\r\n\]+core-file, and process, if any., as well as the symbol file name." "help info files"
# test help info float
-send "help info float\n"
-expect {
- -re "Print the status of the floating point unit.*$prompt $"\
- { pass "help info float" }
- -re "$prompt $" { fail "help info float" }
- timeout { fail "(timeout) help info float" }
- }
-
-
+gdb_test "help info float" "Print the status of the floating point unit" "help info float"
# test help info functions
-send "help info functions\n"
-expect {
- -re "All function names, or those matching REGEXP..*$prompt $"\
- { pass "help info functions" }
- -re "$prompt $" { fail "help info functions" }
- timeout { fail "(timeout) help info functions" }
- }
-
-
+gdb_test "help info functions" "All function names, or those matching REGEXP." "help info functions"
# test help info line
-send "help info line\n"
-expect {
- -re "Core addresses of the code for a source line..*
-Line can be specified as.*
- LINENUM, to list around that line in current file,.*
- FILE:LINENUM, to list around that line in that file,.*
- FUNCTION, to list around beginning of that function,.*
- FILE:FUNCTION, to distinguish among like-named static functions..*
-Default is to describe the last source line that was listed..*
-This sets the default address for \"x\" to the line's first instruction.*
-so that \"x.i\" suffices to start examining the machine code..*
-The address is also stored as the value of \"._\"..*$prompt $"\
- { pass "help info line" }
- -re "$prompt $" { fail "help info line" }
- timeout { fail "(timeout) help info line" }
- }
-
-
+gdb_test "help info line" "Core addresses of the code for a source line..*\[\r\n\]+Line can be specified as.*\[\r\n\]+ LINENUM, to list around that line in current file,.*\[\r\n\]+ FILE:LINENUM, to list around that line in that file,.*\[\r\n\]+ FUNCTION, to list around beginning of that function,.*\[\r\n\]+ FILE:FUNCTION, to distinguish among like-named static functions..*\[\r\n\]+Default is to describe the last source line that was listed..*\[\r\n\]+This sets the default address for \"x\" to the line's first instruction.*\[\r\n\]+so that \"x.i\" suffices to start examining the machine code..*\[\r\n\]+The address is also stored as the value of \"._\"." "help info line"
# test help info locals
-send "help info locals\n"
-expect {
- -re "Local variables of current stack frame..*$prompt $"\
- { pass "help info locals" }
- -re "$prompt $" { fail "help info locals" }
- timeout { fail "(timeout) help info locals" }
- }
-
-
+gdb_test "help info locals" "Local variables of current stack frame." "help info locals"
# test help info program
-send "help info program\n"
-expect {
- -re "Execution status of the program..*$prompt $"\
- { pass "help info program" }
- -re "$prompt $" { fail "help info program" }
- timeout { fail "(timeout) help info program" }
- }
-
-
+gdb_test "help info program" "Execution status of the program." "help info program"
# test help info registers
-send "help info registers\n"
-expect {
- -re "List of integer registers and their contents, for selected stack frame..*
-Register name as argument means describe only that register..*$prompt $"\
- { pass "help info registers" }
- -re "$prompt $" { fail "help info registers" }
- timeout { fail "(timeout) help info registers" }
- }
-
-
+gdb_test "help info registers" "List of integer registers and their contents, for selected stack frame..*\[\r\n\]+Register name as argument means describe only that register." "help info registers"
# test help info stack "s" abbreviation
-send "help info s\n"
-expect {
- -re "Backtrace of the stack, or innermost COUNT frames..*$prompt $"\
- { pass "help info stack \"s\" abbreviation" }
- -re "$prompt $" { fail "help info stack \"s\" abbreviation" }
- timeout { fail "(timeout) help info stack \"s\" abbreviation" }
- }
-
-
+gdb_test "help info s" "Backtrace of the stack, or innermost COUNT frames." "help info stack \"s\" abbreviation"
# test help info stack
-send "help info stack\n"
-expect {
- -re "Backtrace of the stack, or innermost COUNT frames..*$prompt $"\
- { pass "help info stack" }
- -re "$prompt $" { fail "help info stack" }
- timeout { fail "(timeout) help info stack" }
- }
-
-
+gdb_test "help info stack" "Backtrace of the stack, or innermost COUNT frames." "help info stack"
# test help info set
-send "help info set\n"
-expect {
- -re "Show all GDB settings..*$prompt $"\
- { pass "help info set" }
- -re "$prompt $" { fail "help info set" }
- timeout { fail "(timeout) help info set" }
- }
-
-
+gdb_test "help info set" "Show all GDB settings." "help info set"
# test help info signals
-send "help info signals\n"
-expect {
- -re "What debugger does when program gets various signals.*$prompt $"\
- { pass "help info signals" }
- -re "$prompt $" { fail "help info signals" }
- timeout { fail "(timeout) help info signals" }
- }
-
-
+gdb_test "help info signals" "What debugger does when program gets various signals.*" "help info signals"
# test help info source
-send "help info source\n"
-expect {
- -re "Information about the current source file..*$prompt $"\
- { pass "help info source" }
- -re "$prompt $" { fail "help info source" }
- timeout { fail "(timeout) help aliases" }
- }
-
-
+gdb_test "help info source" "Information about the current source file." "help info source"
# test help info sources
-send "help info sources\n"
-expect {
- -re "Source files in the program..*$prompt $"\
- { pass "help info sources" }
- -re "$prompt $" { fail "help info sources" }
- timeout { fail "(timeout) help info sources" }
- }
-
-
+gdb_test "help info sources" "Source files in the program." "help info sources"
# test help info target
-send "help info target\n"
-expect {
- -re "Names of targets and files being debugged..*
-Shows the entire stack of targets currently in use .including the exec-file,.*
-core-file, and process, if any., as well as the symbol file name..*$prompt $"\
- { pass "help info target" }
- -re "$prompt $" { fail "help info target" }
- timeout { fail "(timeout) help info target" }
- }
-
-
+gdb_test "help info target" "Names of targets and files being debugged..*\[\r\n\]+Shows the entire stack of targets currently in use .including the exec-file,.*\[\r\n\]+core-file, and process, if any., as well as the symbol file name." "help info target"
# test help info terminal
-send "help info terminal\n"
-expect {
- -re "Print inferior's saved terminal status..*$prompt $"\
- { pass "help info terminal" }
- -re "$prompt $" { fail "help info terminal" }
- timeout { fail "(timeout) help info terminal" }
- }
-
-
+gdb_test "help info terminal" "Print inferior's saved terminal status." "help info terminal"
# test help info types
-send "help info types\n"
-expect {
- -re "All type names, or those matching REGEXP..*$prompt $"\
- { pass "help info types" }
- -re "$prompt $" { fail "help info types" }
- timeout { fail "(timeout) help info types" }
- }
-
-
+gdb_test "help info types" "All type names, or those matching REGEXP." "help info types"
# test help info variables
-send "help info variables\n"
-expect {
- -re "All global and static variable names, or those matching REGEXP..*$prompt $"\
- { pass "help info variables" }
- -re "$prompt $" { fail "help info variables" }
- timeout { fail "(timeout) help info variables" }
- }
-
-
+gdb_test "help info variables" "All global and static variable names, or those matching REGEXP." "help info variables"
# test help info warranty
-send "help info warranty\n"
-expect {
- -re "Various kinds of warranty you do not have..*$prompt $"\
- { pass "help info warranty" }
- -re "$prompt $" { fail "help info warranty" }
- timeout { fail "(timeout) help info warranty" }
- }
-
-
+gdb_test "help info warranty" "Various kinds of warranty you do not have." "help info warranty"
# test help info watchpoints
-send "help info watchpoints\n"
-expect {
- -re "Synonym for ``info breakpoints''..*$prompt $"\
- { pass "help info watchpoints" }
- -re "$prompt $" { fail "help info watchpoints" }
- timeout { fail "(timeout) help info watchpoints" }
- }
-
-
+gdb_test "help info watchpoints" "Synonym for ``info breakpoints''." "help info watchpoints"
# test help inspect
-send "help inspect\n"
-expect {
- -re "Same as \"print\" command, except that if you are running in the epoch.*
-environment, the value is printed in its own window..*$prompt $"\
- { pass "help inspect" }
- -re "$prompt $" { fail "help inspect" }
- timeout { fail "(timeout) help inspect" }
- }
-
-
+gdb_test "help inspect" "Same as \"print\" command, except that if you are running in the epoch.*\[\r\n\]+environment, the value is printed in its own window." "help inspect"
# test help jump
-send "help jump\n"
-expect {
- -re "Continue program being debugged at specified line or address..*
-Give as argument either LINENUM or \[*\]+ADDR, where ADDR is an expression.*
-for an address to start at..*$prompt $"\
- { pass "help jump" }
- -re "$prompt $" { fail "help jump" }
- timeout { fail "(timeout) help jump" }
- }
-
-
+gdb_test "help jump" "Continue program being debugged at specified line or address..*\[\r\n\]+Give as argument either LINENUM or \[*\]+ADDR, where ADDR is an expression.*\[\r\n\]+for an address to start at." "help jump"
# test help kill
-send "help kill\n"
-expect {
- -re "Kill execution of program being debugged..*$prompt $"\
- { pass "help kill" }
- -re "$prompt $" { fail "help kill" }
- timeout { fail "(timeout) help kill" }
- }
-
-
+gdb_test "help kill" "Kill execution of program being debugged." "help kill"
# test help list "l" abbreviation
-send "help l\n"
-expect {
- -re "List specified function or line..*
-With no argument, lists ten more lines after or around previous listing..*
-\"list -\" lists the ten lines before a previous ten-line listing..*
-One argument specifies a line, and ten lines are listed around that line..*
-Two arguments with comma between specify starting and ending lines to list..*
-Lines can be specified in these ways:.*
- LINENUM, to list around that line in current file,.*
- FILE:LINENUM, to list around that line in that file,.*
- FUNCTION, to list around beginning of that function,.*
- FILE:FUNCTION, to distinguish among like-named static functions..*
- \[*\]+ADDRESS, to list around the line containing that address..*
-With two args if one is empty it stands for ten lines away from the other arg..*$prompt $"\
- { pass "help list \"l\" abbreviation" }
- -re "$prompt $" { fail "help list \"l\" abbreviation" }
- timeout { fail "(timeout) help list \"l\" abbreviation" }
- }
-
-
+gdb_test "help l" "List specified function or line..*\[\r\n\]+With no argument, lists ten more lines after or around previous listing..*\[\r\n\]+\"list -\" lists the ten lines before a previous ten-line listing..*\[\r\n\]+One argument specifies a line, and ten lines are listed around that line..*\[\r\n\]+Two arguments with comma between specify starting and ending lines to list..*\[\r\n\]+Lines can be specified in these ways:.*\[\r\n\]+ LINENUM, to list around that line in current file,.*\[\r\n\]+ FILE:LINENUM, to list around that line in that file,.*\[\r\n\]+ FUNCTION, to list around beginning of that function,.*\[\r\n\]+ FILE:FUNCTION, to distinguish among like-named static functions..*\[\r\n\]+ \[*\]+ADDRESS, to list around the line containing that address..*\[\r\n\]+With two args if one is empty it stands for ten lines away from the other arg." "help list \"l\" abbreviation"
# test help list
-send "help list\n"
-expect {
- -re "List specified function or line..*
-With no argument, lists ten more lines after or around previous listing..*
-\"list -\" lists the ten lines before a previous ten-line listing..*
-One argument specifies a line, and ten lines are listed around that line..*
-Two arguments with comma between specify starting and ending lines to list..*
-Lines can be specified in these ways:.*
- LINENUM, to list around that line in current file,.*
- FILE:LINENUM, to list around that line in that file,.*
- FUNCTION, to list around beginning of that function,.*
- FILE:FUNCTION, to distinguish among like-named static functions..*
- \[*\]+ADDRESS, to list around the line containing that address..*
-With two args if one is empty it stands for ten lines away from the other arg..*$prompt $"\
- { pass "help list" }
- -re "$prompt $" { fail "help list" }
- timeout { fail "(timeout) help list" }
- }
-
-
+gdb_test "help list" "List specified function or line..*\[\r\n\]+With no argument, lists ten more lines after or around previous listing..*\[\r\n\]+\"list -\" lists the ten lines before a previous ten-line listing..*\[\r\n\]+One argument specifies a line, and ten lines are listed around that line..*\[\r\n\]+Two arguments with comma between specify starting and ending lines to list..*\[\r\n\]+Lines can be specified in these ways:.*\[\r\n\]+ LINENUM, to list around that line in current file,.*\[\r\n\]+ FILE:LINENUM, to list around that line in that file,.*\[\r\n\]+ FUNCTION, to list around beginning of that function,.*\[\r\n\]+ FILE:FUNCTION, to distinguish among like-named static functions..*\[\r\n\]+ \[*\]+ADDRESS, to list around the line containing that address..*\[\r\n\]+With two args if one is empty it stands for ten lines away from the other arg." "help list"
# test help load
-send "help load\n"
-expect {
- -re "Dynamically load FILE into the running program, and record its symbols.*
-for access from GDB..*$prompt $"\
- { pass "help load" }
- -re "$prompt $" { fail "help load" }
- timeout { fail "(timeout) help load" }
- }
-
-
+gdb_test "help load" "Dynamically load FILE into the running program, and record its symbols.*\[\r\n\]+for access from GDB." "help load"
# test help make
-send "help make\n"
-expect {
- -re "Run the ``make'' program using the rest of the line as arguments..*$prompt $"\
- { pass "help make" }
- -re "$prompt $" { fail "help make" }
- timeout { fail "(timeout) help make" }
- }
-
-
+gdb_test "help make" "Run the ``make'' program using the rest of the line as arguments." "help make"
# test help next "n" abbreviation
-send "help n\n"
-expect {
- -re "Step program, proceeding through subroutine calls..*
-Like the \"step\" command as long as subroutine calls do not happen;.*
-when they do, the call is treated as one instruction..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help next \"n\" abbreviation" }
- -re "$prompt $" { fail "help next \"n\" abbreviation" }
- timeout { fail "(timeout) help next \"n\" abbreviation" }
- }
-
-
+gdb_test "help n" "Step program, proceeding through subroutine calls..*\[\r\n\]+Like the \"step\" command as long as subroutine calls do not happen;.*\[\r\n\]+when they do, the call is treated as one instruction..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help next \"n\" abbreviation"
# test help next
-send "help next\n"
-expect {
- -re "Step program, proceeding through subroutine calls..*
-Like the \"step\" command as long as subroutine calls do not happen;.*
-when they do, the call is treated as one instruction..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help next" }
- -re "$prompt $" { fail "help next" }
- timeout { fail "(timeout) help next" }
- }
-
-
+gdb_test "help next" "Step program, proceeding through subroutine calls..*\[\r\n\]+Like the \"step\" command as long as subroutine calls do not happen;.*\[\r\n\]+when they do, the call is treated as one instruction..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help next"
# test help nexti
-send "help ni\n"
-expect {
- -re "Step one instruction, but proceed through subroutine calls..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help nexti" }
- -re "$prompt $" { fail "help nexti" }
- timeout { fail "(timeout) help nexti" }
- }
-
-
+gdb_test "help ni" "Step one instruction, but proceed through subroutine calls..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help nexti"
# all the commands that used to be here are now in "maintainance" instead
# test help obscure
-send "help obscure\n"
-expect {
- -re "Obscure features..*
-List of commands:.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help obscure" }
- -re "$prompt $" { fail "help obscure" }
- timeout { fail "(timeout) help obscure" }
- }
-
-
+gdb_test "help obscure" "Obscure features..*\[\r\n\]+List of commands:.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help obscure"
# test help output
-send "help output\n"
-expect {
- -re "Like \"print\" but don't put in value history and don't print newline..*
-This is useful in user-defined commands..*$prompt $"\
- { pass "help output" }
- -re "$prompt $" { fail "help output" }
- timeout { fail "(timeout) help output" }
- }
-
-
+gdb_test "help output" "Like \"print\" but don't put in value history and don't print newline..*\[\r\n\]+This is useful in user-defined commands." "help output"
# test help print "p" abbreviation
-send "help p\n"
-expect {
- -re "Print value of expression EXP..*
-Variables accessible are those of the lexical environment of the selected.*
-EXP may be preceded with /FMT, where FMT is a format letter.*
-but no count or size letter .see \"x\" command...*$prompt $"\
- { pass "help print \"p\" abbreviation" }
- -re "$prompt $" { fail "help print \"p\" abbreviation" }
- timeout { fail "(timeout) help print \"p\" abbreviation" }
- }
-
-
+gdb_test "help p" "Print value of expression EXP..*\[\r\n\]+Variables accessible are those of the lexical environment of the selected.*\[\r\n\]+EXP may be preceded with /FMT, where FMT is a format letter.*\[\r\n\]+but no count or size letter .see \"x\" command.." "help print \"p\" abbreviation"
# test help print
-send "help print\n"
-expect {
- -re "Print value of expression EXP..*
-Variables accessible are those of the lexical environment of the selected.*
-EXP may be preceded with /FMT, where FMT is a format letter.*
-but no count or size letter .see \"x\" command...*$prompt $"\
- { pass "help print" }
- -re "$prompt $" { fail "help print" }
- timeout { fail "(timeout) help print" }
- }
-
-
+gdb_test "help print" "Print value of expression EXP..*\[\r\n\]+Variables accessible are those of the lexical environment of the selected.*\[\r\n\]+EXP may be preceded with /FMT, where FMT is a format letter.*\[\r\n\]+but no count or size letter .see \"x\" command.." "help print"
# test help path
-send "help path\n"
-expect {
- -re "Add directory DIR.s. to beginning of search path for object files..*
-.cwd in the path means the current working directory..*
-This path is equivalent to the .PATH shell variable. It is a list of.*
-directories, separated by colons. These directories are searched to find.*
-fully linked executable files and separately compiled object files as needed..*$prompt $"\
- { pass "help path" }
- -re "$prompt $" { fail "help path" }
- timeout { fail "(timeout) help path" }
- }
-
-
+gdb_test "help path" "Add directory DIR.s. to beginning of search path for object files..*\[\r\n\]+.cwd in the path means the current working directory..*\[\r\n\]+This path is equivalent to the .PATH shell variable. It is a list of.*\[\r\n\]+directories, separated by colons. These directories are searched to find.*\[\r\n\]+fully linked executable files and separately compiled object files as needed." "help path"
# test help printcmds
-send "help printcmds\n"
-expect {
- -re "Undefined command: \"printcmds\". Try \"help\"..*$prompt $"\
- { pass "help printcmds" }
- -re "$prompt $" { fail "help printcmds" }
- timeout { fail "(timeout) help printcmds" }
- }
-
-
+gdb_test "help printcmds" "Undefined command: \"printcmds\". Try \"help\"." "help printcmds"
# test help printf
-send "help printf\n"
-expect {
- -re "printf \"printf format string\", arg1, arg2, arg3, ..., argn.*
-This is useful for formatted output in user-defined commands..*$prompt $"\
- { pass "help printf" }
- -re "$prompt $" { fail "help printf" }
- timeout { fail "(timeout) help printf" }
- }
-
-
-# this command doesn't exist in GDB 4.5.8
-# test help printsyms
-#send "help printsyms\n"
-#expect {
-# -re "Print dump of current symbol definitions to file OUTFILE..*
-#If a SOURCE file is specified, dump only that file's symbols..*$prompt $"\
-# { pass "help printsyms" }
-# -re "$prompt $" { fail "help printsyms" }
-# timeout { fail "(timeout) help printsyms" }
-# }
-
+gdb_test "help printf" "printf \"printf format string\", arg1, arg2, arg3, ..., argn.*\[\r\n\]+This is useful for formatted output in user-defined commands." "help printf"
# test help ptype
-send "help ptype\n"
-expect {
- -re "Print definition of type.*$prompt $"\
- { pass "help ptype" }
- -re "$prompt $" { fail "help ptype" }
- timeout { fail "(timeout) help ptype" }
- }
-
-
+gdb_test "help ptype" "Print definition of type.*" "help ptype"
# test help pwd
-send "help pwd\n"
-expect {
- -re "Print working directory. This is used for your program as well..*$prompt $"\
- { pass "help pwd" }
- -re "$prompt $" { fail "help pwd" }
- timeout { fail "(timeout) help pwd" }
- }
-
-
+gdb_test "help pwd" "Print working directory. This is used for your program as well." "help pwd"
# test help quit "q" abbreviation
-send "help q\n"
-expect {
- -re "Exit gdb..*$prompt $"\
- { pass "help quit \"q\" abbreviation" }
- -re "$prompt $" { fail "help quit \"q\" abbreviation" }
- timeout { fail "(timeout) help quit \"q\" abbreviation" }
- }
-
-
+gdb_test "help q" "Exit gdb." "help quit \"q\" abbreviation"
# test help quit
-send "help quit\n"
-expect {
- -re "Exit gdb..*$prompt $"\
- { pass "help quit" }
- -re "$prompt $" { fail "help quit" }
- timeout { fail "(timeout) help quit" }
- }
-
-
+gdb_test "help quit" "Exit gdb." "help quit"
# test help run "r" abbreviation
-send "help r\n"
-expect {
- -re "Start debugged program. You may specify arguments to give it..*
-Args may include .*, or .*; they are expanded using \"sh\"..*
-Input and output redirection with \".\", \".\", or \"..\" are also allowed..*
-With no arguments, uses arguments last specified .with \"run\" or \"set args\"...*
-To cancel previous arguments and run with no arguments,.*
-use \"set args\" without arguments..*$prompt $"\
- { pass "help run \"r\" abbreviation" }
- -re "$prompt $" { fail "help run \"r\" abbreviation" }
- timeout { fail "(timeout) help run \"r\" abbreviation" }
- }
-
-
+gdb_test "help r" "Start debugged program. You may specify arguments to give it..*\[\r\n\]+Args may include .*, or .*; they are expanded using \"sh\"..*\[\r\n\]+Input and output redirection with \".\", \".\", or \"..\" are also allowed..*\[\r\n\]+With no arguments, uses arguments last specified .with \"run\" or \"set args\"...*\[\r\n\]+To cancel previous arguments and run with no arguments,.*\[\r\n\]+use \"set args\" without arguments." "help run \"r\" abbreviation"
# test help run
-send "help run\n"
-expect {
- -re "Start debugged program. You may specify arguments to give it..*
-Args may include .*, or .*; they are expanded using \"sh\"..*
-Input and output redirection with \".\", \".\", or \"..\" are also allowed..*
-With no arguments, uses arguments last specified .with \"run\" or \"set args\"...*
-To cancel previous arguments and run with no arguments,.*
-use \"set args\" without arguments..*$prompt $"\
- { pass "help run" }
- -re "$prompt $" { fail "help run" }
- timeout { fail "(timeout) help run" }
- }
-
-
+gdb_test "help run" "Start debugged program. You may specify arguments to give it..*\[\r\n\]+Args may include .*, or .*; they are expanded using \"sh\"..*\[\r\n\]+Input and output redirection with \".\", \".\", or \"..\" are also allowed..*\[\r\n\]+With no arguments, uses arguments last specified .with \"run\" or \"set args\"...*\[\r\n\]+To cancel previous arguments and run with no arguments,.*\[\r\n\]+use \"set args\" without arguments." "help run"
# test help rbreak
-send "help rbreak\n"
-expect {
- -re "Set a breakpoint for all functions matching REGEXP..*$prompt $"\
- { pass "help rbreak" }
- -re "$prompt $" { fail "help rbreak" }
- timeout { fail "(timeout) help rbreak" }
- }
-
-
+gdb_test "help rbreak" "Set a breakpoint for all functions matching REGEXP." "help rbreak"
# test help return
-send "help return\n"
-expect {
- -re "Make selected stack frame return to its caller..*
-Control remains in the debugger, but when you continue.*
-execution will resume in the frame above the one now selected..*
-If an argument is given, it is an expression for the value to return..*$prompt $"\
- { pass "help return" }
- -re "$prompt $" { fail "help return" }
- timeout { fail "(timeout) help return" }
- }
-
-
+gdb_test "help return" "Make selected stack frame return to its caller..*\[\r\n\]+Control remains in the debugger, but when you continue.*\[\r\n\]+execution will resume in the frame above the one now selected..*\[\r\n\]+If an argument is given, it is an expression for the value to return." "help return"
# test help reverse-search
-send "help reverse-search\n"
-expect {
- -re "Search backward for regular expression .see regex.3.. from last line listed..*$prompt $"\
- { pass "help reverse-search" }
- -re "$prompt $" { fail "help reverse-search" }
- timeout { fail "(timeout) help reverse-search" }
- }
-
-
+gdb_test "help reverse-search" "Search backward for regular expression .see regex.3.. from last line listed..*" "help reverse-search"
# test help running
-send "help running\n"
-expect {
- -re "Running the program..*
-List of commands:.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help running" }
- -re "$prompt $" { fail "help running" }
- timeout { fail "(timeout) help running" }
- }
-
-
+gdb_test "help running" "Running the program..*\[\r\n\]+List of commands:.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help running"
# test help step "s" abbreviation
-send "help s\n"
-expect {
- -re "Step program until it reaches a different source line..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help step \"s\" abbreviation" }
- -re "$prompt $" { fail "help step \"s\" abbreviation" }
- timeout { fail "(timeout) help step \"s\" abbreviation" }
- }
-
-
+gdb_test "help s" "Step program until it reaches a different source line..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help step \"s\" abbreviation"
# test help step
-send "help step\n"
-expect {
- -re "Step program until it reaches a different source line..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help step" }
- -re "$prompt $" { fail "help step" }
- timeout { fail "(timeout) help step" }
- }
-
-
+gdb_test "help step" "Step program until it reaches a different source line..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help step"
# test help search
-send "help search\n"
-expect {
- -re "Search for regular expression .see regex.3.. from last line listed..*$prompt $"\
- { pass "help search" }
- -re "$prompt $" { fail "help search" }
- timeout { fail "(timeout) help search" }
- }
-
-
+gdb_test "help search" "Search for regular expression .see regex.3.. from last line listed..*" "help search"
# test help section
-send "help section\n"
-expect {
- -re "Change the base address of section SECTION of the exec file to ADDR..*
-This can be used if the exec file does not contain section addresses,.*
-.such as in the a.out format., or when the addresses specified in the.*
-file itself are wrong. Each section must be changed separately. The.*
-``info files'' command lists all the sections and their addresses..*$prompt $"\
- { pass "help section" }
- -re "$prompt $" { fail "help section" }
- timeout { fail "(timeout) help section" }
- }
-
-
+gdb_test "help section" "Change the base address of section SECTION of the exec file to ADDR..*\[\r\n\]+This can be used if the exec file does not contain section addresses,.*\[\r\n\]+.such as in the a.out format., or when the addresses specified in the.*\[\r\n\]+file itself are wrong. Each section must be changed separately. The.*\[\r\n\]+``info files'' command lists all the sections and their addresses." "help section"
+#test help set annotate
+gdb_test "help set annotate" "Set annotation_level.*\[\r\n\]+0 == normal; 1 == fullname \\(for use when running under emacs\\).*\[\r\n\]+2 == output annotated suitably for use by programs that control GDB." "help set annotate"
# test help set args
-send "help set args\n"
-expect {
- -re "Set arguments to give program being debugged when it is started..*
-Follow this command with any number of args, to be passed to the program..*$prompt $"\
- { pass "help set args" }
- -re "$prompt $" { fail "help set args" }
- timeout { fail "(timeout) help set args" }
- }
-
-
+gdb_test "help set args" "Set arguments to give program being debugged when it is started..*\[\r\n\]+Follow this command with any number of args, to be passed to the program." -re "Set arguments to give program being debugged when it is started..*\[\r\n\]+Follow this command with any number of args, to be passed to the program..*$prompt $"
+gdb_test "help set args"
# test help set check "c" abbreviation
-send "help set c\n"
-expect {
- -re "Set the status of the type/range checker.*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set check \"c\" abbreviation" }
- -re "$prompt $" { fail "help set check \"c\" abbreviation" }
- timeout { fail "(timeout) help set check \"c\" abbreviation" }
- }
-
-
+gdb_test "help set c" "Set the status of the type/range checker.*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set check \"c\" abbreviation"
# test help set check "ch" abbreviation
-send "help set ch\n"
-expect {
- -re "Set the status of the type/range checker.*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set check \"ch\" abbreviation" }
- -re "$prompt $" { fail "help set check \"ch\" abbreviation" }
- timeout { fail "(timeout) help set check \"ch\" abbreviation" }
- }
-
-
+gdb_test "help set ch" "Set the status of the type/range checker.*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set check \"ch\" abbreviation"
# test help set check
-send "help set check\n"
-expect {
- -re "Set the status of the type/range checker.*
-List of set check subcommands:.*
-set check range -- Set range checking.*
-set check type -- Set type checking.*
-Type \"help set check\" followed by set check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set check" }
- -re "$prompt $" { fail "help set check" }
- timeout { fail "(timeout) help set check" }
- }
-
-
+gdb_test "help set check" "Set the status of the type/range checker.*\[\r\n\]+List of set check subcommands:.*\[\r\n\]+set check range -- Set range checking.*\[\r\n\]+set check type -- Set type checking.*\[\r\n\]+Type \"help set check\" followed by set check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set check"
# test help set check range
-send "help set check range\n"
-expect {
- -re "Set range checking. .on/warn/off/auto..*$prompt $"\
- { pass "help set check range" }
- -re "$prompt $" { fail "help set check range" }
- timeout { fail "(timeout) help set check range" }
- }
-
-
+gdb_test "help set check range" "Set range checking. .on/warn/off/auto." "help set check range"
# test help set check type
-send "help set check type\n"
-expect {
- -re "Set type checking. .on/warn/off/auto..*$prompt $"\
- { pass "help set check type" }
- -re "$prompt $" { fail "help set check type" }
- timeout { fail "(timeout) help set check type" }
- }
-
-
+gdb_test "help set check type" "Set type checking. .on/warn/off/auto." "help set check type"
# test help set complaints
-send "help set complaints\n"
-expect {
- -re "Set max number of complaints about incorrect symbols..*$prompt $"\
- { pass "help set complaints" }
- -re "$prompt $" { fail "help set complaints" }
- timeout { fail "(timeout) help set complaints" }
- }
-
-
+gdb_test "help set complaints" "Set max number of complaints about incorrect symbols." "help set complaints"
# test help set confirm
-send "help set confirm\n"
-expect {
- -re "Set whether to confirm potentially dangerous operations..*$prompt $"\
- { pass "help set confirm" }
- -re "$prompt $" { fail "help set confirm" }
- timeout { fail "(timeout) help set confirm" }
- }
-
-
+gdb_test "help set confirm" "Set whether to confirm potentially dangerous operations." "help set confirm"
# test help set editing
-send "help set editing\n"
-expect {
- -re "Set editing of command lines as they are typed..*
-Use \"on\" to enable to enable the editing, and \"off\" to disable it..*
-Without an argument, command line editing is enabled. To edit, use.*
-EMACS-like or VI-like commands like control-P or ESC..*$prompt $"\
- { pass "help set editing" }
- -re "$prompt $" { fail "help set editing" }
- timeout { fail "(timeout) help set editing" }
- }
-
-
+gdb_test "help set editing" "Set editing of command lines as they are typed..*\[\r\n\]+Use \"on\" to enable to enable the editing, and \"off\" to disable it..*\[\r\n\]+Without an argument, command line editing is enabled. To edit, use.*\[\r\n\]+EMACS-like or VI-like commands like control-P or ESC." "help set editing"
# test help set environment
-send "help set environment\n"
-expect {
- -re "Set environment variable value to give the program..*
-Arguments are VAR VALUE where VAR is variable name and VALUE is value..*
-VALUES of environment variables are uninterpreted strings..*
-This does not affect the program until the next \"run\" command..*$prompt $"\
- { pass "help set environment" }
- -re "$prompt $" { fail "help set environment" }
- timeout { fail "(timeout) help set environment" }
- }
-
-
+gdb_test "help set environment" "Set environment variable value to give the program..*\[\r\n\]+Arguments are VAR VALUE where VAR is variable name and VALUE is value..*\[\r\n\]+VALUES of environment variables are uninterpreted strings..*\[\r\n\]+This does not affect the program until the next \"run\" command." "help set environment"
# test help set height
-send "help set height\n"
-expect {
- -re "Set number of lines gdb thinks are in a page..*$prompt $"\
- { pass "help set height" }
- -re "$prompt $" { fail "help set height" }
- timeout { fail "(timeout) help set height" }
- }
-
-
+gdb_test "help set height" "Set number of lines gdb thinks are in a page." "help set height"
# test help set history expansion
-send "help set history expansion\n"
-expect {
- -re "Set history expansion on command input..*
-Without an argument, history expansion is enabled..*$prompt $"\
- { pass "help set history expansion" }
- -re "$prompt $" { fail "help set history expansion" }
- timeout { fail "(timeout) help set history expansion" }
- }
-
-
+gdb_test "help set history expansion" "Set history expansion on command input..*\[\r\n\]+Without an argument, history expansion is enabled." "help set history expansion"
# test help set history filename
-send "help set history filename\n"
-expect {
- -re "Set the filename in which to record the command history.*
- .the list of previous commands of which a record is kept...*$prompt $"\
- { pass "help set history filename" }
- -re "$prompt $" { fail "help set history filename" }
- timeout { fail "(timeout) help set history filename" }
- }
-
-
+gdb_test "help set history filename" "Set the filename in which to record the command history.*\[\r\n\]+ .the list of previous commands of which a record is kept.." "help set history filename"
# test help set history save
-send "help set history save\n"
-expect {
- -re "Set saving of the history record on exit..*
-Use \"on\" to enable to enable the saving, and \"off\" to disable it..*
-Without an argument, saving is enabled..*$prompt $"\
- { pass "help set history save" }
- -re "$prompt $" { fail "help set history save" }
- timeout { fail "(timeout) help set history save" }
- }
-
-
+gdb_test "help set history save" "Set saving of the history record on exit..*\[\r\n\]+Use \"on\" to enable to enable the saving, and \"off\" to disable it..*\[\r\n\]+Without an argument, saving is enabled." "help set history save"
# test help set history size
-send "help set history size\n"
-expect {
- -re "Set the size of the command history, .*
-ie. the number of previous commands to keep a record of..*$prompt $"\
- { pass "help set history size" }
- -re "$prompt $" { fail "help set history size" }
- timeout { fail "(timeout) help set history size" }
- }
-
-
+gdb_test "help set history size" "Set the size of the command history, .*\[\r\n\]+ie. the number of previous commands to keep a record of." "help set history size"
# test help set history
-send "help set history\n"
-expect {
- -re "Generic command for setting command history parameters..*
-List of set history subcommands:.*
-set history filename -- Set the filename in which to record the command history.*
-set history size -- Set the size of the command history.*
-set history save -- Set saving of the history record on exit.*
-set history expansion -- Set history expansion on command input.*
-Type \"help set history\" followed by set history subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set history" }
- -re "$prompt $" { fail "help set history" }
- timeout { fail "(timeout) help set history" }
- }
-
-
+gdb_test "help set history" "Generic command for setting command history parameters..*\[\r\n\]+List of set history subcommands:.*\[\r\n\]+set history filename -- Set the filename in which to record the command history.*\[\r\n\]+set history size -- Set the size of the command history.*\[\r\n\]+set history save -- Set saving of the history record on exit.*\[\r\n\]+set history expansion -- Set history expansion on command input.*\[\r\n\]+Type \"help set history\" followed by set history subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set history"
# test help set language
-send "help set language\n"
-expect {
- -re "Set the current source language..*$prompt $"\
- { pass "help set language" }
- -re "$prompt $" { fail "help set language" }
- timeout { fail "(timeout) help set language" }
- }
-
-
+gdb_test "help set language" "Set the current source language." "help set language"
# test help set listsize
-send "help set listsize\n"
-expect {
- -re "Set number of source lines gdb will list by default..*$prompt $"\
- { pass "help set listsize" }
- -re "$prompt $" { fail "help set listsize" }
- timeout { fail "(timeout) help set listsize" }
- }
-
-
+gdb_test "help set listsize" "Set number of source lines gdb will list by default." "help set listsize"
# test help set print "p" abbreviation
# FIXME -- Ultrix hangs randomly on this very long output from gdb and
# continues with its output only if something is sent to gdb.
-# This behaviour throws expect and gdb out of sync, so we better skip this
# test.
# Also, if the system is slow, it may time out because the output is large.
-# Just skip the test rather than bothering with increasing the timeout.
-if 0 then {
-send "help set p\n"
-expect {
- -re ".*
-Generic command for setting how things print..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set print \"p\" abbreviatio" }
- -re "$prompt $" { fail "help set print \"p\" abbreviatio" }
- timeout { fail "(timeout) help set print \"p\" abbreviatio" }
- }
-
+gdb_test "help set p" ".*\[\r\n\]+Generic command for setting how things print..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set print \"p\" abbreviatio"
# test help set print "pr" abbreviation
-send "help set pr\n"
-expect {
- -re ".*
-Generic command for setting how things print..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set print \"pr\" abbreviation" }
- -re "$prompt $" { fail "help set print \"pr\" abbreviation" }
- timeout { fail "(timeout) help set print \"pr\" abbreviation" }
- }
-
-
+gdb_test "help set pr" ".*\[\r\n\]+Generic command for setting how things print..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set print \"pr\" abbreviation"
# test help set print
-send "help set print\n"
-expect {
- -re ".*
-Generic command for setting how things print..*
-List of set print subcommands:.*
-Type \"help set print\" followed by set print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help set print" }
- -re "$prompt $" { fail "help set print" }
- timeout { fail "(timeout) help set print" }
- }
-}
-
+gdb_test "help set print" ".*\[\r\n\]+Generic command for setting how things print..*\[\r\n\]+List of set print subcommands:.*\[\r\n\]+Type \"help set print\" followed by set print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help set print"
# test help set print address
-send "help set print address\n"
-expect {
- -re "Set printing of addresses..*$prompt $"\
- { pass "help set print address" }
- -re "$prompt $" { fail "help set print address" }
- timeout { fail "(timeout) help set print address" }
- }
-
-
+gdb_test "help set print address" "Set printing of addresses." "help set print address"
# test help set print array
-send "help set print array\n"
-expect {
- -re "Set prettyprinting of arrays..*$prompt $"\
- { pass "help set print array" }
- -re "$prompt $" { fail "help set print array" }
- timeout { fail "(timeout) help set print array" }
- }
-
-
+gdb_test "help set print array" "Set prettyprinting of arrays." "help set print array"
# test help set print asm-demangle
-send "help set print asm-demangle\n"
-expect {
- -re "Set demangling of C\[+\]+ names in disassembly listings..*$prompt $"\
- { pass "help set print asm-demangle" }
- -re "$prompt $" { fail "help set print asm-demangle" }
- timeout { fail "(timeout) help set print asm-demangle" }
- }
-
-
+gdb_test "help set print asm-demangle" "Set demangling of C\[+\]+ names in disassembly listings." "help set print asm-demangle"
# test help set print demangle
-send "help set print demangle\n"
-expect {
- -re "Set demangling of encoded C\[+\]+ names when displaying symbols..*$prompt $"\
- { pass "help set print demangle" }
- -re "$prompt $" { fail "help set print demangle" }
- timeout { fail "(timeout) help set print demangle" }
- }
-
-
+gdb_test "help set print demangle" "Set demangling of encoded C\[+\]+ names when displaying symbols." "help set print demangle"
# test help set print elements
-send "help set print elements\n"
-expect {
- -re "Set limit on string chars or array elements to print..*
-\"set print elements 0\" causes there to be no limit..*$prompt $"\
- { pass "help set print elements" }
- -re "$prompt $" { fail "help set print elements" }
- timeout { fail "(timeout) help set print elements" }
- }
-
-
+gdb_test "help set print elements" "Set limit on string chars or array elements to print..*\[\r\n\]+\"set print elements 0\" causes there to be no limit." "help set print elements"
# test help set print object
-send "help set print object\n"
-expect {
- -re "Set printing of object's derived type based on vtable info..*$prompt $"\
- { pass "help set print object" }
- -re "$prompt $" { fail "help set print object" }
- timeout { fail "(timeout) help set print object" }
- }
-
-
+gdb_test "help set print object" "Set printing of object's derived type based on vtable info." "help set print object"
# test help set print pretty
-send "help set print pretty\n"
-expect {
- -re "Set prettyprinting of structures..*$prompt $"\
- { pass "help set print pretty" }
- -re "$prompt $" { fail "help set print pretty" }
- timeout { fail "(timeout) help set print pretty" }
- }
-
-
+gdb_test "help set print pretty" "Set prettyprinting of structures." "help set print pretty"
# test help set print sevenbit-strings
-send "help set print sevenbit-strings\n"
-expect {
- -re "Set printing of 8-bit characters in strings as .nnn..*$prompt $"\
- { pass "help set print sevenbit-strings" }
- -re "$prompt $" { fail "help set print sevenbit-strings" }
- timeout { fail "(timeout) help set print sevenbit-strings" }
- }
-
-
+gdb_test "help set print sevenbit-strings" "Set printing of 8-bit characters in strings as .nnn." "help set print sevenbit-strings"
# test help set print union
-send "help set print union\n"
-expect {
- -re "Set printing of unions interior to structures..*$prompt $"\
- { pass "help set print union" }
- -re "$prompt $" { fail "help set print union" }
- timeout { fail "(timeout) help set print union" }
- }
-
-
+gdb_test "help set print union" "Set printing of unions interior to structures." "help set print union"
# test help set print vtbl
-send "help set print vtbl\n"
-expect {
- -re "Set printing of C\[+\]+ virtual function tables..*$prompt $"\
- { pass "help set print vtbl" }
- -re "$prompt $" { fail "help set print vtbl" }
- timeout { fail "(timeout) help set print vtbl" }
- }
-
-
+gdb_test "help set print vtbl" "Set printing of C\[+\]+ virtual function tables." "help set print vtbl"
# test help set prompt
-send "help set prompt\n"
-expect {
- -re "Set gdb's prompt.*$prompt $"\
- { pass "help set prompt" }
- -re "$prompt $" { fail "help set prompt" }
- timeout { fail "(timeout) help set prompt" }
- }
-
-
+gdb_test "help set prompt" "Set gdb's prompt" "help set prompt"
# test help set radix
-send "help set radix\n"
-expect {
- -re "Set default input and output number radices.*
-Use \'set input-radix\' or \'set output-radix\' to independently set each..*
-Without an argument, sets both radices back to the default value of 10..*
-.*$prompt $"\
- { pass "help set radix" }
- -re "Set default input and output number radix..*$prompt $"\
- { fail "help set radix (obsolete radix support)" }
- -re "$prompt $" { fail "help set radix" }
- timeout { fail "(timeout) help set radix" }
- }
-
-
+gdb_test "help set radix" "Set default input and output number radices.*\[\r\n\]+Use \'set input-radix\' or \'set output-radix\' to independently set each..*\[\r\n\]+Without an argument, sets both radices back to the default value of 10..*\[\r\n\]+" "help set radix"
# test help set symbol-reloading
-send "help set symbol-reloading\n"
-expect {
- -re "Set dynamic symbol table reloading multiple times in one run..*$prompt $"\
- { pass "help set symbol-reloading" }
- -re "$prompt $" { fail "help set symbol-reloading" }
- timeout { fail "(timeout) help set symbol-reloading" }
- }
-
-
+gdb_test "help set symbol-reloading" "Set dynamic symbol table reloading multiple times in one run." "help set symbol-reloading"
# test help set variable
-send "help set variable\n"
-expect {
- -re ".*
-Evaluate expression EXP and assign result to variable VAR, using assignment.*
-syntax appropriate for the current language .VAR = EXP or VAR := EXP for.*
-example.. VAR may be a debugger \"convenience\" variable .names starting.*
-with \\\$., a register .a few standard names starting with \\\$., or an actual.*
-variable in the program being debugged. EXP is any valid expression.*
-This may usually be abbreviated to simply \"set\"..*$prompt $"\
- { pass "help set variable" }
- -re "$prompt $" { fail "help set variable" }
- timeout { fail "(timeout) help set variable" }
- }
-
-
+gdb_test "help set variable" ".*\[\r\n\]+Evaluate expression EXP and assign result to variable VAR, using assignment.*\[\r\n\]+syntax appropriate for the current language .VAR = EXP or VAR := EXP for.*\[\r\n\]+example.. VAR may be a debugger \"convenience\" variable .names starting.*\[\r\n\]+with \\\$., a register .a few standard names starting with \\\$., or an actual.*\[\r\n\]+variable in the program being debugged. EXP is any valid expression.*\[\r\n\]+This may usually be abbreviated to simply \"set\"." "help set variable"
# test help set verbose
-send "help set verbose\n"
-expect {
- -re "Set verbosity..*$prompt $"\
- { pass "help set verbose" }
- -re "Set verbose printing of informational messages.*$prompt $"\
- { pass "help set verbose. FIXME" }
- -re "$prompt $" { fail "help set verbose" }
- timeout { fail "(timeout) help set verbose" }
- }
-
-
+gdb_test "help set verbose" "Set verbosity." "help set verbose"
#test help set width
-send "help set width\n"
-expect {
- -re "Set number of characters gdb thinks are in a line..*$prompt $"\
- { pass "help set width" }
- -re "$prompt $" { fail "help set width" }
- timeout { fail "(timeout) help set width" }
- }
-
-
+gdb_test "help set width" "Set number of characters gdb thinks are in a line." "help set width"
# test help set write
# This is only supported on targets which use exec.o.
-if ![istarget "rs6000-*-*"] then {
- send "help set write\n"
- expect {
- -re "Set writing into executable and core files..*$prompt $"\
- { pass "help set write" }
- -re "$prompt $" { fail "help set write" }
- timeout { fail "(timeout) help set write" }
- }
-}
-
+gdb_test "help set write" "Set writing into executable and core files." "help set write"
# test help set
# FIXME -- Ultrix hangs randomly on this very long output from gdb and
# continues with its output only if something is sent to gdb.
-# This behaviour throws expect and gdb out of sync, so we better skip this
# test.
# Also, if the system is slow, it may time out because the output is large.
-# Just skip the test rather than bothering with increasing the timeout.
-if 0 then {
-if ![istarget "*-*-ultrix*"] then {
- send "help set\n"
- expect {
- -re ".*
-Evaluate expression EXP and assign result to variable VAR, using assignment.*
-syntax appropriate for the current language .VAR = EXP or VAR := EXP for.*
-example.. VAR may be a debugger \"convenience\" variable .names starting.*
-with \\\$., a register .a few standard names starting with \\\$., or an actual.*
-variable in the program being debugged. EXP is any valid expression.*
-set listsize -- Set number of source lines gdb will list by default.*
-Type \"help set\" followed by set subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*
-$prompt $"\
- { pass "help set" }
- -re "$prompt $" { fail "help set" }
- timeout { fail "(timeout) help set" }
- }
-}
-}
-
+gdb_test "help set" ".*\[\r\n\]+Evaluate expression EXP and assign result to variable VAR, using assignment.*\[\r\n\]+syntax appropriate for the current language .VAR = EXP or VAR := EXP for.*\[\r\n\]+example.. VAR may be a debugger \"convenience\" variable .names starting.*\[\r\n\]+with \\\$., a register .a few standard names starting with \\\$., or an actual.*\[\r\n\]+variable in the program being debugged. EXP is any valid expression.*\[\r\n\]+set listsize -- Set number of source lines gdb will list by default.*\[\r\n\]+Type \"help set\" followed by set subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous..*\[\r\n\]+" "help set"
# test help shell
-send "help shell\n"
-expect {
- -re "Execute the rest of the line as a shell command. .*
-With no arguments, run an inferior shell..*$prompt $"\
- { pass "help shell" }
- -re "$prompt $" { fail "help shell" }
- timeout { fail "(timeout) help shell" }
- }
-
-
+gdb_test "help shell" "Execute the rest of the line as a shell command. .*\[\r\n\]+With no arguments, run an inferior shell." "help shell"
+#test help show annotate
+gdb_test "help show annotate" "Show annotation_level.*\[\r\n\]+0 == normal; 1 == fullname \\(for use when running under emacs\\).*\[\r\n\]+2 == output annotated suitably for use by programs that control GDB." "help show annotate"
# test help show args
-send "help show args\n"
-expect {
- -re "Show arguments to give program being debugged when it is started..*
-Follow this command with any number of args, to be passed to the program..*$prompt $"\
- { pass "help show args" }
- -re "$prompt $" { fail "help show args" }
- timeout { fail "(timeout) help show args" }
- }
-
-
+gdb_test "help show args" "Show arguments to give program being debugged when it is started..*\[\r\n\]+Follow this command with any number of args, to be passed to the program." -re "Show arguments to give program being debugged when it is started..*\[\r\n\]+Follow this command with any number of args, to be passed to the program..*$prompt $"
+gdb_test "help show args"
# test help show check "c" abbreviation
-send "help show c\n"
-expect {
- -re "Show the status of the type/range checker.*
-List of show check subcommands:.*
-show check range -- Show range checking.*
-show check type -- Show type checking.*
-Type \"help show check\" followed by show check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show check \"c\" abbreviation" }
- -re "$prompt $" { fail "help show check \"c\" abbreviation" }
- timeout { fail "(timeout) help show check \"c\" abbreviation" }
- }
-
-
+gdb_test "help show c" "Show the status of the type/range checker.*\[\r\n\]+List of show check subcommands:.*\[\r\n\]+show check range -- Show range checking.*\[\r\n\]+show check type -- Show type checking.*\[\r\n\]+Type \"help show check\" followed by show check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show check \"c\" abbreviation"
# test help show check
-send "help show check\n"
-expect {
- -re "Show the status of the type/range checker.*
-List of show check subcommands:.*
-show check range -- Show range checking.*
-show check type -- Show type checking.*
-Type \"help show check\" followed by show check subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show check" }
- -re "$prompt $" { fail "help show check" }
- timeout { fail "(timeout) help show check" }
- }
-
-
+gdb_test "help show check" "Show the status of the type/range checker.*\[\r\n\]+List of show check subcommands:.*\[\r\n\]+show check range -- Show range checking.*\[\r\n\]+show check type -- Show type checking.*\[\r\n\]+Type \"help show check\" followed by show check subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show check"
# test help show check range
-send "help show check range\n"
-expect {
- -re "Show range checking. .on/warn/off/auto..*$prompt $"\
- { pass "help show check range" }
- -re "$prompt $" { fail "help show check range" }
- timeout { fail "(timeout) help show check range" }
- }
-
-
+gdb_test "help show check range" "Show range checking. .on/warn/off/auto." "help show check range"
# test help show check type
-send "help show check type\n"
-expect {
- -re "Show type checking. .on/warn/off/auto..*$prompt $"\
- { pass "help show check type" }
- -re "$prompt $" { fail "help show check type" }
- timeout { fail "(timeout) help show check type" }
- }
-
-
+gdb_test "help show check type" "Show type checking. .on/warn/off/auto." "help show check type"
# test help show commands
-send "help show commands\n"
-expect {
- -re "Show the the history of commands you typed..*
-You can supply a command number to start with, or a `\[+\]' to start after.*
-the previous command number shown..*$prompt $"\
- { pass "help show commands" }
- -re "$prompt $" { fail "help show commands" }
- timeout { fail "(timeout) help show commands" }
- }
-
-
+gdb_test "help show commands" "Show the history of commands you typed..*\[\r\n\]+You can supply a command number to start with, or a `\[+\]' to start after.*\[\r\n\]+the previous command number shown." "help show commands"
# test help show complaints
-send "help show complaints\n"
-expect {
- -re "Show max number of complaints about incorrect symbols..*$prompt $"\
- { pass "help show complaints" }
- -re "$prompt $" { fail "help show complaints" }
- timeout { fail "(timeout) help show complaints" }
- }
-
-
+gdb_test "help show complaints" "Show max number of complaints about incorrect symbols." "help show complaints"
# test help show confirm
-send "help show confirm\n"
-expect {
- -re "Show whether to confirm potentially dangerous operations..*$prompt $"\
- { pass "help show confirm" }
- -re "$prompt $" { fail "help show confirm" }
- timeout { fail "(timeout) help show confirm" }
- }
-
-
+gdb_test "help show confirm" "Show whether to confirm potentially dangerous operations." "help show confirm"
# test help show convenience
-send "help show convenience\n"
-expect {
- -re "Debugger convenience .\".foo\". variables..*
-These variables are created when you assign them values;.*
-thus, \"print .foo=1\" gives \".foo\" the value 1. Values may be any type..*
-A few convenience variables are given values automatically:.*
-\"._\"holds the last address examined with \"x\" or \"info lines\",.*
-\".__\" holds the contents of the last address examined with \"x\"..*$prompt $"\
- { pass "help show convenience" }
- -re "$prompt $" { fail "help show convenience" }
- timeout { fail "(timeout) help show convenience" }
- }
-
-
+gdb_test "help show convenience" "Debugger convenience .\".foo\". variables..*\[\r\n\]+These variables are created when you assign them values;.*\[\r\n\]+thus, \"print .foo=1\" gives \".foo\" the value 1. Values may be any type..*\[\r\n\]+A few convenience variables are given values automatically:.*\[\r\n\]+\"._\"holds the last address examined with \"x\" or \"info lines\",.*\[\r\n\]+\".__\" holds the contents of the last address examined with \"x\"." "help show convenience"
# test help show directories
-send "help show directories\n"
-expect {
- -re "Current search path for finding source files..*
-.cwd in the path means the current working directory..*
-.cdir in the path means the compilation directory of the source file..*$prompt $"\
- { pass "help show directories" }
- -re "$prompt $" { fail "help show directories" }
- timeout { fail "(timeout) help show directories" }
- }
-
-
+gdb_test "help show directories" "Current search path for finding source files..*\[\r\n\]+.cwd in the path means the current working directory..*\[\r\n\]+.cdir in the path means the compilation directory of the source file." "help show directories"
# test help show editing
-send "help show editing\n"
-expect {
- -re "Show editing of command lines as they are typed..*
-Use \"on\" to enable to enable the editing, and \"off\" to disable it..*
-Without an argument, command line editing is enabled. To edit, use.*
-EMACS-like or VI-like commands like control-P or ESC..*$prompt $"\
- { pass "help show editing" }
- -re "$prompt $" { fail "help show editing" }
- timeout { fail "(timeout) help show editing" }
- }
-
-
+gdb_test "help show editing" "Show editing of command lines as they are typed..*\[\r\n\]+Use \"on\" to enable to enable the editing, and \"off\" to disable it..*\[\r\n\]+Without an argument, command line editing is enabled. To edit, use.*\[\r\n\]+EMACS-like or VI-like commands like control-P or ESC." "help show editing"
# test help show environment
-send "help show environment\n"
-expect {
- -re "The environment to give the program, or one variable's value..*
-With an argument VAR, prints the value of environment variable VAR to.*
-give the program being debugged. With no arguments, prints the entire.*
-environment to be given to the program..*$prompt $"\
- { pass "help show environment" }
- -re "$prompt $" { fail "help show environment" }
- timeout { fail "(timeout) help show environment" }
- }
-
-
+gdb_test "help show environment" "The environment to give the program, or one variable's value..*\[\r\n\]+With an argument VAR, prints the value of environment variable VAR to.*\[\r\n\]+give the program being debugged. With no arguments, prints the entire.*\[\r\n\]+environment to be given to the program." "help show environment"
# test help show height
-send "help show height\n"
-expect {
- -re "Show number of lines gdb thinks are in a page..*$prompt $"\
- { pass "help show height" }
- -re "$prompt $" { fail "help show height" }
- timeout { fail "(timeout) help show height" }
- }
-
-
+gdb_test "help show height" "Show number of lines gdb thinks are in a page." "help show height"
# test help show history expansion
-send "help show history expansion\n"
-expect {
- -re "Show history expansion on command input..*
-Without an argument, history expansion is enabled..*$prompt $"\
- { pass "help show history expansion" }
- -re "$prompt $" { fail "help show history expansion" }
- timeout { fail "(timeout) help show history expansion" }
- }
-
-
+gdb_test "help show history expansion" "Show history expansion on command input..*\[\r\n\]+Without an argument, history expansion is enabled." "help show history expansion"
# test help show history filename
-send "help show history filename\n"
-expect {
- -re "Show the filename in which to record the command history.*
- .the list of previous commands of which a record is kept...*$prompt $"\
- { pass "help show history filename" }
- -re "$prompt $" { fail "help show history filename" }
- timeout { fail "(timeout) help show history filename" }
- }
-
-
+gdb_test "help show history filename" "Show the filename in which to record the command history.*\[\r\n\]+ .the list of previous commands of which a record is kept.." "help show history filename"
# test help show history save
-send "help show history save\n"
-expect {
- -re "Show saving of the history record on exit..*
-Use \"on\" to enable to enable the saving, and \"off\" to disable it..*
-Without an argument, saving is enabled..*$prompt $"\
- { pass "help show history save" }
- -re "$prompt $" { fail "help show history save" }
- timeout { fail "(timeout) help show history save" }
- }
-
-
+gdb_test "help show history save" "Show saving of the history record on exit..*\[\r\n\]+Use \"on\" to enable to enable the saving, and \"off\" to disable it..*\[\r\n\]+Without an argument, saving is enabled." "help show history save"
# test help show history size
-send "help show history size\n"
-expect {
- -re "Show the size of the command history, .*
-ie. the number of previous commands to keep a record of..*$prompt $"\
- { pass "help show history size" }
- -re "$prompt $" { fail "help show history size" }
- timeout { fail "(timeout) help show history size" }
- }
-
-
+gdb_test "help show history size" "Show the size of the command history, .*\[\r\n\]+ie. the number of previous commands to keep a record of." "help show history size"
# test help show history
-send "help show history\n"
-expect {
- -re "Generic command for showing command history parameters..*
-List of show history subcommands:.*
-show history filename -- Show the filename in which to record the command history.*
-show history size -- Show the size of the command history.*
-show history save -- Show saving of the history record on exit.*
-show history expansion -- Show history expansion on command input.*
-Type \"help show history\" followed by show history subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show history" }
- -re "$prompt $" { fail "help show history" }
- timeout { fail "(timeout) help show history" }
- }
-
-
+gdb_test "help show history" "Generic command for showing command history parameters..*\[\r\n\]+List of show history subcommands:.*\[\r\n\]+show history filename -- Show the filename in which to record the command history.*\[\r\n\]+show history size -- Show the size of the command history.*\[\r\n\]+show history save -- Show saving of the history record on exit.*\[\r\n\]+show history expansion -- Show history expansion on command input.*\[\r\n\]+Type \"help show history\" followed by show history subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show history"
# test help show language
-send "help show language\n"
-expect {
- -re "Show the current source language..*$prompt $"\
- { pass "help show language" }
- -re "$prompt $" { fail "help show language" }
- timeout { fail "(timeout) help show language" }
- }
-
-
+gdb_test "help show language" "Show the current source language." "help show language"
# test help show listsize
-send "help show listsize\n"
-expect {
- -re "Show number of source lines gdb will list by default..*$prompt $"\
- { pass "help show listsize" }
- -re "$prompt $" { fail "help show listsize" }
- timeout { fail "(timeout) help show listsize" }
- }
-
-
+gdb_test "help show listsize" "Show number of source lines gdb will list by default." "help show listsize"
# test help show print "p" abbreviation
-send "help show p\n"
-expect {
- -re "Generic command for showing print settings..*
-List of show print subcommands:.*
-Type \"help show print\" followed by show print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show print \"p\" abbreviation" }
- -re "$prompt $" { fail "help show print \"p\" abbreviation" }
- timeout { fail "(timeout) help show print \"p\" abbreviation" }
- }
-
-
+gdb_test "help show p" "Generic command for showing print settings..*\[\r\n\]+List of show print subcommands:.*\[\r\n\]+Type \"help show print\" followed by show print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show print \"p\" abbreviation"
# test help show print "pr" abbreviation
-send "help show pr\n"
-expect {
- -re "Generic command for showing print settings..*
-List of show print subcommands:.*
-Type \"help show print\" followed by show print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show print \"pr\" abbreviation" }
- -re "$prompt $" { fail "help show print \"pr\" abbreviation" }
- timeout { fail "(timeout) help show print \"pr\" abbreviation" }
- }
-
-
+gdb_test "help show pr" "Generic command for showing print settings..*\[\r\n\]+List of show print subcommands:.*\[\r\n\]+Type \"help show print\" followed by show print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show print \"pr\" abbreviation"
# test help show print
-send "help show print\n"
-expect {
- -re "Generic command for showing print settings..*
-List of show print subcommands:.*
-Type \"help show print\" followed by show print subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show print" }
- -re "$prompt $" { fail "help show print" }
- timeout { fail "(timeout) help show print" }
- }
-
-
+gdb_test "help show print" "Generic command for showing print settings..*\[\r\n\]+List of show print subcommands:.*\[\r\n\]+Type \"help show print\" followed by show print subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show print"
# test help show paths
-send "help show paths\n"
-expect {
- -re "Current search path for finding object files..*
-.cwd in the path means the current working directory..*
-This path is equivalent to the .PATH shell variable. It is a list of.*
-directories, separated by colons. These directories are searched to find.*
-fully linked executable files and separately compiled object files as needed..*$prompt $"\
- { pass "help show paths" }
- -re "$prompt $" { fail "help show paths" }
- timeout { fail "(timeout) help show paths" }
- }
-
-
+gdb_test "help show paths" "Current search path for finding object files..*\[\r\n\]+.cwd in the path means the current working directory..*\[\r\n\]+This path is equivalent to the .PATH shell variable. It is a list of.*\[\r\n\]+directories, separated by colons. These directories are searched to find.*\[\r\n\]+fully linked executable files and separately compiled object files as needed." "help show paths"
# test help show print address
-send "help show print address\n"
-expect {
- -re "Show printing of addresses..*$prompt $"\
- { pass "help show print address" }
- -re "$prompt $" { fail "help show print address" }
- timeout { fail "(timeout) help show print address" }
- }
-
-
+gdb_test "help show print address" "Show printing of addresses." "help show print address"
# test help show print array
-send "help show print array\n"
-expect {
- -re "Show prettyprinting of arrays..*$prompt $"\
- { pass "help show print array" }
- -re "$prompt $" { fail "help show print array" }
- timeout { fail "(timeout) help show print array" }
- }
-
-
+gdb_test "help show print array" "Show prettyprinting of arrays." "help show print array"
# test help show print asm-demangle
-send "help show print asm-demangle\n"
-expect {
- -re "Show demangling of C\[+\]+ names in disassembly listings..*$prompt $"\
- { pass "help show print asm-demangle" }
- -re "$prompt $" { fail "help show print asm-demangle" }
- timeout { fail "(timeout) help show print asm-demangle" }
- }
-
-
+gdb_test "help show print asm-demangle" "Show demangling of C\[+\]+ names in disassembly listings." "help show print asm-demangle"
# test help show print demangle
-send "help show print demangle\n"
-expect {
- -re "Show demangling of encoded C\[+\]+ names when displaying symbols..*$prompt $"\
- { pass "help show print demangle" }
- -re "$prompt $" { fail "help show print demangle" }
- timeout { fail "(timeout) help show print demangle" }
- }
-
-
+gdb_test "help show print demangle" "Show demangling of encoded C\[+\]+ names when displaying symbols." "help show print demangle"
# test help show print elements
-send "help show print elements\n"
-expect {
- -re "Show limit on string chars or array elements to print..*
-\"set print elements 0\" causes there to be no limit..*$prompt $"\
- { pass "help show print elements" }
- -re "$prompt $" { fail "help show print elements" }
- timeout { fail "(timeout) help show print elements" }
- }
-
-
+gdb_test "help show print elements" "Show limit on string chars or array elements to print..*\[\r\n\]+\"set print elements 0\" causes there to be no limit." "help show print elements"
# test help show print object
-send "help show print object\n"
-expect {
- -re "Show printing of object's derived type based on vtable info..*$prompt $"\
- { pass "help show print object" }
- -re "$prompt $" { fail "help show print object" }
- timeout { fail "(timeout) help show print object" }
- }
-
-
+gdb_test "help show print object" "Show printing of object's derived type based on vtable info." "help show print object"
# test help show print pretty
-send "help show print pretty\n"
-expect {
- -re "Show prettyprinting of structures..*$prompt $"\
- { pass "help show print pretty" }
- -re "$prompt $" { fail "help show print pretty" }
- timeout { fail "(timeout) help show print pretty" }
- }
-
-
+gdb_test "help show print pretty" "Show prettyprinting of structures." "help show print pretty"
# test help show print sevenbit-strings
-send "help show print sevenbit-strings\n"
-expect {
- -re "Show printing of 8-bit characters in strings as .nnn..*$prompt $"\
- { pass "help show print sevenbit-strings" }
- -re "$prompt $" { fail "help show print sevenbit-strings" }
- timeout { fail "(timeout) help show print sevenbit-strings" }
- }
-
-
+gdb_test "help show print sevenbit-strings" "Show printing of 8-bit characters in strings as .nnn." "help show print sevenbit-strings"
# test help show print union
-send "help show print union\n"
-expect {
- -re "Show printing of unions interior to structures..*$prompt $"\
- { pass "help show print union" }
- -re "$prompt $" { fail "help show print union" }
- timeout { fail "(timeout) help show print union" }
- }
-
-
+gdb_test "help show print union" "Show printing of unions interior to structures." "help show print union"
# test help show print vtbl
-send "help show print vtbl\n"
-expect {
- -re "Show printing of C\[+\]+ virtual function tables..*$prompt $"\
- { pass "help show print vtbl" }
- -re "$prompt $" { fail "help show print vtbl" }
- timeout { fail "(timeout) help show print vtbl" }
- }
-
-
+gdb_test "help show print vtbl" "Show printing of C\[+\]+ virtual function tables." "help show print vtbl"
# test help show prompt
-send "help show prompt\n"
-expect {
- -re "Show gdb's prompt.*$prompt $"\
- { pass "help show prompt" }
- -re "$prompt $" { fail "help show prompt" }
- timeout { fail "(timeout) help show prompt" }
- }
-
-
+gdb_test "help show prompt" "Show gdb's prompt" "help show prompt"
# test help show radix
-send "help show radix\n"
-expect {
- -re "Show the default input and output number radices.*
-Use \'show input-radix\' or \'show output-radix\' to independently show each.*
-$prompt $"\
- { pass "help show radix" }
- -re "Show default input and output number radix..*$prompt $"\
- { fail "help show radix (obsolete radix support)" }
- -re "$prompt $" { fail "help show radix" }
- timeout { fail "(timeout) help show radix" }
- }
-
-
+gdb_test "help show radix" "Show the default input and output number radices.*\[\r\n\]+Use \'show input-radix\' or \'show output-radix\' to independently show each.*\[\r\n\]+" "help show radix"
# test help show symbol-reloading
-send "help show symbol-reloading\n"
-expect {
- -re "Show dynamic symbol table reloading multiple times in one run..*$prompt $"\
- { pass "help show symbol-reloading" }
- -re "$prompt $" { fail "help show symbol-reloading" }
- timeout { fail "(timeout) help show symbol-reloading" }
- }
-
-
+gdb_test "help show symbol-reloading" "Show dynamic symbol table reloading multiple times in one run." "help show symbol-reloading"
# test help show user
-send "help show user\n"
-expect {
- -re "Show definitions of user defined commands..*
-Argument is the name of the user defined command..*
-With no argument, show definitions of all user defined commands..*$prompt $"\
- { pass "help show user" }
- -re "$prompt $" { fail "help show user" }
- timeout { fail "(timeout) help show user" }
- }
-
-
+gdb_test "help show user" "Show definitions of user defined commands..*\[\r\n\]+Argument is the name of the user defined command..*\[\r\n\]+With no argument, show definitions of all user defined commands." "help show user"
# test help show values
-send "help show values\n"
-expect {
- -re "Elements of value history around item number IDX .or last ten...*$prompt $"\
- { pass "help show values" }
- -re "$prompt $" { fail "help show values" }
- timeout { fail "(timeout) help show values" }
- }
-
-
+gdb_test "help show values" "Elements of value history around item number IDX .or last ten.." "help show values"
# test help show verbose
-send "help show verbose\n"
-expect {
- -re "Show verbosity..*$prompt $"\
- { pass "help show verbose" }
- -re "Show verbose printing of informational messages..*$prompt $"\
- { pass "help show verbose. FIXME" }
- -re "$prompt $" { fail "help show verbose" }
- timeout { fail "(timeout) help show verbose" }
- }
-
-
+gdb_test "help show verbose" "Show verbosity..*" "help show verbose"
# test help show version
-send "help show version\n"
-expect {
- -re "Show what version of GDB this is..*$prompt $"\
- { pass "help show version" }
- -re "$prompt $" { fail "help show version" }
- timeout { fail "(timeout) help show version" }
- }
-
-
+gdb_test "help show version" "Show what version of GDB this is." "help show version"
# test help show width
-send "help show width\n"
-expect {
- -re "Show number of characters gdb thinks are in a line..*$prompt $"\
- { pass "help show width" }
- -re "$prompt $" { fail "help show width" }
- timeout { fail "(timeout) help show width" }
- }
-
-
+gdb_test "help show width" "Show number of characters gdb thinks are in a line." "help show width"
# test help show write
# This is only supported on targets which use exec.o.
-if ![istarget "rs6000-*-*"] then {
- send "help show write\n"
- expect {
- -re "Show writing into executable and core files..*$prompt $"\
- { pass "help show write" }
- -re "$prompt $" { fail "help show write" }
- timeout { fail "(timeout) help show write" }
- }
-}
-
+gdb_test "help show write" "Show writing into executable and core files." "help show write"
# test help show
-send "help show\n"
-expect {
- -re "Generic command for showing things about the debugger..*
-List of show subcommands:.*
-show listsize -- Show number of source lines gdb will list by default.*
-show directories -- Current search path for finding source files.*
-Type \"help show\" followed by show subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help show" }
- -re "$prompt $" { fail "help show" }
- timeout { fail "(timeout) help show" }
- }
-
-
-
+# If the system is slow, it may time out because the output is large.
+gdb_test "help show" "Generic command for showing things about the debugger..*\[\r\n\]+List of show subcommands:.*\[\r\n\]+show listsize -- Show number of source lines gdb will list by default.*\[\r\n\]+show directories -- Current search path for finding source files.*\[\r\n\]+Type \"help show\" followed by show subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help show"
# test help step
-send "help step\n"
-expect {
- -re "Step program until it reaches a different source line..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help step" }
- -re "$prompt $" { fail "help step" }
- timeout { fail "(timeout) help step" }
- }
-
+gdb_test "help step" "Step program until it reaches a different source line..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help step"
# test help stepi "si" abbreviation
-send "help si\n"
-expect {
- -re "Step one instruction exactly..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help stepi \"si\" abbreviation" }
- -re "$prompt $" { fail "help stepi \"si\" abbreviation" }
- timeout { fail "(timeout) help stepi \"si\" abbreviation" }
- }
-
-
+gdb_test "help si" "Step one instruction exactly..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help stepi \"si\" abbreviation"
# test help stepi
-send "help stepi\n"
-expect {
- -re "Step one instruction exactly..*
-Argument N means do this N times .or till program stops for another reason...*$prompt $"\
- { pass "help stepi" }
- -re "$prompt $" { fail "help stepi" }
- timeout { fail "(timeout) help stepi" }
- }
-
-
+gdb_test "help stepi" "Step one instruction exactly..*\[\r\n\]+Argument N means do this N times .or till program stops for another reason.." "help stepi"
# test help signal
-send "help signal\n"
-expect {
- -re "Continue program giving it signal.*$prompt $"\
- { pass "help signal" }
- -re "$prompt $" { fail "help signal" }
- timeout { fail "(timeout) help signal" }
- }
-
-
+gdb_test "help signal" "Continue program giving it signal.*" "help signal"
# test help source
# vxgdb reads .vxgdbinit
-send "help source\n"
-expect {
- -re "Read commands from a file named FILE..*
-Note that the file \".(vx)?gdbinit\" is read automatically in this way.*
-when gdb is started..*$prompt $"\
- { pass "help source" }
- -re "$prompt $" { fail "help source" }
- timeout { fail "(timeout) help source" }
- }
-
-
+gdb_test "help source" "Read commands from a file named FILE..*\[\r\n\]+Note that the file \"\[^\"\]*\" is read automatically in this way.*\[\r\n\]+when gdb is started." "help source"
# test help stack
-send "help stack\n"
-expect {
- -re "Examining the stack..*
-The stack is made up of stack frames. Gdb assigns numbers to stack frames.*
-counting from zero for the innermost .currently executing. frame..*
-At any time gdb identifies one frame as the \"selected\" frame..*
-Variable lookups are done with respect to the selected frame..*
-When the program being debugged stops, gdb selects the innermost frame..*
-The commands below can be used to select other frames by number or address..*
-List of commands:.*
-bt -- Print backtrace of all stack frames.*
-backtrace -- Print backtrace of all stack frames.*
-select-frame -- Select a stack frame without printing anything.*
-frame -- Select and print a stack frame.*
-down -- Select and print stack frame called by this one.*
-up -- Select and print stack frame that called this one.*
-return -- Make selected stack frame return to its caller.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help stack" }
- -re "$prompt $" { fail "help stack" }
- timeout { fail "(timeout) help stack" }
- }
-
-
+gdb_test "help stack" "Examining the stack..*\[\r\n\]+The stack is made up of stack frames. Gdb assigns numbers to stack frames.*\[\r\n\]+counting from zero for the innermost .currently executing. frame..*\[\r\n\]+At any time gdb identifies one frame as the \"selected\" frame..*\[\r\n\]+Variable lookups are done with respect to the selected frame..*\[\r\n\]+When the program being debugged stops, gdb selects the innermost frame..*\[\r\n\]+The commands below can be used to select other frames by number or address..*\[\r\n\]+List of commands:.*\[\r\n\]+bt -- Print backtrace of all stack frames.*\[\r\n\]+backtrace -- Print backtrace of all stack frames.*\[\r\n\]+select-frame -- Select a stack frame without printing anything.*\[\r\n\]+frame -- Select and print a stack frame.*\[\r\n\]+down -- Select and print stack frame called by this one.*\[\r\n\]+up -- Select and print stack frame that called this one.*\[\r\n\]+return -- Make selected stack frame return to its caller.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help stack"
# test help status
-send "help status\n"
-expect {
- -re "Status inquiries..*
-List of commands:.*
-show -- Generic command for showing things about the debugger.*
-info -- Generic command for showing things about the program being debugged.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help status" }
- -re "$prompt $" { fail "help status" }
- timeout { fail "(timeout) help status" }
- }
-
-
+gdb_test "help status" "Status inquiries..*\[\r\n\]+List of commands:.*\[\r\n\]+show -- Generic command for showing things about the debugger.*\[\r\n\]+info -- Generic command for showing things about the program being debugged.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help status"
# test help support
# FIXME -- Ultrix hangs randomly on this very long output from gdb and
# continues with its output only if something is sent to gdb.
-# This behaviour throws expect and gdb out of sync, so we better skip this
# test.
# Also, if the system is slow, it may time out because the output is large.
-# Just skip the test rather than bothering with increasing the timeout.
-if 0 then {
-send "help support\n"
-expect {
- -re "Support facilities..*
-List of commands:.*
-show confirm -- Show whether to confirm potentially dangerous operations.*
-show history -- Generic command for showing command history parameters.*
-down-silently -- Same as the `down' command.*
-up-silently -- Same as the `up' command.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help support" }
- -re "$prompt $" { fail "help support" }
- timeout { fail "(timeout) help support" }
- }
-}
-
+gdb_test "help support" "Support facilities..*\[\r\n\]+List of commands:.*\[\r\n\]+show confirm -- Show whether to confirm potentially dangerous operations.*\[\r\n\]+show history -- Generic command for showing command history parameters.*\[\r\n\]+down-silently -- Same as the `down' command.*\[\r\n\]+up-silently -- Same as the `up' command.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help support"
# test help symbol-file
-send "help symbol-file\n"
-expect {
- -re "Load symbol table from executable file FILE..*
-The `file' command can also load symbol tables, as well as setting the file.*
-to execute..*$prompt $"\
- { pass "help symbol-file" }
- -re "$prompt $" { fail "help symbol-file" }
- timeout { fail "(timeout) help symbol-file" }
- }
-
-
+gdb_test "help symbol-file" "Load symbol table from executable file FILE..*\[\r\n\]+The `file' command can also load symbol tables, as well as setting the file.*\[\r\n\]+to execute." "help symbol-file"
# test help target child
-send "help target child\n"
-expect {
- -re "Unix child process .started by the \"run\" command...*$prompt $"\
- { pass "help target child (non-procfs version)" }
- -re "Undefined target command: \"child\". Try \"help target\"..*$prompt $"\
- { pass "help target child (procfs version)" }
- -re "$prompt $" { fail "help target child" }
- timeout { fail "(timeout) help target child" }
- }
-
-
+gdb_test "help target child" "Unix child process .started by the \"run\" command..*|Undefined target command: \"child\". Try \"help target\"." "help target child"
# test help target procfs
-send "help target procfs\n"
-expect {
- -re "Unix /proc child process .started by the \"run\" command...*$prompt $"\
- { pass "help target procfs (procfs version)" }
- -re "Undefined target command: \"procfs\". Try \"help target\"..*$prompt $"\
- { pass "help target procfs (non-procfs version)" }
- -re "$prompt $" { fail "help target procfs" }
- timeout { fail "(timeout) help target procfs" }
- }
-
-
+gdb_test "help target procfs" "Unix /proc child process .started by the \"run\" command.*|Undefined target command: \"procfs\". Try \"help target\"." "help target procfs (procfs version)"
# test help target core
-send "help target core\n"
-expect {
- -re "Use a core file as a target. Specify the filename of the core file..*$prompt $"\
- { pass "help target core" }
- -re "Undefined target command: \"core\". Try \"help target\"..*$prompt $"\
- { pass "help target core" }
- -re "$prompt $" { fail "help target core" }
- timeout { fail "(timeout) help target core" }
- }
-
-
+gdb_test "help target core" ".*Use a core file as a target.*Specify the filename of the core file.*|(Undefined target command: \"core\". Try \"help target\".)" "help target core"
# test help target exec
-send "help target exec\n"
-expect {
- -re "Use an executable file as a target..*
-Specify the filename of the executable file..*$prompt $"\
- { pass "help target exec" }
- -re "$prompt $" { fail "help target exec" }
- timeout { fail "(timeout) help target exec" }
- }
-
-
+gdb_test "help target exec" "Use an executable file as a target..*\[\r\n\]+Specify the filename of the executable file." "help target exec"
# test help target remote
-if ![istarget "*-*-udi*"] then {
- send "help target remote\n"
- expect {
- -re "Use a remote computer via a serial line, using a gdb-specific protocol..*
-Specify the serial device it is connected to .e.g. /dev/ttya...*$prompt $"\
- { pass "help target remote" }
- -re "$prompt $" { fail "help target remote" }
- timeout { fail "(timeout) help target remote" }
- }
-}
-
+gdb_test "help target remote" "Use a remote computer via a serial line, using a gdb-specific protocol..*\[\r\n\]+Specify the serial device it is connected to .e.g. /dev/ttya..*" "help target remote"
# test help target
# the child process target may be "target child" or "target procfs"
-send "help target\n"
-expect {
- -re "Connect to a target machine or process..*
-The first argument is the type or protocol of the target machine..*
-Remaining arguments are interpreted by the target protocol. For more.*
-information on the arguments for a particular protocol, type.*
-`help target ' followed by the protocol name..*
-List of target subcommands:.*
-target exec -- Use an executable file as a target.*
-Type \"help target\" followed by target subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help target" }
- -re "$prompt $" { fail "help target" }
- timeout { fail "(timeout) help target" }
- }
-
-
+gdb_test "help target" "Connect to a target machine or process..*\[\r\n\]+The first argument is the type or protocol of the target machine..*\[\r\n\]+Remaining arguments are interpreted by the target protocol. For more.*\[\r\n\]+information on the arguments for a particular protocol, type.*\[\r\n\]+`help target ' followed by the protocol name..*\[\r\n\]+List of target subcommands:.*\[\r\n\]+target exec -- Use an executable file as a target.*\[\r\n\]+Type \"help target\" followed by target subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help target"
# test help tbreak
-send "help tbreak\n"
-expect {
- -re "Set a temporary breakpoint.*$prompt $"\
- { pass "help tbreak" }
- -re "$prompt $" { fail "help tbreak" }
- timeout { fail "(timeout) help tbreak" }
- }
-
-
+gdb_test "help tbreak" "Set a temporary breakpoint.*" "help tbreak"
# test help tty
-send "help tty\n"
-expect {
- -re "Set terminal for future runs of program being debugged..*$prompt $"\
- { pass "help tty" }
- -re "$prompt $" { fail "help tty" }
- timeout { fail "(timeout) help tty" }
- }
-
-
+gdb_test "help tty" "Set terminal for future runs of program being debugged." "help tty"
# test help until "u" abbreviation
-send "help u\n"
-expect {
- -re "Execute until the program reaches a source line greater than the current.*
-or a specified line or address or function .same args as break command...*
-Execution will also stop upon exit from the current stack frame..*$prompt $"\
- { pass "help until \"u\" abbreviation" }
- -re "$prompt $" { fail "help until \"u\" abbreviation" }
- timeout { fail "(timeout) help until \"u\" abbreviation" }
- }
-
-
+gdb_test "help u" "Execute until the program reaches a source line greater than the current.*\[\r\n\]+or a specified line or address or function .same args as break command...*\[\r\n\]+Execution will also stop upon exit from the current stack frame." "help until \"u\" abbreviation"
# test help until
-send "help until\n"
-expect {
- -re "Execute until the program reaches a source line greater than the current.*
-or a specified line or address or function .same args as break command...*
-Execution will also stop upon exit from the current stack frame..*$prompt $"\
- { pass "help until" }
- -re "$prompt $" { fail "help until" }
- timeout { fail "(timeout) help until" }
- }
-
-
+gdb_test "help until" "Execute until the program reaches a source line greater than the current.*\[\r\n\]+or a specified line or address or function .same args as break command...*\[\r\n\]+Execution will also stop upon exit from the current stack frame." "help until"
# test help undisplay
-send "help undisplay\n"
-expect {
- -re "Cancel some expressions to be displayed when program stops..*
-Arguments are the code numbers of the expressions to stop displaying..*
-No argument means cancel all automatic-display expressions..*
-\"delete display\" has the same effect as this command..*
-Do \"info display\" to see current list of code numbers..*$prompt $"\
- { pass "help undisplay" }
- -re "$prompt $" { fail "help undisplay" }
- timeout { fail "(timeout) help undisplay" }
- }
-
-
+gdb_test "help undisplay" "Cancel some expressions to be displayed when program stops..*\[\r\n\]+Arguments are the code numbers of the expressions to stop displaying..*\[\r\n\]+No argument means cancel all automatic-display expressions..*\[\r\n\]+\"delete display\" has the same effect as this command..*\[\r\n\]+Do \"info display\" to see current list of code numbers." "help undisplay"
# test help unset environment
-send "help unset environment\n"
-expect {
- -re "Cancel environment variable VAR for the program..*
-This does not affect the program until the next \"run\" command..*$prompt $"\
- { pass "help unset environment" }
- -re "$prompt $" { fail "help unset environment" }
- timeout { fail "(timeout) help unset environment" }
- }
-
-
+gdb_test "help unset environment" "Cancel environment variable VAR for the program..*\[\r\n\]+This does not affect the program until the next \"run\" command." "help unset environment"
# test help unset
-send "help unset\n"
-expect {
- -re "Complement to certain \"set\" commands.*
-List of unset subcommands:.*
-unset environment -- Cancel environment variable VAR for the program.*
-Type \"help unset\" followed by unset subcommand name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help unset" }
- -re "$prompt $" { fail "help unset" }
- timeout { fail "(timeout) help unset" }
- }
-
-
+gdb_test "help unset" "Complement to certain \"set\" commands.*\[\r\n\]+List of unset subcommands:.*\[\r\n\]+unset environment -- Cancel environment variable VAR for the program.*\[\r\n\]+Type \"help unset\" followed by unset subcommand name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help unset"
# test help up
-send "help up\n"
-expect {
- -re "Select and print stack frame that called this one..*
-An argument says how many frames up to go..*$prompt $"\
- { pass "help up" }
- -re "$prompt $" { fail "help up" }
- timeout { fail "(timeout) help up" }
- }
-
-
+gdb_test "help up" "Select and print stack frame that called this one..*\[\r\n\]+An argument says how many frames up to go." "help up"
# test help up-silently
-send "help up-silently\n"
-expect {
- -re "Same as the `up' command, but does not print anything..*
-This is useful in command scripts..*$prompt $"\
- { pass "help up-silently" }
- -re "$prompt $" { fail "help up-silently" }
- timeout { fail "(timeout) help up-silently" }
- }
-
-
+gdb_test "help up-silently" "Same as the `up' command, but does not print anything..*\[\r\n\]+This is useful in command scripts." "help up-silently"
# test help user-defined
-send "help user-defined\n"
-expect {
- -re "User-defined commands..*
-The commands in this class are those defined by the user..*
-Use the \"define\" command to define a command..*
-List of commands:.*
-Type \"help\" followed by command name for full documentation..*
-Command name abbreviations are allowed if unambiguous..*$prompt $"\
- { pass "help user-defined" }
- -re "$prompt $" { fail "help user-defined" }
- timeout { fail "(timeout) help user-defined" }
- }
-
-
+gdb_test "help user-defined" "User-defined commands..*\[\r\n\]+The commands in this class are those defined by the user..*\[\r\n\]+Use the \"define\" command to define a command..*\[\r\n\]+List of commands:.*\[\r\n\]+Type \"help\" followed by command name for full documentation..*\[\r\n\]+Command name abbreviations are allowed if unambiguous." "help user-defined"
# test help watch
-send "help watch\n"
-expect {
- -re "Set a watchpoint for an expression..*
-A watchpoint stops execution of your program whenever the value of.*
-an expression changes..*$prompt $"\
- { pass "help watch" }
- -re "$prompt $" { fail "help watch" }
- timeout { fail "(timeout) help watch" }
- }
-
-
+gdb_test "help watch" "Set a watchpoint for an expression..*\[\r\n\]+A watchpoint stops execution of your program whenever the value of.*\[\r\n\]+an expression changes." "help watch"
# test help whatis
-send "help whatis\n"
-expect {
- -re "Print data type of expression EXP..*$prompt $"\
- { pass "help whatis" }
- -re "$prompt $" { fail "help whatis" }
- timeout { fail "(timeout) help whatis" }
- }
-
-
+gdb_test "help whatis" "Print data type of expression EXP." "help whatis"
# test help where
-send "help where\n"
-expect {
- -re "Print backtrace of all stack frames, or innermost COUNT frames..*
-With a negative argument, print outermost -COUNT frames..*$prompt $"\
- { pass "help where" }
- -re "$prompt $" { fail "help where" }
- timeout { fail "(timeout) help where" }
- }
-
-
+gdb_test "help where" "Print backtrace of all stack frames, or innermost COUNT frames..*\[\r\n\]+With a negative argument, print outermost -COUNT frames." "help where"
# test help x
-send "help x\n"
-expect {
- -re "Examine memory: x/FMT ADDRESS..*
-ADDRESS is an expression for the memory address to examine..*
-FMT is a repeat count followed by a format letter and a size letter..*
-Defaults for format and size letters are those previously used..*
-Default count is 1. Default address is following last thing printed.*
-with this command or \"print\"..*$prompt $"\
- { pass "help x" }
- -re "$prompt $" { fail "help x" }
- timeout { fail "(timeout) help x" }
- }
-
-
+gdb_test "help x" "Examine memory: x/FMT ADDRESS..*\[\r\n\]+ADDRESS is an expression for the memory address to examine..*\[\r\n\]+FMT is a repeat count followed by a format letter and a size letter..*\[\r\n\]+Defaults for format and size letters are those previously used..*\[\r\n\]+Default count is 1. Default address is following last thing printed.*\[\r\n\]+with this command or \"print\"." "help x"
# test help info bogus-gdb-command
-send "help info bogus-gdb-command\n"
-expect {
- -re "Undefined info command: \"bogus-gdb-command\". Try \"help info\"..*$prompt $"\
- { pass "help info bogus-gdb-command" }
- -re "$prompt $" { fail "help info bogus-gdb-command" }
- timeout { fail "(timeout) help info bogus-gdb-command" }
- }
-
-
+gdb_test "help info bogus-gdb-command" "Undefined info command: \"bogus-gdb-command\". Try \"help info\"." "help info bogus-gdb-command"
# test help gotcha
-send "help gotcha\n"
-expect {
- -re "Undefined command: \"gotcha\". Try \"help\"..*$prompt $"\
- { pass "help gotcha" }
- -re "$prompt $" { fail "help gotcha" }
- timeout { fail "(timeout) help gotcha" }
- }
-
+gdb_test "help gotcha" "Undefined command: \"gotcha\". Try \"help\"." "help gotcha"
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
-if [info exists nointerrupts] {
- if $nointerrupts {
+if [host_info exists name] {
+ if [board_info host exists gdb,nointerrupts] {
verbose "Skipping interrupt.exp because of nointerrupts."
continue
}
set bug_id 0
set testfile interrupt
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-if $noinferiorio {
+if [target_info exists gdb,noinferiorio] {
verbose "Skipping interrupt.exp because of noinferiorio."
return
}
-
+
+gdb_start
+
if ![file exists $binfile] then {
perror "$binfile does not exist."
} else {
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
+ # Hope this is unix :-)
gdb_test "shell stty intr '^C'" "" \
"set interrupt character in interrupt.exp"
if [runto_main] then {
- send "continue\n"
+ send_gdb "continue\n"
expect {
- -re "\r\ntalk to me baby\r\n$" {}
+ -re "\r\ntalk to me baby\r\n$" {
+ pass "child process is alive"
+ }
timeout { fail "run (timeout)" }
eof { fail "run (eof)" }
}
# program's output. Under dejagnu (but not interactively) for
# SunOS4, it only appears once. Don't worry about it, I imagine
# dejagnu has just done something to the tty modes.
- send "a\n"
+ send_gdb "a\n"
expect {
- -re "^a\r\n(|a\r\n)$" {}
+ -re "^a\r\n(|a\r\n)$" {
+ pass "child process ate our char"
+ }
timeout { fail "echo a (timeout)" }
eof { fail "echo a (eof)" }
}
# Wait until the program is in the read system call again.
- exec sleep 2
+ sleep 2
- send "\003"
+ send_gdb "\003"
expect {
-re "Program received signal SIGINT.*$prompt $" {
- pass "send control C"
+ pass "send_gdb control C"
}
- -re ".*$prompt $" { fail "send control C" }
- timeout { fail "send control C (timeout)" }
- eof { fail "send control C (eof)" }
+ -re ".*$prompt $" { fail "send_gdb control C" }
+ timeout { fail "send_gdb control C (timeout)" }
+ eof { fail "send_gdb control C (eof)" }
}
- setup_xfail "i*86-*-linux*"
- send "p func1 ()\n"
+ send_gdb "p func1 ()\n"
expect {
-re " = 4.*$prompt $" { pass "call function when asleep" }
+ -re ".*Program received signal SIGSEGV.*$prompt $" {
+ setup_xfail "i*86-pc-linux*-gnu"
+ fail "child died when we called func1, skipped rest of tests"
+ return
+ }
-re "$prompt $" { fail "call function when asleep (wrong output)" }
default {
# don't use PRSABORT), but apparently also happens on
# other machines as well.
- setup_xfail "sparc-*-solaris2*"
+ setup_xfail "sparc*-*-solaris2*"
setup_xfail "mips-*-ultrix*"
setup_xfail "hppa*-*-*"
setup_xfail "i386*-*-bsd*"
setup_xfail "*-*-hpux*"
setup_xfail "*-*-*lynx*"
fail "call function when asleep (stays asleep)"
- # Send a newline to wake it up
- send "\n"
+ # Send_Gdb a newline to wake it up
+ send_gdb "\n"
gdb_test "" " = 4" "call function after waking it"
}
# eof { fail "call function when asleep (eof)" }
# to wake the program, in which case the program now sends it
# back. We check for it either here or in the next expect
# command, because which one it ends up in is timing dependent.
- send "continue\n"
+ send_gdb "continue\n"
# For some reason, i386-*-sysv4 gdb fails to issue the Continuing
# message, but otherwise appears normal (FIXME).
expect {
-re "^continue\r\nContinuing.\r\n(\r\n|)$" { pass "continue" }
-re "^continue\r\n\r\n" { fail "continue (missing Continuing.)" }
-re "$prompt $" { fail "continue" }
- timeout { fail "continue" }
- eof { fail "continue" }
+ timeout { fail "continue (timeout)" }
+ eof { fail "continue (eof)" }
}
- send "data\n"
+ send_gdb "data\n"
# The optional leading \r\n is in case we sent a newline above
# to wake the program, in which case the program now sends it
# back.
eof { fail "echo data (eof)" }
}
- setup_xfail "i*86-*-linux*"
- send "\004"
+ setup_xfail "i*86-pc-linux*-gnu"
+ send_gdb "\004"
expect {
-re "end of file.*Program exited normally.*$prompt $" {
- pass "send end of file"
+ pass "send_gdb end of file"
}
-re "$prompt $" { fail "send end of file" }
timeout { fail "send end of file (timeout)" }
set testfile langs
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcdir}/${subdir}/langs0.c -g -c -o ${binfile}0.o "] != "" } {
- perror "Couldn't compile langs0.c to object"
- return -1
-}
-if { [compile "${srcdir}/${subdir}/langs1.c -g -c -o ${binfile}1.o "] != "" } {
- perror "Couldn't compile langs1.c to object"
- return -1
-}
-if { [compile "${srcdir}/${subdir}/langs2.c -g -c -o ${binfile}2.o "] != "" } {
- perror "Couldn't compile langs2.c to object"
- return -1
+
+if [is_remote host] {
+ remote_download host ${srcdir}/${subdir}/langs1.f
+ remote_download host ${srcdir}/${subdir}/langs2.cxx
}
-if { [compile "${binfile}0.o ${binfile}1.o ${binfile}2.o -o ${binfile}"] != "" } {
+
+if { [gdb_compile "${srcdir}/${subdir}/langs0.c ${srcdir}/${subdir}/langs1.c ${srcdir}/${subdir}/langs2.c" "${binfile}" executable {debug}] != "" } {
perror "Couldn't link langs."
return -1
}
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${testfile}.ci file"
- return -1
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile}] {
+ return -1;
}
gdb_exit
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
-source ${binfile}.ci
-
gdb_test "b langs0" {Function "langs0" not defined\.} \
"break on nonexistent function in langs.exp"
if $noresults==1 then { return }
- gdb_test "cont" "Program exited normally\\." \
- "continue to exit in langs.exp"
+ if [target_info exists use_gdb_stub] {
+ gdb_test "cont" "Breakpoint .*exit.*" "continue to exit in langs.exp"
+ } else {
+ gdb_test "cont" "Program exited normally\\." \
+ "continue to exit in langs.exp"
+ }
}
return 0
set testfile "list"
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "-g -c ${srcdir}/${subdir}/list0.c"] != "" } {
- perror "Couldn't compile ${testfile}0.c to object"
- return -1
-}
-execute_anywhere "mv list0.o ${binfile}0.o"
-if { [compile "-g -c ${srcdir}/${subdir}/list1.c"] != "" } {
- perror "Couldn't compile ${testfile}1.c to object"
- return -1
-}
-execute_anywhere "mv list1.o ${binfile}1.o"
-if { [compile "${binfile}0.o ${binfile}1.o -o ${binfile}"] != "" } {
- perror "Couldn't link ${testfile}."
+
+# Need to download the header to the host.
+remote_download host ${srcdir}/${subdir}/list0.h list0.h
+
+if { [gdb_compile "${srcdir}/${subdir}/list0.c ${srcdir}/${subdir}/list1.c" ${binfile} executable {debug}] != "" } {
+ perror "Couldn't compile list0.c list1.c to executable ${binfile}"
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci file"
- return -1
+if [get_compiler_info ${binfile}] {
+ return -1;
}
-source ${binfile}.ci
#
# Local utility proc just to set and verify listsize
proc set_listsize { arg } {
global prompt
- send "set listsize $arg\n"
- expect {
- -re "set listsize $arg\[\r\n\]+$prompt $" {}
- -re ".*$prompt $" { fail "setting listsize to $arg" ; return 0 }
- timeout { fail "set listsize to $arg (timeout)" ; return 0 }
+ if [gdb_test "set listsize $arg" "" "setting listsize to $arg"] {
+ return 0;
}
-
- send "show listsize\n"
- expect {
- -re "Number of source lines .* is $arg.\r\n.*$prompt $" {}
- -re ".*$prompt $" { fail "listsize not set to $arg" ; return 0 }
- timeout { fail "show listsize (timeout)" ; return 0 }
+ if { $arg <= 0 } {
+ set arg "unlimited";
+ }
+
+ if [gdb_test "show listsize" "Number of source lines.* is ${arg}.*" "show listsize $arg"] {
+ return 0;
}
return 1
}
# Show default size
- send "show listsize\n"
- expect {
- -re "Number of source lines gdb will list by default is 10.*$prompt $" {
- pass "show default list size"
- }
- -re ".*$prompt $" {
- fail "show default listsize (10)"
- }
- timeout {
- fail "show listsize (timeout)"
- }
- }
+ gdb_test "show listsize" "Number of source lines gdb will list by default is 10.*" "show default list size"
# Show the default lines
# The second case is for optimized code, it is still correct.
# This doesn't work for COFF targets.
setup_xfail "a29k-*-udi"
- send "list\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*10\[ \t\]+x = 0;\r\n$prompt $" {
- pass "list default lines around main"
- }
- -re "2.*11\[ \t\]+foo .x\[+)\]+;\r\n$prompt $" {
- pass "list default lines around main"
- }
- -re ".*$prompt $" {
- fail "list default lines around main"
- }
- timeout {
- fail "list default lines around main (timeout)"
- }
- }
+ gdb_test "list" "(1\[ \t\]+#include \"list0.h\".*10\[ \t\]+x = 0;|2.*11\[ \t\]+foo .x\[+)\]+;)" "list default lines around main"
# Ensure we can limit printouts to one line
if [ set_listsize 1 ] then {
setup_xfail "*-*-*"
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\"\r\n$prompt $" {
- pass "list line 1 with listsize 1"
- }
- -re "list 1\r\n$prompt $" {
- fail "list line 1 with listsize 1"
- }
- -re ".*$prompt $" {
- fail "list line 1 with listsize 1"
- }
- timeout {
- fail "list line 1 with listsize 1 (timeout)"
- }
- }
-
+ gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"" "list line 1 with listsize 1"
setup_xfail "*-*-*"
- send "list 2\n"
- expect {
- -re "2\[ \t\]+\r\n$prompt $" {
- pass "list line 2 with listsize 1"
- }
- -re "list 2\r\n$prompt $" {
- fail "list line 2 with listsize 1"
- }
- -re ".*$prompt $" {
- fail "list line 2 with listsize 1"
- }
- timeout {
- fail "list line 2 with listsize 1 (timeout)"
- }
- }
+ gdb_test "list 2" "2\[ \t\]+" "list line 2 with listsize 1"
}
# Try just two lines
- if [ set_listsize 2 ] then {
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\"\r\n$prompt $" {
- pass "list line 1 with listsize 2"
- }
- -re ".*$prompt $" {
- fail "list line 1 with listsize 2"
- }
- timeout {
- fail "list line 1 with listsize 2 (timeout)"
- }
- }
-
- send "list 2\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+\r\n$prompt $" {
- pass "list line 2 with listsize 2"
- }
- -re ".*$prompt $" {
- fail "list line 2 with listsize 2"
- }
- timeout {
- fail "list line 2 with listsize 2 (timeout)"
- }
- }
-
- send "list 3\n"
- expect {
- -re "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+\r\n$prompt $" {
- pass "list line 3 with listsize 2"
- }
- -re ".*$prompt $" {
- fail "list line 3 with listsize 2"
- }
- timeout {
- fail "list line 3 with listsize 2 (timeout)"
- }
- }
- }
+ if [ set_listsize 2 ] {
+ gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"" "list line 1 with listsize 2"
+ gdb_test "list 2" "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+" "list line 2 with listsize 2"
+ gdb_test "list 3" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+" "list line 3 with listsize 2"
+ }
# Try small listsize > 1 that is an odd number
-
- if [ set_listsize 3 ] then {
+
+ if [ set_listsize 3 ] {
setup_xfail "*-*-*"
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\"2\[ \t\]+\r\n$prompt $" {
- pass "list line 1 with listsize 3"
- }
- -re "1\[ \t\]+#include \"list0.h\"\r\n$prompt $" {
- fail "list line 1 with listsize 3"
- }
- -re ".*$prompt $" {
- fail "list line 1 with listsize 3"
- }
- timeout {
- fail "list line 1 with listsize 3 (timeout)"
- }
- }
-
+ gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"2\[ \t\]+" "list line 1 with listsize 3"
setup_xfail "*-*-*"
- send "list 2\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+\r\n$prompt $" {
- pass "list line 2 with listsize 3"
- }
- -re "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+\r\n$prompt $" {
- fail "list line 2 with listsize 3"
- }
- -re ".*$prompt $" {
- fail "list line 2 with listsize 3"
- }
- timeout {
- fail "list line 2 with listsize 3 (timeout)"
- }
- }
+ gdb_test "list 2" "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+" "list line 2 with listsize 3"
setup_xfail "*-*-*"
- send "list 3\n"
- expect {
- -re "2\[ \t\]+\r\n3\[ \t\]+main \[(\]+\[)\]+\r\n4\[ \t\]+\{\r\n$prompt $" {
- pass "list line 3 with listsize 3"
- }
- -re "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+\r\n$prompt $" {
- fail "list line 3 with listsize 3"
- }
- -re ".*$prompt $" {
- fail "list line 3 with listsize 3"
- }
- timeout {
- fail "list line 3 with listsize 3 (timeout)"
- }
- }
+ gdb_test "list 3" "2\[ \t\]+\r\n3\[ \t\]+main \[(\]+\[)\]+\r\n4\[ \t\]+\{" "list line 3 with listsize 3"
}
# Try small listsize > 2 that is an even number.
if [ set_listsize 4 ] then {
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+\r\n$prompt $" {
- pass "list line 1 with listsize 4"
- }
- -re ".*$prompt $" {
- fail "list line 1 with listsize 4"
- }
- timeout {
- fail "list line 1 with listsize 4 (timeout)"
- }
- }
-
- send "list 2\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+\r\n$prompt $" {
- pass "list line 2 with listsize 4"
- }
- -re ".*$prompt $" {
- fail "list line 2 with listsize 4"
- }
- timeout {
- fail "list line 2 with listsize 4 (timeout)"
- }
- }
+ gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+" "list line 1 with listsize 4"
+ gdb_test "list 2" "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+" "list line 2 with listsize 4"
- send "list 3\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*4\[ \t\]+\{\r\n$prompt $" {
- pass "list line 3 with listsize 4"
- }
- -re ".*$prompt $" {
- fail "list line 3 with listsize 4"
- }
- timeout {
- fail "list line 3 with listsize 4 (timeout)"
- }
- }
-
- send "list 4\n"
- expect {
- -re "2\[ \t\]+\r\n.*5\[ \t\]+int x;\r\n$prompt $" {
- pass "list line 4 with listsize 4"
- }
- -re ".*$prompt $" {
- fail "list line 4 with listsize 4"
- }
- timeout {
- fail "list line 4 with listsize 4 (timeout)"
- }
- }
+ gdb_test "list 3" "1\[ \t\]+#include \"list0.h\".*4\[ \t\]+\{" "list line 3 with listsize 4"
+ gdb_test "list 4" "2\[ \t\]+\r\n.*5\[ \t\]+int x;.*" "list line 4 with listsize 4"
}
# Try a size larger than the entire file.
if [ set_listsize 100 ] then {
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}\r\n$prompt $" {
- pass "list line 1 with listsize 100"
- }
- -re ".*$prompt $" {
- fail "list line 1 with listsize 100"
- }
- timeout {
- fail "list line 1 with listsize 100 (timeout)"
- }
- }
+ gdb_test "list 1" "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}" "list line 1 with listsize 100"
- send "list 10\n"
- expect {
- -re "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}\r\n$prompt $" {
- pass "list line 10 with listsize 100"
- }
- -re ".*$prompt $" {
- fail "list line 10 with listsize 100"
- }
- timeout {
- fail "list line 10 with listsize 100 (timeout)"
- }
- }
+ gdb_test "list 10" "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}" "list line 10 with listsize 100"
}
# Try listsize of 0 which suppresses printing.
- send "set listsize 0\n"
- expect {
- -re "set listsize 0\[\r\n\]+$prompt $" {
- setup_xfail "*-*-*"
- send "show listsize\n"
- expect {
- -re "Number of source lines .* is 0.\r\n.*$prompt $" {
- pass "listsize of 0 displays as 0"
- }
- -re "Number of source lines .* is unlimited.\r\n.*$prompt $" {
- fail "listsize of 0 displays as unlimited"
- }
- -re ".*$prompt $" {
- fail "listsize not set to unlimited (0)"
- }
- timeout {
- fail "show listsize (timeout)"
- }
- }
- send "list 1\n"
- expect {
- -re "list 1\[\r\n\]+$prompt $" {
- pass "listsize of 0 suppresses output"
- }
- -re ".*$prompt $" {
- fail "listsize of 0 should suppress output"
- }
- timeout {
- fail "listsize of 0 suppresses output (timeout)"
- }
- }
- }
- -re ".*$prompt $" {
- fail "setting listsize to 0"
- }
- timeout {
- fail "set listsize to 0 (timeout)"
- }
- }
+ set_listsize 0
+ gdb_test "list 1" "" "listsize of 0 suppresses output"
# Try listsize of -1 which is special, and means unlimited.
- send "set listsize -1\n"
- expect {
- -re "set listsize -1\[\r\n\]+$prompt $" {
- send "show listsize\n"
- expect {
- -re "Number of source lines .* is unlimited.\r\n.*$prompt $" {
- pass "listsize of -1 displays as unlimited"
- }
- -re ".*$prompt $" {
- fail "listsize not set to unlimited (-1)"
- }
- timeout {
- fail "show listsize (timeout)"
- }
- }
- setup_xfail "*-*-*"
- send "list 1\n"
- expect {
- -re "1\[ \t\]+#include .*\r\n39\[ \t\]+\}\r\n$prompt $" {
- pass "list line 1 with unlimited listsize"
- }
- -re "list 1\[\r\n\]+$prompt $" {
- fail "listsize of -1 (unlimited) suppresses output"
- }
- timeout {
- fail "list line 1 with unlimited listsize (timeout)"
- }
- }
- }
- -re ".*$prompt $" {
- fail "setting listsize to -1"
- }
- timeout {
- fail "set listsize to -1 (timeout)"
- }
- }
+ set_listsize -1
+ setup_xfail "*-*-*"
+ gdb_test "list 1" "1\[ \t\]+#include .*\r\n39\[ \t\]+\}" "list line 1 with unlimited listsize"
}
#
# FIXME Fails for COFF as well, I think.
setup_xfail "a29k-*-udi"
- send "list list0.h:1\n"
- expect {
- -re "1\[ \t\]+/\[*\]+ An include file .*5\[ \t\]+foo \[(\]+x\[)\]+\r\n$prompt $" {
- pass "list line 1 in include file"
- }
- -re "No source file named list0.h.\r\n$prompt $" {
- fail "list line 1 in include file"
- }
- -re ".*$prompt $" {
- fail "list line 1 in include file"
- }
- timeout {
- fail "list line 1 in include file (timeout)"
- }
- }
+ gdb_test "list list0.h:1" "1\[ \t\]+/\[*\]+ An include file .*5\[ \t\]+foo \[(\]+x\[)\]+" "list line 1 in include file"
# FIXME Fails for COFF as well, I think.
setup_xfail "a29k-*-udi"
- send "list list0.h:100\n"
- expect {
- -re "Line number 95 out of range; .*list0.h has 36 lines.\r\n$prompt $" {
- pass "list message for lines past EOF"
- }
- -re "No source file named list0.h.\r\n$prompt $" {
- fail "list message for lines past EOF"
- }
- -re ".*$prompt $" {
- fail "list message for lines past EOF"
- }
- timeout {
- fail "list message for lines past EOF (timeout)"
- }
- }
+ gdb_test "list list0.h:100" "Line number 95 out of range; .*list0.h has 36 lines." "list message for lines past EOF"
}
#
set testcnt 0
- send "list list0.c:1\n"
+ send_gdb "list list0.c:1\n"
expect {
-re "1\[ \t\]+#include \"list0.h\".*5\[ \t\]+int x;\r\n$prompt $" {
incr testcnt
-re ".*$prompt $" { fail "list list0.c:1" ; return }
timeout { fail "list list0.c:1 (timeout)" ; return }
}
- send "list list0.c:10\n"
+ send_gdb "list list0.c:10\n"
expect {
-re "5\[ \t\]+int x;.*14\[ \t\]+foo .x\[+)\]+;\r\n$prompt $" {
incr testcnt
-re ".*$prompt $" { fail "list list.c:10" ; return }
timeout { fail "list list.c:10 (timeout)" ; return }
}
- send "list list1.c:1\n"
+ send_gdb "list list1.c:1\n"
expect {
-re "1\[ \t\]+void.*5\[ \t\]+printf \[(\]+.*\[)\]+;\r\n$prompt $" {
incr testcnt
-re ".*$prompt $" { fail "list list1.c:1" ; return }
timeout { fail "list list1.c:1 (timeout)" ; return }
}
- send "list list1.c:12\n"
+ send_gdb "list list1.c:12\n"
expect {
-re "7\[ \t\]+long_line \[(\]+.*\[)\]+;.*14\[ \t\]+\}\r\n.*$prompt $" {
incr testcnt
# in include files, which breaks this test.
# SunPRO cc is the second case below, it's also correct.
setup_xfail "a29k-*-udi"
- send "list main\n"
- expect {
- -re "1\[ \t\]+#include .*8\[ \t\]+breakpoint\[(\]\[)\]+;\r\n$prompt $" {
- pass "list function in source file 1"
- }
- -re "5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" {
- pass "list function in source file 1"
- }
- -re ".*$prompt $" { fail "list main" ; return }
- timeout { fail "list main (timeout)" ; return }
- }
+ gdb_test "list main" "(5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;|1\[ \t\]+#include .*8\[ \t\]+breakpoint\[(\]\[)\]+;)" "list function in source file 1"
# Ultrix gdb takes the second case below; it's also correct.
# SunPRO cc is the third case.
- send "list bar\n"
- expect {
- -re "1\[ \t\]+void.*8\[ \t\]+\}\r\n$prompt $" {
- pass "list function in source file 2"
- }
- -re "1\[ \t\]+void.*7\[ \t\]*long_line ..;\r\n$prompt $" {
- pass "list function in source file 2"
- }
- -re "1\[ \t\]+void.*7\[ \t\]*long_line ..;.*9\[ \t\]*\r\n$prompt $" {
- pass "list function in source file 2"
- }
- -re ".*$prompt $" { fail "list bar" ; return }
- timeout { fail "list bar (timeout)" ; return }
- }
+ gdb_test "list bar" "(1\[ \t\]+void.*7\[ \t\]*long_line ..;.*9\[ \t\]*|1\[ \t\]+void.*8\[ \t\]+\}|1\[ \t\]+void.*7\[ \t\]*long_line ..;)" "list function in source file 2"
# Test "list function" for C include file
# Ultrix gdb is the second case, still correct.
# SunPRO cc is the third case.
setup_xfail "powerpc-*-*"
- send "list foo\n"
- expect {
- -re "2\[ \t\]+including file.*11\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
- pass "list function in include file"
- }
- -re "1\[ \t\]+/. An include file.*10\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
- pass "list function in include file"
- }
- -re "3\[ \t\]+.*12\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
- pass "list function in include file"
- }
- -re ".*main \[)(\]+.*$prompt $" {
- fail "list function in include file"
- }
- -re ".*$prompt $" { fail "list foo (in include file)" ; return }
- timeout { fail "list foo (timeout)" ; return }
- }
+ gdb_test "list foo" "(3\[ \t\]+.*12\[ \t\]+bar \[(\]+.*\[)\]+;|2\[ \t\]+including file.*11\[ \t\]+bar \[(\]+.*\[)\]+;|1\[ \t\]+/. An include file.*10\[ \t\]+bar \[(\]+.*\[)\]+;)" "list function in include file"
}
proc test_list_forward {} {
set testcnt 0
- send "list list0.c:10\n"
+ send_gdb "list list0.c:10\n"
expect {
-re "5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list list0.c:10" ; return }
timeout { fail "list list0.c:10 (timeout)" ; return }
}
- send "list\n"
+ send_gdb "list\n"
expect {
-re "15\[ \t\]+foo \[(\]+.*\[)\]+;.*24\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 15-24" ; return }
timeout { fail "list 15-24 (timeout)" ; return }
}
- send "list\n"
+ send_gdb "list\n"
expect {
-re "25\[ \t\]+foo \[(\]+.*\[)\]+;.*34\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 25-34" ; return }
timeout { fail "list 25-34 (timeout)" ; return }
}
- send "list\n"
+ send_gdb "list\n"
expect {
-re "35\[ \t\]+foo \[(\]+.*\[)\]+;.*42\[ \t\]+\}\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 35-42" ; return }
set testcnt 0
- send "list list0.c:33\n"
+ send_gdb "list list0.c:33\n"
expect {
-re "28\[ \t\]+foo \[(\]+.*\[)\]+;.*37\[ \t\]+\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list list0.c:33" ; return }
timeout { fail "list list0.c:33 (timeout)" ; return }
}
- send "list -\n"
+ send_gdb "list -\n"
expect {
-re "18\[ \t\]+foo \[(\]+.*\[)\]+;.*27\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 18-27" ; return }
timeout { fail "list 18-27 (timeout)" ; return }
}
- send "list -\n"
+ send_gdb "list -\n"
expect {
-re "8\[ \t\]+breakpoint\[(\]\[)\];.*17\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 8-17" ; return }
timeout { fail "list 8-17 (timeout)" ; return }
}
- send "list -\n"
+ send_gdb "list -\n"
expect {
-re "1\[ \t\]+#include .*7\[ \t\]+set_debug_traps\[(\]\[)\]+;\r\n$prompt $" { incr testcnt }
-re ".*$prompt $" { fail "list 1-7" ; return }
proc test_list_range {} {
global prompt
- send "list list0.c:2,list0.c:5\n"
- expect {
- -re "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;\r\n$prompt $" {
- pass "list range; filename:line1,filename:line2"
- }
- -re ".*$prompt $" { fail "list list0.c:2,list0.c:5" }
- timeout { fail "list list0.c:2,list0.c:5 (timeout)" }
- }
+ gdb_test "list list0.c:2,list0.c:5" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;" "list range; filename:line1,filename:line2"
- send "list 2,5\n"
- expect {
- -re "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;\r\n$prompt $" {
- pass "list range; line1,line2"
- }
- -re ".*$prompt $" { fail "list 2,5" }
- timeout { fail "list 2,5 (timeout)" }
- }
+ gdb_test "list 2,5" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;" "list range; line1,line2"
- #send "list -1,6\n"
- #expect {
- #-re "Line number 0 out of range; .*list0.c has 39 lines.\r\n$prompt $" {
- #pass "list range; lower bound negative"
- #}
- #-re ".*$prompt $" { fail "list -1,6" }
- #timeout { fail "list -1,6 (timeout)" }
- #}
-
- #send "list -100,-40\n"
- #expect {
- #-re "Line number -60 out of range; .*list0.c has 39 lines.\r\n$prompt $" {
- #pass "list range; both bounds negative"
- #}
- #-re ".*$prompt $" { fail "-100,-40" }
- #timeout { fail "-100,-40 (timeout)" }
- #}
-
- send "list 30,43\n"
- expect {
- -re "30\[ \t\]+foo \[(\]+.*\[)\]+;.*42\[ \t\]+\}\r\n$prompt $" {
- pass "list range; upper bound past EOF"
- }
- -re ".*$prompt $" { fail "list 30,43" }
- timeout { fail "list 30,43 (timeout)" }
- }
+# gdb_test "list -1,6" "Line number 0 out of range; .*list0.c has 39 lines." "list range; lower bound negative"
- send "list 43,100\n"
- expect {
- -re "Line number 43 out of range; .*list0.c has 42 lines.\r\n$prompt $" {
- pass "list range; both bounds past EOF"
- }
- -re ".*$prompt $" { fail "43,100" }
- timeout { fail "43,100 (timeout)" }
- }
+# gdb_test "list -100,-40" "Line number -60 out of range; .*list0.c has 39 lines." "list range; both bounds negative"
- send "list list0.c:2,list1.c:17\n"
- expect {
- -re "Specified start and end are in different files.\r\n$prompt $" {
- pass "list range, must be same files"
- }
- -re ".*$prompt $" { fail "list0.c:2,list1.c:17" }
- timeout { fail "list0.c:2,list1.c:17 (timeout)" }
- }
+ gdb_test "list 30,43" "30\[ \t\]+foo \[(\]+.*\[)\]+;.*42\[ \t\]+\}" "list range; upper bound past EOF"
+
+ gdb_test "list 43,100" "Line number 43 out of range; .*list0.c has 42 lines." "list range; both bounds past EOF"
+
+ gdb_test "list list0.c:2,list1.c:17" "Specified start and end are in different files." "list range, must be same files"
}
#
# in include files, which breaks this test.
# SunPRO cc is the second case below, it's also correct.
setup_xfail "a29k-*-udi"
- send "list list0.c:main\n"
+ send_gdb "list list0.c:main\n"
expect {
-re "1\[ \t\]+#include .*8\[ \t\]+breakpoint\[(\]\[)\]+;\r\n$prompt $" {
incr testcnt
# Not sure what the point of having this function be unused is.
# AIX is legitimately removing it.
setup_xfail "rs6000-*-aix*"
- send "list list0.c:unused\n"
+ send_gdb "list list0.c:unused\n"
expect {
-re "36\[ \t\]+\}.*42\[ \t\]+\}\r\n$prompt $" {
incr testcnt
setup_xfail "powerpc-*-*" 1804
# FIXME Fails for COFF as well, I think.
setup_xfail "a29k-*-udi"
- send "list list0.h:foo\n"
+ send_gdb "list list0.h:foo\n"
expect {
-re "2\[ \t\]+including file. This.*11\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
incr testcnt
# Ultrix gdb is the second case.
# a29k-amd-udi is the third case.
- send "list list1.c:bar\n"
+ send_gdb "list list1.c:bar\n"
expect {
-re "1\[ \t\]+void.*8\[ \t\]+\}\r\n$prompt $" {
incr testcnt
# Not sure what the point of having this function be unused is.
# AIX is legitimately removing it.
setup_xfail "rs6000-*-aix*"
- send "list list1.c:unused\n"
+ send_gdb "list list1.c:unused\n"
expect {
-re "7\[ \t\]+long_line \[(\]\[)\];.*14\[ \t\]+\}\r\n.*$prompt $" {
incr testcnt
# contain the requested symbol, it will subsequently search all of the symtabs
# for the requested symbol.
- send "list list0.c:foo\n"
- expect {
- -re "Function \"foo\" not defined in .*list0.c\r\n$prompt $" {
- pass "list filename:function; wrong filename rejected"
- }
- -re "2\[ \t\]+including file.*11\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$prompt $" {
- fail "list filename:function; wrong filename not rejected"
- }
- -re ".*main \[)(\]+.*$prompt $" {
- fail "list filename:function; wrong filename not rejected"
- }
- -re ".*$prompt $" {
- fail "list filename:function; wrong filename not rejected"
- }
- timeout {
- fail "list filename:function; wrong filename (timeout)"
- }
- }
+ gdb_test "list list0.c:foo" "Function \"foo\" not defined in .*list0.c" "list filename:function; wrong filename rejected"
- send "list foobar.c:main\n"
- expect {
- -re "No source file named foobar.c.\r\n$prompt $" {
- pass "list filename:function; nonexistant file"
- }
- -re ".*$prompt $" {
- fail "list filename:function; nonexistant file"
- }
- timeout {
- fail "list filename:function; nonexistant file (timeout)"
- }
- }
+ gdb_test "list foobar.c:main" "No source file named foobar.c." "list filename:function; nonexistant file"
- send "list list0.h:foobar\n"
- expect {
- -re "Function \"foobar\" not defined.\r\n$prompt $" {
- pass "list filename:function; nonexistant function"
- }
- -re "No source file named list0.h.\r\n$prompt $" {
- fail "list filename:function; nonexistant function"
- }
- -re ".*$prompt $" {
- fail "list filename:function; nonexistant function"
- }
- timeout {
- fail "list filename:function; nonexistant function (timeout)"
- }
- }
+ gdb_test "list list0.h:foobar" "Function \"foobar\" not defined." "list filename:function; nonexistant function"
}
# Test that GDB won't crash if the line being searched is extremely long.
set oldtimeout $timeout
- set timeout [expr "$timeout + 60"]
+ set timeout [expr "$timeout + 300"]
verbose "Timeout is now $timeout seconds" 2
match_max 10000
gdb_test "search 1234" ".*1234.*" "search extremely long line (> 5000 chars)"
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-if $usestubs {
- send "step\n"
+if [target_info exists use_gdb_stubs] {
+ send_gdb "step\n"
# if use stubs step out of the breakpoint() function.
expect {
-re "main.* at .*$prompt $" {}
+ -re ".*in .*start.*$prompt $" {}
timeout { fail "single step at breakpoint() (timeout)" ; return 0 }
}
}
-send "set width 0\n"
-expect -re "$prompt $"
+gdb_test "set width 0" "" "set width 0"
test_listsize
if [ set_listsize 10 ] then {
set testfile nodebug
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-
-# Get rid of any -g options (including -gstabs, -gdwarf, etc...
-if [info exists target_info(target,cflags)] {
- set saved_cflags $target_info(target,cflags)
- regsub -all -- {[ ]-g[^ ]*} $target_info(target,cflags) { } target_info(target,cflags)
-}
-
-if { [compile "${srcdir}/${subdir}/${srcfile} -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable ""] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci file"
- return -1
-}
-
-if [info exists target_info(target,cflags)] {
- set target_info(target,cflags) $saved_cflags
+if [get_compiler_info ${binfile}] {
+ return -1;
}
source ${binfile}.ci
+gdb_exit
+gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
# even without -g, which should be accepted.
# Irix5, even though it is ELF, counts as "ecoff" because it
# encapsulates ecoff debugging info in a .mdebug section.
+ # Irix6 gcc omits no debug info at all for static functions and
+ # variables, so all tests involving statics fail.
- if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" }
+ if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" "mips-sgi-irix6*" }
gdb_test "p top" \
"{(<(text variable|function), no debug info>|short \\(\\))} \[0-9a-fx]* <top>"
- if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" }
+ if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" "mips-sgi-irix6*" }
gdb_test "whatis top" \
"(<(text variable|function), no debug info>|short \\(\\))"
+ if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "ptype top" "(short|int) \\((|<non-float parameter>|<non-float parameter>, <non-float parameter>)\\)"
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" }
+ setup_xfail "mips-sgi-irix6*"
gdb_test "p middle" \
"{(<(text variable|function), no debug info>|short \\(\\))} \[0-9a-fx]* <middle>"
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" }
+ setup_xfail "mips-sgi-irix6*"
gdb_test "whatis middle" \
"(<(text variable|function), no debug info>|short \\(\\))"
+ setup_xfail "mips-sgi-irix6*"
gdb_test "ptype middle" "(short|int) \\((|<non-float parameter>|<non-float parameter>, <non-float parameter>)\\)"
gdb_test "p dataglobal" "= 3"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "p datalocal" "= 4"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "whatis datalocal" "<(data variable|variable), no debug info>"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "ptype datalocal" "<(data variable|variable), no debug info>"
gdb_test "p bssglobal" "= 0"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "p bsslocal" "= 0"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "whatis bsslocal" "<(data variable|variable), no debug info>"
setup_xfail "rs6000*-*-aix*"
setup_xfail "powerpc*-*-aix*"
if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "ptype bsslocal" "<(data variable|variable), no debug info>"
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
gdb_test "backtrace 10" "#0.*inner.*#1.*middle.*#2.*top.*#3.*main.*" \
"backtrace from inner in nodebug.exp"
# Or if that doesn't work, at least hope for the external symbols
# This test is not as obscure as it might look. `p getenv ("TERM")'
# is a real-world example, at least on many systems.
- if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" "mips-sgi-irix6*" }
gdb_test {p/c array_index("abcdef",2)} " = 99 'c'"
# Now, try that we can give names of file-local symbols which happen
# to be unique, and have it still work
+ if {$gcc_compiled} then { setup_xfail "mips-sgi-irix6*" }
if [runto middle] then {
gdb_test "backtrace 10" "#0.*middle.*#1.*top.*#2.*main.*" \
"backtrace from middle in nodebug.exp"
set bug_id 0
set testfile "printcmds"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
proc set_lang_c {} {
global prompt
- send "set language c\n"
- expect {
- -re ".*$prompt $" {}
- timeout { fail "set language c (timeout)" ; return 0 }
+ if [gdb_test "set language c" "" "set language c"] {
+ return 0
}
- send "show language\n"
- expect {
- -re ".* source language is \"c\".*$prompt $" {
- pass "set language to \"c\""
- return 1
- }
- -re ".*$prompt $" {
- fail "setting language to \"c\""
- return 0
- }
- timeout {
- fail "can't show language (timeout)"
- return 0
- }
+ if [gdb_test "show language" ".* source language is \"c\".*"] {
+ return 0
}
+ return 1;
}
proc test_integer_literals_accepted {} {
proc test_print_repeats_10 {} {
global prompt
- send "set print elements 1\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 1" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"a\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"a\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"a\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"a\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"a\"..."
- send "set print elements 2\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 2" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aa\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aa\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aa\"..."
- send "set print elements 3\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 3" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaa\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaa\"..."
- send "set print elements 4\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 4" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaa\"..."
- send "set print elements 5\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 5" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaa\"..."
- send "set print elements 6\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 6" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaaa\"..."
- send "set print elements 7\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 7" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXXXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaaaa\"..."
- send "set print elements 8\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 8" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXXXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXXXXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaa\"..."
- send "set print elements 9\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 9" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXXXXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXXXXXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaaa\"..."
- send "set print elements 10\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 10" ""
gdb_test "p &ctable2\[0*16\]" " = \\(unsigned char \\*\\) \"aXXXXXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" " = \\(unsigned char \\*\\) \"aaXXXXXXXX\"..."
gdb_test "p &ctable2\[2*16\]" " = \\(unsigned char \\*\\) \"aaaXXXXXXX\"..."
gdb_test "p &ctable2\[14*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaaaa\"..."
gdb_test "p &ctable2\[15*16\]" " = \\(unsigned char \\*\\) \"aaaaaaaaaa\"..."
- send "set print elements 11\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 11" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"aXXXXXXXXXX\"..."
gdb_test "p &ctable2\[1*16\]" \
gdb_test "p &ctable2\[15*16\]" \
" = \\(unsigned char \\*\\) 'a' <repeats 11 times>..."
- send "set print elements 12\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 12" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"a\", 'X' <repeats 11 times>..."
gdb_test "p &ctable2\[1*16\]" \
gdb_test "p &ctable2\[15*16\]" \
" = \\(unsigned char \\*\\) 'a' <repeats 12 times>..."
- send "set print elements 13\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 13" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"a\", 'X' <repeats 12 times>..."
gdb_test "p &ctable2\[1*16\]" \
gdb_test "p &ctable2\[15*16\]" \
" = \\(unsigned char \\*\\) 'a' <repeats 13 times>..."
- send "set print elements 14\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 14" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"a\", 'X' <repeats 13 times>..."
gdb_test "p &ctable2\[1*16\]" \
gdb_test "p &ctable2\[15*16\]" \
" = \\(unsigned char \\*\\) 'a' <repeats 14 times>..."
- send "set print elements 15\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 15" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"a\", 'X' <repeats 14 times>..."
gdb_test "p &ctable2\[1*16\]" \
gdb_test "p &ctable2\[15*16\]" \
" = \\(unsigned char \\*\\) 'a' <repeats 15 times>..."
- send "set print elements 16\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 16" ""
gdb_test "p &ctable2\[0*16\]" \
" = \\(unsigned char \\*\\) \"a\", 'X' <repeats 15 times>..."
gdb_test "p &ctable2\[1*16\]" \
# Test that setting print elements unlimited doesn't completely suppress
# printing; this was a bug in older gdb's.
- send "set print elements 0\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 0" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\""
- send "set print elements 1\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 1" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"t\"\\.\\.\\."
- send "set print elements 5\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 5" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"tests\"\\.\\.\\."
- send "set print elements 19\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 19" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\""
- send "set print elements 20\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 20" ""
gdb_test "p teststring" \
" = (.unsigned char .. )?\"teststring contents\""
- send "set print elements 8\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 8" ""
gdb_test "p &ctable1\[0\]" \
" = \\(unsigned char \\*\\) \"\""
proc test_print_int_arrays {} {
global prompt
- send "set print elements 24\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 24" ""
gdb_test "p int1dim" \
" = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}"
global prompt
global hex
- send "set print elements 24\n" ; expect -re "$prompt $"
- send "set print address on\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 24" ""
+ gdb_test "set print address on" ""
gdb_test "p arrays" \
" = {array1 = \"abc\", array2 = \"d\", array3 = \"e\", array4 = \"fg\", array5 = \"hij\"}"
gdb_test "p parrays->array5" " = \"hij\""
gdb_test "p &parrays->array5" " = \\(unsigned char \\(\\*\\)\\\[4\\\]\\) $hex"
- send "set print address off\n" ; expect -re "$prompt $"
+ gdb_test "set print address off" ""
}
proc test_print_string_constants {} {
global prompt
- send "set print elements 50\n" ; expect -re "$prompt $"
+ gdb_test "set print elements 50" ""
setup_xfail "a29k-*-udi" 2416
gdb_test "p \"a string\"" " = \"a string\""
gdb_load ${binfile}
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
-send "set print address off\n" ; expect -re "$prompt $"
-send "set width 0\n" ; expect -re "$prompt $"
+gdb_test "set print sevenbit-strings" ""
+gdb_test "set print address off" ""
+gdb_test "set width 0" ""
if [set_lang_c] then {
-# On AIX, we can't print variables before we run the program. This is because
-# the data segment and text segment are in the same range of addresses until
-# they are relocated. Ick.
- setup_xfail "rs6000-*-aix*"
gdb_test "p ctable1\[120\]" "120 'x'"
if [runto_main] then {
set bug_id 0
set testfile "ptype"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${testfile}.ci file"
- return -1
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile}] {
+ return -1;
}
gdb_exit
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-source ${binfile}.ci
-
# Test ptype of unnamed enumeration members before any action causes
# the partial symbol table to be expanded to full symbols. This fails
# with stabs compilers which fail to use a nameless stab (such as
# pre-2.4.5 versions of gcc and most non-gcc compilers).
-send "ptype red1\n"
+send_gdb "ptype red1\n"
expect {
-re "type = enum primary1_tag \{red1, green1, blue1\}.*$prompt $"\
{
# Here and elsewhere, we accept
# "long", "long int", or "int" for long variables (whatis.exp already
# has an XFAIL for "int" (Sun cc bug), so no need to fail it here).
-send "ptype struct t_struct\n"
+send_gdb "ptype struct t_struct\n"
expect {
-re "type = struct t_struct \{.*
(unsigned |)char v_char_member;.*
}
-send "ptype struct link\n"
+send_gdb "ptype struct link\n"
expect {
-re "type = struct link \{.*
struct link \[*\]next;.*
- struct link \[*(\]+linkfunc\[)(\]+;.*
+ struct link \[*(\]+linkfunc\[)(\]+(struct link \[*\], int\[)\]|);.*
struct t_struct stuff.1..2..3.;.*
\}.*$prompt $" { pass "ptype linked list structure" }
-re ".*$prompt $" {
#
# test ptype command with unions
#
-send "ptype union t_union\n"
+send_gdb "ptype union t_union\n"
expect {
-re "type = union t_union \{.*
(unsigned |)char v_char_member;.*
}
-send "ptype union tu_link\n"
+send_gdb "ptype union tu_link\n"
expect {
-re "type = union tu_link .*
struct link \[*\]next;.*
- struct link \[(\*\]+linkfunc\[)(\]+;.*
+ struct link \[(\*\]+linkfunc\[)(\]+(struct link \[*\], int\[)\]|);.*
struct t_struct stuff.1..2..3.;.*
\}.*$prompt $" { pass "ptype linked list union" }
-re ".*$prompt $" {
# test ptype command with enums
#
-send "ptype primary\n"
+send_gdb "ptype primary\n"
expect {
-re "type = enum .red, green, blue.*$prompt $" { pass "ptype unnamed enumeration" }
-re ".*$prompt $" { fail "ptype unnamed enumeration" }
}
-send "ptype enum colors\n"
+send_gdb "ptype enum colors\n"
expect {
-re "type = enum colors \{yellow, purple, pink\}.*$prompt $"\
{ pass "ptype named enumeration" }
#
# test ptype command with enums as typedef
#
-send "ptype boolean\n"
+send_gdb "ptype boolean\n"
expect {
-re "type = enum \{FALSE, TRUE\}.*$prompt $" { pass "ptype unnamed typedef'd enumeration" }
-re ".*$prompt $" { fail "ptype unnamed typedef'd enumeration" }
# GDB's behavior is correct; the type which the variable is defined
# as (51) doesn't have a name. Only 55 has a name.
-setup_xfail "i*86-*-sysv4*"
-if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
+if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "i*86-*-sysv4*" }
gdb_test "whatis v_boolean" "type = boolean" \
"whatis unnamed typedef'd enum (compiler bug in IBM's xlc)"
*double v_double_member;.*
*int v_int_member;.*\}" "printing typedef'd union"
-send "ptype enum bvals\n"
+send_gdb "ptype enum bvals\n"
expect {
-re "type = enum bvals \{false, true\}.*$prompt $" { pass "ptype named typedef'd enumf'd enum" }
-re ".*$prompt $" { fail "ptype named typedef'd enumeration" }
#
# test ptype command with out-of-order enum values
#
-send "ptype enum misordered\n"
+send_gdb "ptype enum misordered\n"
expect {
-re "type = enum misordered \{two = 2, one = 1, zero = 0, three = 3\}.*$prompt $"\
{ pass "ptype misordered enumeration" }
#
# test ptype command with a named enum's value
#
-send "ptype three\n"
+send_gdb "ptype three\n"
expect {
-re "type = enum misordered \{two = 2, one = 1, zero = 0, three = 3\}.*$prompt $"\
{ pass "ptype named enumeration member" }
}
-send "ptype red\n"
+send_gdb "ptype red\n"
expect {
-re "type = enum \{red, green, blue\}.*$prompt $"\
{ pass "ptype unnamed enumeration member" }
#}
-send "ptype v_short\n"
+send_gdb "ptype v_short\n"
expect {
-re "type = short(| int).*$prompt $" { pass "ptype short" }
-re ".*$prompt $" { fail "ptype short" }
#}
-send "ptype v_int\n"
+send_gdb "ptype v_int\n"
expect {
-re "type = int.*$prompt $" { pass "ptype int" }
-re ".*$prompt $" { fail "ptype int" }
#}
#
-setup_xfail "i*86-*-sysv4*"
-if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" }
+if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "i*86-*-sysv4*" }
gdb_test "ptype t_char_array" "type = (|unsigned )char \\\[0?\\\]"
#
#
# test ptype command with nested structure and union
#
-send "ptype struct outer_struct\n"
+send_gdb "ptype struct outer_struct\n"
expect {
-re "type = struct outer_struct \{.*
int outer_int;.*
}
-send "ptype struct inner_struct\n"
+send_gdb "ptype struct inner_struct\n"
expect {
-re "type = struct inner_struct \{.*
int inner_int;.*
}
-send "ptype union inner_union\n"
+send_gdb "ptype union inner_union\n"
expect {
-re "type = union inner_union \{.*
int inner_union_int;.*
}
-send "ptype nested_su\n"
+send_gdb "ptype nested_su\n"
expect {
-re "type = struct outer_struct \{.*
int outer_int;.*
}
-send "ptype nested_su.outer_int\n"
+send_gdb "ptype nested_su.outer_int\n"
expect {
-re "type = int.*$prompt $" { pass "ptype outer int" }
-re ".*$prompt $" { fail "ptype outer int" }
}
-send "ptype nested_su.inner_struct_instance\n"
+send_gdb "ptype nested_su.inner_struct_instance\n"
expect {
-re "type = struct inner_struct \{.*
int inner_int;.*
}
-send "ptype nested_su.inner_struct_instance.inner_int\n"
+send_gdb "ptype nested_su.inner_struct_instance.inner_int\n"
expect {
-re "type = int.*$prompt $" { pass "ptype inner int" }
-re ".*$prompt $" { fail "ptype inner int" }
}
-send "ptype nested_su.inner_union_instance\n"
+send_gdb "ptype nested_su.inner_union_instance\n"
expect {
-re "type = union inner_union \{.*
int inner_union_int;.*
-# Copyright (C) 1992 Free Software Foundation, Inc.
+# Copyright (C) 1992, 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
set bug_id 0
set testfile "recurse"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-# Only enabled for some targets merely because it has not been tested
-# elsewhere.
-if {[istarget "sparc*-*-sunos4*"] || [istarget "hppa*-*-bsd*"]} then {
-
- # Preserve the old timeout, and set a new one that should be
- # sufficient to avoid timing out during this test.
+proc recurse_tests {} {
if [runto recurse] then {
# First we need to step over the assignment of b, so it has a known
"continue to recurse (a = 1)"
# Continue until second set of b (second instance).
- setup_xfail "sparc*-*-sunos4*"
if [gdb_test "continue" \
"Continuing.*\[Ww\]atchpoint.*: b.*Old value = 5.*New value = 120.*return.*" \
"continue to second instance watchpoint, second time"] then {
return
}
}
+}
+
+# Only enabled for some targets merely because it has not been tested
+# elsewhere.
+if {[istarget "sparc*-*-sunos4*"] || [istarget "hppa*-*-bsd*"] || [istarget "sparclet-*-*"] || [istarget "m32r-*-elf"]} then {
+
+ # Preserve the old timeout, and set a new one that should be
+ # sufficient to avoid timing out during this test.
+ set oldtimeout $timeout
+ set timeout [expr "$timeout + 60"]
+ verbose "Timeout is now $timeout seconds" 2
+
+ recurse_tests
# Restore the preserved old timeout value.
+ set timeout $oldtimeout
+ verbose "Timeout is now $timeout seconds" 2
}
set bug_id 0
set testfile "return"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
if { ! [ runto func1 ] } then { return 0 }
- send "return\n"
+ send_gdb "return\n"
expect {
-re "Make .* return now.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "func1 ..;.*$prompt $" {
- send "step\n"
+ send_gdb "step\n"
exp_continue
}
-re ".*in main after func1.*$prompt $" { pass "simple return" }
}
# Set breakpoints in other interesting functions.
- send "break func2\n" ; expect -re ".*$prompt $"
- send "break func3\n" ; expect -re ".*$prompt $"
+ gdb_test "break func2" "" "break func2"
+ gdb_test "break func3" "" "break func3"
- gdb_test "continue" "return -5;"
- send "return 5\n"
+ gdb_test "continue" "return -5;" "continue to return of -5"
+ send_gdb "return 5\n"
expect {
-re "Make .* return now.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re ".*tmp2 = func2.*$prompt $" { }
gdb_test "p tmp2" ".* = 5" "correct value returned (integer test)"
- gdb_test "continue" "return -5.0;"
- send "return 5.0\n"
+ gdb_test "continue" "return -5.0;" "continue to return of -5.0"
+ send_gdb "return 5.0\n"
expect {
-re "Make .* return now.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
- -re ".*tmp3 = func3.*$prompt $" { }
- -re "$prompt $" { fail "did not return (double test)" }
- timeout { fail "(timeout) did not return (double test)" }
+ -re ".*tmp3 = func3.*$prompt $" { }
+ -re "$prompt $" { fail "did not return (double test)" }
+ timeout { fail "(timeout) did not return (double test)" }
}
gdb_test "next" "printf.*" "next over call to func3"
# is not xfailed.
setup_xfail "i*86-*-*" "sparc-*-solaris2.3*" "sparc-*-solaris2.4*"
- gdb_test "p tmp3" ".* = 5" "correct value returned double test (known problem with i*86 and sparc solaris"
+ gdb_test "p tmp3" ".* = 5.*" "correct value returned double test (known problem with i*86 and sparc solaris"
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
+set timeout 30
return_tests
set prms_id 0
set bug_id 0
-set binfile "scope"
-set srcfile $binfile.c
-
-if ![file exists $objdir/$subdir/$binfile] then {
- perror "$objdir/$subdir/$binfile does not exist."
- return 0
+set testfile "scope"
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcdir}/${subdir}/scope0.c ${srcdir}/${subdir}/scope1.c" "${binfile}" executable {debug}] != "" } {
+ perror "Couldn't compile scope0.c to object"
+ return -1
}
-source gdb.base/scope0.ci
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile}] {
+ return -1;
+}
# Test locating various things when stopped just inside main, after
# running init(). To prevent cascading of errors, we report the
# skip past init. There may be a call to __main at the start of
# main, so the first next may only get us to the init call.
- send "next\n"
+ send_gdb "next\n"
expect {
-re "$decimal.*foo \\(\\);\r\n$prompt $" {
pass "next over init() in main"
}
-re "$decimal.*init \\(\\);\r\n$prompt $"\
- { send "next\n" ; exp_continue }
+ { send_gdb "next\n" ; exp_continue }
-re "$prompt $" { fail "next over init() in main" ; return }
timeout { fail "(timeout) next over init() in main" ; return }
}
# Print scope0.c::filelocal, which is 1
- send "print filelocal\n"
+ send_gdb "print filelocal\n"
expect {
-re "\\\$$decimal = 1\r\n$prompt $" { pass "print filelocal" }
-re "$prompt $" { fail "print filelocal" ; return }
}
}
- send "print 'scope0.c'::filelocal\n"
+ send_gdb "print 'scope0.c'::filelocal\n"
expect {
-re "\\\$$decimal = 1\r\n$prompt $" {
pass "print 'scope0.c'::filelocal at main"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope0.c'::filelocal at main" ; return }
# Print scope0.c::filelocal_bss, which is 101
- send "print filelocal_bss\n"
+ send_gdb "print filelocal_bss\n"
expect {
-re "\\\$$decimal = 101\r\n$prompt $" {
pass "print filelocal_bss"
}
}
- send "print 'scope0.c'::filelocal_bss\n"
+ send_gdb "print 'scope0.c'::filelocal_bss\n"
expect {
-re "\\\$$decimal = 101\r\n$prompt $" {
pass "print 'scope0.c'::filelocal_bss in test_at_main"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
exp_continue
}
-re "$prompt $" {
# No clue why the powerpc fails this test.
setup_xfail "powerpc-*-*"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print filelocal_ro\n"
+ send_gdb "print filelocal_ro\n"
expect {
-re "\\\$$decimal = 201\r\n$prompt $" {
pass "print filelocal_ro in test_at_main"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
setup_xfail "powerpc-*-*"
- send "print 'scope0.c'::filelocal_ro\n"
+ send_gdb "print 'scope0.c'::filelocal_ro\n"
expect {
-re "\\\$$decimal = 201\r\n$prompt $" {
pass "print 'scope0.c'::filelocal_ro"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope0.c'::filelocal_ro" ; return }
# Print scope1.c::filelocal, which is 2
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal\n"
+ send_gdb "print 'scope1.c'::filelocal\n"
expect {
-re "\\\$$decimal = 2\r\n$prompt $" {
pass "print 'scope1.c'::filelocal"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::filelocal" ; return }
# Print scope1.c::filelocal_bss, which is 102
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_bss\n"
+ send_gdb "print 'scope1.c'::filelocal_bss\n"
expect {
-re "\\\$$decimal = 102\r\n$prompt $" {
pass "print 'scope1.c'::filelocal_bss"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::filelocal_bss" ; return }
# Print scope1.c::filelocal_ro, which is 202
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_ro\n"
+ send_gdb "print 'scope1.c'::filelocal_ro\n"
expect {
-re "\\\$$decimal = 202\r\n$prompt $" {
pass "print 'scope1.c'::filelocal_ro"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
exp_continue
}
-re "$prompt " {fail "print 'scope1.c'::filelocal_ro" ; return }
# Print scope1.c::foo::funclocal, which is 3
- send "print foo::funclocal\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print foo::funclocal\n"
expect {
-re "\\\$$decimal = 3\r\n$prompt $" { pass "print foo::funclocal" }
-re "$prompt $" { fail "print foo::funclocal" ; return }
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal\n"
+ send_gdb "print 'scope1.c'::foo::funclocal\n"
expect {
-re "\\\$$decimal = 3\r\n$prompt $" {
pass "print 'scope1.c'::foo::funclocal"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::foo::funclocal" ; return }
# Print scope1.c::foo::funclocal_ro, which is 203
- send "print foo::funclocal_ro\n"
+ send_gdb "print foo::funclocal_ro\n"
expect {
-re "\\\$$decimal = 203\r\n$prompt $" {
pass "print foo::funclocal_ro"
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal_ro\n"
+ send_gdb "print 'scope1.c'::foo::funclocal_ro\n"
expect {
-re "\\\$$decimal = 203\r\n$prompt $" {
pass "print 'scope1.c'::foo::funclocal_ro" }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::foo::funclocal_ro" ; return }
# Print scope1.c::bar::funclocal, which is 4
- send "print bar::funclocal\n"
+ send_gdb "print bar::funclocal\n"
expect {
-re "\\\$$decimal = 4\r\n$prompt $" { pass "print bar::funclocal" }
-re "$prompt $" { fail "print bar::funclocal" ; return }
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::bar::funclocal\n"
+ send_gdb "print 'scope1.c'::bar::funclocal\n"
expect {
-re "\\\$$decimal = 4\r\n$prompt $" {
pass "print 'scope1.c'::bar::funclocal"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::bar::funclocal" ; return }
timeout {
- fail "print 'scope1.c'::bar::funclocal" ; return
+ fail "(timeout) print 'scope1.c'::bar::funclocal" ; return
}
}
}
global subdir
global gcc_compiled
- send "next\n"
+ send_gdb "next\n"
expect {
-re ".*bar \\(\\);\r\n$prompt $" {}
-re "$prompt $" { fail "continue to foo()" ; return }
# Print scope0.c::filelocal, which is 1
- send "print 'scope0.c'::filelocal\n"
+ send_gdb "print 'scope0.c'::filelocal\n"
expect {
-re "\\\$$decimal = 1\r\n$prompt $" {
pass "print 'scope0.c'::filelocal at foo"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope0.c'::filelocal at foo" ; return }
# Print scope0.c::filelocal_bss, which is 101
- send "print 'scope0.c'::filelocal_bss\n"
+ send_gdb "print 'scope0.c'::filelocal_bss\n"
expect {
-re "\\\$$decimal = 101\r\n$prompt $" {
pass "print 'scope0.c'::filelocal_bss in test_at_foo"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
exp_continue
}
-re "$prompt $" {
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
setup_xfail "powerpc-*-*"
- send "print 'scope0.c'::filelocal_ro\n"
+ send_gdb "print 'scope0.c'::filelocal_ro\n"
expect {
-re "\\\$$decimal = 201\r\n$prompt $" { pass "print 'scope0.c'::filelocal_ro" }
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope0.c'::filelocal_ro" ; return }
# Print scope1.c::filelocal, which is 2
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal\n"
+ send_gdb "print 'scope1.c'::filelocal\n"
expect {
-re "\\\$$decimal = 2\r\n$prompt $" {
pass "print 'scope1.c'::filelocal at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::filelocal at foo" ; return }
"print filelocal_bss at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_bss\n"
+ send_gdb "print 'scope1.c'::filelocal_bss\n"
expect {
-re "\\\$$decimal = 102\r\n$prompt $" {
pass "print 'scope1.c'::filelocal_bss at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::filelocal_bss at foo" }
"print filelocal_ro at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_ro\n"
+ send_gdb "print 'scope1.c'::filelocal_ro\n"
expect {
-re "\\\$$decimal = 202\r\n$prompt $" { pass "print 'scope1.c'::filelocal_ro at foo" }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::filelocal_ro at foo" }
gdb_test "print funclocal" "\\\$$decimal = 3" "print funclocal at foo"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
gdb_test "print foo::funclocal" "\\\$$decimal = 3" \
"print foo::funclocal at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print 'scope1.c'::foo::funclocal\n"
expect {
-re "\\\$$decimal = 3\r\n$prompt $" {
pass "print 'scope1.c'::foo::funclocal at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::foo::funclocal at foo" }
gdb_test "print funclocal_bss" "\\\$$decimal = 103" \
"print funclocal_bss at foo"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
gdb_test "print foo::funclocal_bss" "\\\$$decimal = 103" \
"print foo::funclocal_bss at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal_bss\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print 'scope1.c'::foo::funclocal_bss\n"
expect {
-re "\\\$$decimal = 103\r\n$prompt $" {
pass "print 'scope1.c'::foo::funclocal_bss at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal_bss\n"
exp_continue
}
-re "$prompt $" {
gdb_test "print funclocal_ro" "\\\$$decimal = 203" \
"print funclocal_ro at foo"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
gdb_test "print foo::funclocal_ro" "\\\$$decimal = 203" \
"print foo::funclocal_ro at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal_ro\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print 'scope1.c'::foo::funclocal_ro\n"
expect {
-re "\\\$$decimal = 203\r\n$prompt $" {
pass "print 'scope1.c'::foo::funclocal_ro at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::foo::funclocal_ro at foo" }
# Print scope1.c::bar::funclocal, which is 4
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
gdb_test "print bar::funclocal" "\\\$$decimal = 4" \
"print bar::funclocal at foo"
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::bar::funclocal\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print 'scope1.c'::bar::funclocal\n"
expect {
-re "\\\$$decimal = 4\r\n$prompt $" {
pass "print 'scope1.c'::bar::funclocal at foo"
}
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
exp_continue
}
-re "$prompt $" { fail "print 'scope1.c'::bar::funclocal at foo" }
global subdir
global gcc_compiled
- send "next\n"
+ send_gdb "next\n"
expect {
-re ".*$prompt $" {}
- timeout { fail "next in bar()" ; return }
+ timeout { fail "(timeout) next in bar()" ; return }
}
# Print scope0.c::filelocal, which is 1
- send "print 'scope0.c'::filelocal\n"
+ send_gdb "print 'scope0.c'::filelocal\n"
expect {
-re "\\\$$decimal = 1\r\n$prompt $" {
pass "print 'scope0.c'::filelocal at bar"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope0.c'::filelocal at bar" ; return }
+ -re "$prompt $" {
+ fail "print 'scope0.c'::filelocal at bar" ; return
+ }
timeout {
fail "(timeout) print 'scope0.c'::filelocal at bar" ; return
}
# Print scope0.c::filelocal_bss, which is 101
- send "print 'scope0.c'::filelocal_bss\n"
+ send_gdb "print 'scope0.c'::filelocal_bss\n"
expect {
-re "\\\$$decimal = 101\r\n$prompt $" {
pass "print 'scope0.c'::filelocal_bss in test_at_bar"
}
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
exp_continue
}
-re "$prompt $" {
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
setup_xfail "powerpc-*-*"
- send "print 'scope0.c'::filelocal_ro\n"
+ send_gdb "print 'scope0.c'::filelocal_ro\n"
expect {
- -re "\\\$$decimal = 201\r\n$prompt $" { pass "print 'scope0.c'::filelocal_ro" }
+ -re "\\\$$decimal = 201\r\n$prompt $" {
+ pass "print 'scope0.c'::filelocal_ro at bar"
+ }
-re "No symbol \"scope0.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope0.c'::filelocal_ro\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope0.c'::filelocal_ro" ; return }
+ -re "$prompt $" {
+ fail "print 'scope0.c'::filelocal_ro at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope0.c'::filelocal_ro" ; return
+ fail "(timeout) print 'scope0.c'::filelocal_ro at bar" ; return
}
}
# Print scope1.c::filelocal, which is 2
- send "print filelocal\n"
+ send_gdb "print filelocal\n"
expect {
- -re "\\\$$decimal = 2\r\n$prompt $" { pass "print filelocal" }
- -re "$prompt $" { fail "print filelocal" ; return }
+ -re "\\\$$decimal = 2\r\n$prompt $" {
+ pass "print filelocal at bar"
+ }
+ -re "$prompt $" {
+ fail "print filelocal at bar" ; return
+ }
timeout {
- fail "(timeout) print filelocal" ; return
+ fail "(timeout) print filelocal at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal\n"
+ send_gdb "print 'scope1.c'::filelocal\n"
expect {
- -re "\\\$$decimal = 2\r\n$prompt $" { pass "print 'scope1.c'::filelocal" }
+ -re "\\\$$decimal = 2\r\n$prompt $" {
+ pass "print 'scope1.c'::filelocal at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::filelocal" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::filelocal at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::filelocal" ; return
+ fail "(timeout) print 'scope1.c'::filelocal at bar" ; return
}
}
# Print scope1.c::filelocal_bss, which is 102
- send "print filelocal_bss\n"
+ send_gdb "print filelocal_bss\n"
expect {
- -re "\\\$$decimal = 102\r\n$prompt $" { pass "print filelocal_bss" }
- -re "$prompt $" { fail "print filelocal_bss" ; return }
+ -re "\\\$$decimal = 102\r\n$prompt $" {
+ pass "print filelocal_bss at bar"
+ }
+ -re "$prompt $" {
+ fail "print filelocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print filelocal_bss" ; return
+ fail "(timeout) print filelocal_bss at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_bss\n"
+ send_gdb "print 'scope1.c'::filelocal_bss\n"
expect {
- -re "\\\$$decimal = 102\r\n$prompt $" { pass "print 'scope1.c'::filelocal_bss" }
+ -re "\\\$$decimal = 102\r\n$prompt $" {
+ pass "print 'scope1.c'::filelocal_bss at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_bss\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::filelocal_bss" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::filelocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::filelocal_bss" ; return
+ fail "(timeout) print 'scope1.c'::filelocal_bss at bar" ; return
}
}
# Print scope1.c::filelocal_ro, which is 202
- send "print filelocal_ro\n"
+ send_gdb "print filelocal_ro\n"
expect {
-re "\\\$$decimal = 202\r\n$prompt $" {
pass "print filelocal_ro in test_at_bar"
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::filelocal_ro\n"
+ send_gdb "print 'scope1.c'::filelocal_ro\n"
expect {
- -re "\\\$$decimal = 202\r\n$prompt $" { pass "print 'scope1.c'::filelocal_ro" }
+ -re "\\\$$decimal = 202\r\n$prompt $" {
+ pass "print 'scope1.c'::filelocal_ro at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::filelocal_ro\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::filelocal_ro" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::filelocal_ro at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::filelocal_ro" ; return
+ fail "(timeout) print 'scope1.c'::filelocal_ro at bar" ; return
}
}
# Print scope1.c::foo::funclocal, which is 3
- send "print foo::funclocal\n"
+ if {!$gcc_compiled} then { setup_xfail "hppa*-*-hpux*" }
+ send_gdb "print foo::funclocal\n"
expect {
- -re "\\\$$decimal = 3\r\n$prompt $" { pass "print foo::funclocal" }
- -re "$prompt $" { fail "print foo::funclocal" ; return }
+ -re "\\\$$decimal = 3\r\n$prompt $" {
+ pass "print foo::funclocal at bar"
+ }
+ -re "$prompt $" {
+ fail "print foo::funclocal at bar" ; return
+ }
timeout {
- fail "(timeout) print foo::funclocal" ; return
+ fail "(timeout) print foo::funclocal at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal\n"
+ send_gdb "print 'scope1.c'::foo::funclocal\n"
expect {
- -re "\\\$$decimal = 3\r\n$prompt $" { pass "print 'scope1.c'::foo::funclocal" }
+ -re "\\\$$decimal = 3\r\n$prompt $" {
+ pass "print 'scope1.c'::foo::funclocal at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::foo::funclocal" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::foo::funclocal at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::foo::funclocal" ; return
+ fail "(timeout) print 'scope1.c'::foo::funclocal at bar" ; return
}
}
# Print scope1.c::foo::funclocal_bss, which is 103
- send "print foo::funclocal_bss\n"
+ send_gdb "print foo::funclocal_bss\n"
expect {
- -re "\\\$$decimal = 103\r\n$prompt $" { pass "print foo::funclocal_bss" }
- -re "$prompt $" { fail "print foo::funclocal_bss" ; return }
+ -re "\\\$$decimal = 103\r\n$prompt $" {
+ pass "print foo::funclocal_bss at bar"
+ }
+ -re "$prompt $" {
+ fail "print foo::funclocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print foo::funclocal_bss" ; return
+ fail "(timeout) print foo::funclocal_bss at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal_bss\n"
+ send_gdb "print 'scope1.c'::foo::funclocal_bss\n"
expect {
- -re "\\\$$decimal = 103\r\n$prompt $" { pass "print 'scope1.c'::foo::funclocal_bss" }
+ -re "\\\$$decimal = 103\r\n$prompt $" {
+ pass "print 'scope1.c'::foo::funclocal_bss at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal_bss\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::foo::funclocal_bss" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::foo::funclocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::foo::funclocal_bss" ; return
+ fail "(timeout) print 'scope1.c'::foo::funclocal_bss at bar" ; return
}
}
# Print scope1.c::foo::funclocal_ro, which is 203
- send "print foo::funclocal_ro\n"
+ send_gdb "print foo::funclocal_ro\n"
expect {
- -re "\\\$$decimal = 203\r\n$prompt $" { pass "print foo::funclocal_ro" }
- -re "$prompt $" { fail "print foo::funclocal_ro" ; return }
+ -re "\\\$$decimal = 203\r\n$prompt $" {
+ pass "print foo::funclocal_ro at bar"
+ }
+ -re "$prompt $" {
+ fail "print foo::funclocal_ro at bar" ; return
+ }
timeout {
- fail "(timeout) print foo::funclocal_ro" ; return
+ fail "(timeout) print foo::funclocal_ro at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::foo::funclocal_ro\n"
+ send_gdb "print 'scope1.c'::foo::funclocal_ro\n"
expect {
- -re "\\\$$decimal = 203\r\n$prompt $" { pass "print 'scope1.c'::foo::funclocal_ro" }
+ -re "\\\$$decimal = 203\r\n$prompt $" {
+ pass "print 'scope1.c'::foo::funclocal_ro at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::foo::funclocal_ro\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::foo::funclocal_ro" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::foo::funclocal_ro at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::foo::funclocal_ro" ; return
+ fail "(timeout) print 'scope1.c'::foo::funclocal_ro at bar" ; return
}
}
# Print scope1.c::bar::funclocal, which is 4
- send "print funclocal\n"
+ send_gdb "print funclocal\n"
expect {
- -re "\\\$$decimal = 4\r\n$prompt $" { pass "print funclocal" }
- -re "$prompt $" { fail "print funclocal" ; return }
+ -re "\\\$$decimal = 4\r\n$prompt $" {
+ pass "print funclocal at bar"
+ }
+ -re "$prompt $" {
+ fail "print funclocal at bar" ; return
+ }
timeout {
- fail "(timeout) print funclocal" ; return
+ fail "(timeout) print funclocal at bar" ; return
}
}
- send "print bar::funclocal\n"
+ send_gdb "print bar::funclocal\n"
expect {
- -re "\\\$$decimal = 4\r\n$prompt $" { pass "print bar::funclocal" }
- -re "$prompt $" { fail "print bar::funclocal" ; return }
+ -re "\\\$$decimal = 4\r\n$prompt $" {
+ pass "print bar::funclocal at bar"
+ }
+ -re "$prompt $" {
+ fail "print bar::funclocal at bar" ; return
+ }
timeout {
- fail "(timeout) print bar::funclocal" ; return
+ fail "(timeout) print bar::funclocal at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::bar::funclocal\n"
+ send_gdb "print 'scope1.c'::bar::funclocal\n"
expect {
- -re "\\\$$decimal = 4\r\n$prompt $" { pass "print 'scope1.c'::bar::funclocal" }
+ -re "\\\$$decimal = 4\r\n$prompt $" {
+ pass "print 'scope1.c'::bar::funclocal at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::bar::funclocal\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::bar::funclocal" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::bar::funclocal at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::bar::funclocal" ; return
+ fail "(timeout) print 'scope1.c'::bar::funclocal at bar" ; return
}
}
# Print scope1.c::bar::funclocal_bss, which is 104
- send "print funclocal_bss\n"
+ send_gdb "print funclocal_bss\n"
expect {
- -re "\\\$$decimal = 104\r\n$prompt $" { pass "print funclocal_bss" }
- -re "$prompt $" { fail "print funclocal_bss" ; return }
+ -re "\\\$$decimal = 104\r\n$prompt $" {
+ pass "print funclocal_bss at bar"
+ }
+ -re "$prompt $" {
+ fail "print funclocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print funclocal_bss" ; return
+ fail "(timeout) print funclocal_bss at bar" ; return
}
}
- send "print bar::funclocal_bss\n"
+ send_gdb "print bar::funclocal_bss\n"
expect {
- -re "\\\$$decimal = 104\r\n$prompt $" { pass "print bar::funclocal_bss" }
- -re "$prompt $" { fail "print bar::funclocal_bss" ; return }
+ -re "\\\$$decimal = 104\r\n$prompt $" {
+ pass "print bar::funclocal_bss at bar"
+ }
+ -re "$prompt $" {
+ fail "print bar::funclocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print bar::funclocal_bss" ; return
+ fail "(timeout) print bar::funclocal_bss at bar" ; return
}
}
if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
- send "print 'scope1.c'::bar::funclocal_bss\n"
+ send_gdb "print 'scope1.c'::bar::funclocal_bss\n"
expect {
- -re "\\\$$decimal = 104\r\n$prompt $" { pass "print 'scope1.c'::bar::funclocal_bss" }
+ -re "\\\$$decimal = 104\r\n$prompt $" {
+ pass "print 'scope1.c'::bar::funclocal_bss at bar"
+ }
-re "No symbol \"scope1.c\" in current context.*$prompt $" {
- send "print '$srcdir/$subdir/scope1.c'::bar::funclocal_bss\n"
+ send_gdb "print '$srcdir/$subdir/scope1.c'::bar::funclocal_bss\n"
exp_continue
}
- -re "$prompt $" { fail "print 'scope1.c'::bar::funclocal_bss" ; return }
+ -re "$prompt $" {
+ fail "print 'scope1.c'::bar::funclocal_bss at bar" ; return
+ }
timeout {
- fail "(timeout) print 'scope1.c'::bar::funclocal_bss" ; return
+ fail "(timeout) print 'scope1.c'::bar::funclocal_bss at bar" ; return
}
}
}
# Test symbol table lookup with 100 local (auto) variables.
- send "break marker1\n" ; expect -re ".*$prompt $"
+ send_gdb "break marker1\n" ; expect -re ".*$prompt $"
- send "cont\n"
+ send_gdb "cont\n"
expect {
-re "Break.* marker1 \\(\\) at .*:$decimal.*$prompt $" {
- send "up\n"
+ send_gdb "up\n"
expect {
-re ".*$prompt $" {}
- timeout { fail "up from marker1" ; return }
+ timeout { fail "(timeout) up from marker1" ; return }
}
}
-re "$prompt $" { fail "continue to marker1" ; return }
set count 0
while {$count < 100} {
- send "print i$count\n"
+ send_gdb "print i$count\n"
expect {
-re ".* = $count\r\n$prompt $" {}
-re "$prompt $" {
global hex
global srcfile
- send "break marker2\n" ; expect -re ".*$prompt $"
- send "break marker3\n" ; expect -re ".*$prompt $"
- send "break marker4\n" ; expect -re ".*$prompt $"
+ send_gdb "break marker2\n" ; expect -re ".*$prompt $"
+ send_gdb "break marker3\n" ; expect -re ".*$prompt $"
+ send_gdb "break marker4\n" ; expect -re ".*$prompt $"
- send "cont\n"
+ send_gdb "cont\n"
expect {
-re "Break.* marker2 \\(\\) at .*:$decimal.*$prompt $" {
- send "up\n"
+ send_gdb "up\n"
expect {
-re ".*$prompt $" {}
- timeout { fail "up from marker2" ; return }
+ timeout { fail "(timeout) up from marker2" ; return }
}
}
-re "$prompt $" { fail "continue to marker2" ; return }
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-gdb_load $objdir/$subdir/$binfile
+gdb_load ${binfile}
if [istarget "*-*-vxworks*"] {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
}
# Test that variables in various segments print out correctly before
# so we actually read memory from the board. Problem is crt0.o
# is responsible for clearing bss and that hasnt' happened yet.
setup_xfail "hppa*-*-*pro*"
-if {$gcc_compiled} then { setup_xfail "rs6000-*-*" }
-send "print 'scope0.c'::filelocal_bss\n"
+send_gdb "print 'scope0.c'::filelocal_bss\n"
expect {
-re " = 0\r\n$prompt $" {
pass "print 'scope0.c'::filelocal_bss before run"
}
}
-# AIX--sections get mapped to the same address so we can't get the right one.
-setup_xfail "rs6000-*-*"
-
gdb_test "print 'scope0.c'::filelocal" "= 1" \
"print 'scope0.c'::filelocal before run"
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
+ gdb_load ${binfile}
}
if [runto foo] then { test_at_foo }
if [istarget "mips-idt-*"] then {
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
+ gdb_load ${binfile}
}
if [runto bar] then { test_at_bar }
if [istarget "mips-idt-*"] then {
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
+ gdb_load ${binfile}
}
if [runto localscopes] then { test_at_localscopes }
if [istarget "mips-idt-*"] then {
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
+ gdb_load ${binfile}
}
if [runto autovars] then { test_at_autovars }
if [istarget "*-*-vxworks*"] {
set timeout 120
+ verbose "Timeout is now $timeout seconds" 2
}
--- /dev/null
+# Copyright (C) 1992, 1994 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:
+# bug-gdb@prep.ai.mit.edu
+
+# This file was written by Michael Snyder (msnyder@cygnus.com)
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set prms_id 0
+set bug_id 0
+
+set testfile "setshow"
+set srcfile ${srcdir}/${subdir}/${testfile}.c
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile ${srcfile} ${binfile} executable {debug}] != "" } {
+ perror "Couldn't compile ${srcfile}"
+ return -1
+}
+
+# Start with a fresh gdb
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load ${binfile}
+
+#
+# Test gdb set and show commands.
+# Add tests here for show and set that don't fit neatly elsewhere.
+# FIXME: many rudimentary tests for set and show commands have been
+# added below, but most do nothing more than check that a
+# variable has been set successfully, ie. they do not test
+# whether setting the variable has had the desired effect.
+#
+
+#test default annotation_level is 0
+gdb_test "show annotate" "Annotation_level is 0..*" "default annotation_level is zero"
+
+#test set annotate 2
+send_gdb "set annotate 2\n"
+expect {
+ -re ".*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \
+ { pass "set annotate 2" }
+ -re ".*$prompt $" { fail "set annotate 2" }
+ timeout { fail "(timeout) set annotate 2" }
+ }
+
+send_gdb "show annotate\n"
+expect {
+ -re ".*\032\032post-prompt.*Annotation_level is 2..*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \
+ { pass "show annotate (2)" }
+ -re ".*$prompt $" { fail "show annotate (2)" }
+ timeout { fail "(timeout) show annotate (2)" }
+ }
+
+#test annotation_level 2
+send_gdb "info line 1\n"
+expect {
+ -re ".*\032\032post-prompt.*Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*\032\032pre-prompt.*$prompt .*\032\032prompt.*$" \
+ { pass "annotation_level 2" }
+ -re ".*$prompt $" { fail "annotation_level 2" }
+ timeout { fail "(timeout) annotation_level 2" }
+ }
+
+#test set annotate 1
+gdb_test "set annotate 1" ".*post-prompt.*" "set annotate 1"
+gdb_test "show annotate" "Annotation_level is 1..*" "show annotate (1)"
+#test annotation_level 1
+gdb_test "info line 1" "Line 1 of .* is at address .* but contains no code.*:1:0:beg:0x.*" "annotation_level 1"
+#test set annotate 0
+gdb_test "set annotate 0" "" "set annotate 0"
+gdb_test "show annotate" "Annotation_level is 0..*" "show annotate (0)"
+#test annotation_level 0
+gdb_test "info line 1" "Line 1 of .* is at address .* but contains no code.*" "annotation_level 0"
+#test set args
+gdb_test "set args foo bar blup baz bubble" "" "set args"
+#test show args
+gdb_test "show args" "Arguments to give program being debugged when it is started is \"foo bar blup baz bubble\"..*" "show args"
+#test passing args
+gdb_test "run" "Starting program:.*foo bar blup baz bubble.*" "passing args"
+#test set check range on
+gdb_test "set check range on" "" "set check range on"
+#test show check range on
+gdb_test "show check range" "Range checking is \"on\"\..*" "show check range (on)"
+#test set check range auto
+gdb_test "set check range auto" "" "set check range auto"
+#test show check range auto
+gdb_test "show check range" "Range checking is \"auto; currently .*" "show check range (auto)"
+#test set check type on
+gdb_test "set check type on" "" "set check type on"
+#test show check type on
+gdb_test "show check type" "Type checking is \"on\"..*" "show check type (on)"
+#test set check type auto
+gdb_test "set check type auto" "" "set check type auto"
+#test show check type
+gdb_test "show check type" "Type checking is \"auto; currently .*" "show check type (auto)"
+#test set complaints 100
+gdb_test "set complaints 100" "" "set complaints 100"
+#test show complaints 100
+gdb_test "show complaints" "Max number of complaints about incorrect symbols is 100..*" "show complaints (100)"
+#test set complaints 0
+gdb_test "set complaints 0" "" "set complaints 0"
+#test show complaints 0
+gdb_test "show complaints" "Max number of complaints about incorrect symbols is 0..*" "show complaints (0)"
+#test set confirm off
+gdb_test "set confirm off" "" "set confirm off"
+#test show confirm off
+gdb_test "show confirm" "Whether to confirm potentially dangerous operations is off..*" "show confirm (off)"
+#test set confirm on
+gdb_test "set confirm on" "" "set confirm on"
+#test show confirm on
+gdb_test "show confirm" "Whether to confirm potentially dangerous operations is on..*" "show confirm (on)"
+#test set editing off
+gdb_test "set editing off" "" "set editing off"
+#test show editing off
+gdb_test "show editing" "Editing of command lines as they are typed is off..*" "show editing (off)"
+#test set editing on
+#gdb_test "set editing on" "" "set editing on"
+#test show editing on
+#gdb_test "show editing" "Editing of command lines as they are typed is on..*" "show editing (on)"
+#test set environment FOOBARBAZ
+gdb_test "set environment FOOBARBAZ = grbxgrbxgrbx" "" "set environment FOOBARBAZ"
+#test show environment FOOBARBAZ
+gdb_test "show environment FOOBARBAZ" "FOOBARBAZ = grbxgrbxgrbx.*" "show environment FOOBARBAZ"
+#test set height 100
+gdb_test "set height 100" "" "set height 100"
+#test show height 100
+gdb_test "show height" "Number of lines gdb thinks are in a page is 100..*" "show height"
+#test set history expansion on
+gdb_test "set history expansion on" "" "set history expansion on"
+#test show history expansion on
+gdb_test "show history expansion on" "History expansion on command input is on.*" "show history expansion"
+#test set history filename foobar.baz
+gdb_test "set history filename foobar.baz" "" "set history filename foobar.baz"
+#test show history filename foobar.baz
+gdb_test "show history filename" "The filename in which to record the command history is \"foobar.baz\"..*" "show history filename (foobar.baz)"
+#test set history save on
+gdb_test "set history save on" "" "set history save on"
+#test show history save on
+gdb_test "show history save" "Saving of the history record on exit is on..*" "show history save (on)"
+#test set history size 100
+gdb_test "set history size 100" "" "set history size 100"
+#test show history size 100
+gdb_test "show history size" "The size of the command history is 100..*" "show history size (100)"
+#test set language asm
+gdb_test "set language asm" "" "set language asm"
+#test show language asm
+gdb_test "show language" "The current source language is \"asm\"..*" "show language (asm)"
+#test set language auto
+gdb_test "set language auto" "" "set language auto"
+#test show language
+gdb_test "show language" "The current source language is \"auto\"..*" "show language (auto)"
+#test set listsize 100
+gdb_test "set listsize 100" "" "set listsize 100"
+#test show listsize 100
+gdb_test "show listsize" "Number of source lines gdb will list by default is 100..*" "show listsize (100)"
+
+#test set prompt (FooBarBaz)
+set newprompt "\\(FooBarBaz\\)"
+send_gdb "set prompt (FooBarBaz) \n"
+expect {
+ -re "$newprompt $" { pass "set prompt (FooBarBaz) " }
+ timeout { fail "(timeout) set prompt (FooBarBaz) " }
+ }
+
+#test show prompt (FooBarBaz)
+send_gdb "show prompt\n"
+expect {
+ -re "Gdb's prompt is \"$newprompt \"..* $" \
+ { pass "show prompt (FooBarBaz) " }
+ timeout { fail "(timeout) show prompt (FooBarBaz) " }
+ }
+
+#test set prompt (gdb)
+send_gdb "set prompt (gdb) \n"
+expect {
+ -re "$prompt $" { pass "set prompt (gdb) " }
+ timeout { fail "(timeout) set prompt (gdb) " }
+ }
+
+#test set radix 11
+gdb_test "set radix 11" "Unsupported output radix ``decimal 11''; output radix unchanged..*" "set radix 11"
+#test set radix 16
+gdb_test "set radix 16" "Input and output radices now set to decimal 16, hex 10, octal 20..*" "set radix 16"
+#test show radix 16
+gdb_test "show radix" "Input and output radices set to decimal 16, hex 10, octal 20..*" "show radix (16)"
+#test set radix 10
+gdb_test "set radix" "Input and output radices now set to decimal 10, hex a, octal 12..*" "set radix 10"
+#test show radix 10
+gdb_test "show radix" "Input and output radices set to decimal 10, hex a, octal 12..*" "show radix (10)"
+#test set width 90
+gdb_test "set width 90" "" "set width 90"
+#test show width 90
+gdb_test "show width" "Number of characters gdb thinks are in a line is 90..*" "show width (90)"
+#test set write on
+# This is only supported on targets which use exec.o.
+gdb_test "set write on" "" "set write on"
+#test show write on
+# This is only supported on targets which use exec.o.
+gdb_test "show write" "Writing into executable and core files is on..*" "show write (on)"
+#test set symbol-reloading on
+gdb_test "set symbol-reloading on" "" "set symbol-reloading on"
+#test show symbol-reloading on
+gdb_test "show symbol-reloading" "Dynamic symbol table reloading multiple times in one run is on..*" "show symbol-reloading (on)"
+#test show user
+gdb_test "show user" "" "show user"
+#test set verbose on
+gdb_test "set verbose on" "" "set verbose on"
+#test show verbose on
+gdb_test "show verbose" "Verbose printing of informational messages is on..*" "show verbose (on)"
+#test set verbose off
+gdb_test "set verbose off" "" "set verbose off"
+#test show verbose off
+gdb_test "show verbose" "Verbosity is off..*" "show verbose (off)"
set bug_id 0
set testfile "setvar"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${testfile}.ci file"
- return -1
+# Create and source the file that provides information about the compiler
+# used to compile the test case.
+if [get_compiler_info ${binfile}] {
+ return -1;
}
gdb_exit
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
-source ${binfile}.ci
-
#
# set it up at a breakpoint so we canplay with the variable values
#
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
+send_gdb "set print sevenbit-strings\n" ; expect -re "$prompt $"
if ![runto_main] then {
perror "couldn't run to breakpoint"
set ulong_minus_1 4294967295
set ulong_minus_456 4294966840
-send "print sizeof (unsigned long)\n"
+send_gdb "print sizeof (unsigned long)\n"
expect {
-re ".\[0-9\]* = 4.*$prompt $" {}
-re ".\[0-9\]* = 8.*$prompt $" {
default { fail "(timeout) getting sizeof unsigned long" }
}
+proc test_set { args } {
+ global prompt
+
+ set length [expr [llength $args] - 3];
+ set print_cmd "[lindex $args $length]";
+ set print_result "[lindex $args [expr $length + 1]]";
+ set message "[lindex $args [expr $length + 2]]";
+
+ # Set up the variables.
+ for {set x 0;} {$x < $length} {incr x;} {
+ if { "[lindex $args $x]" != "" } {
+ verbose "doing [lindex $args $x]"
+ gdb_test "[lindex $args $x]" "" "$message (setting variable)"
+ }
+ }
+ verbose "expecting $print_result from '$print_cmd'"
+ # Now run the test.
+ gdb_test "$print_cmd" "$print_result" "$message";
+}
+
#
# test "set variable" for type "char"
#
# Because bare char types can be either signed or unsigned, we just test the
# range of values that are common to both (0-127).
#
-send "set variable v_char=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable char=0" }
- -re "$prompt $" { fail "set variable char=0" }
- timeout { fail "(timeout) set variable char=0" }
- }
- }
- -re "$prompt $" { fail "set variable char=0" }
- timeout { fail "(timeout) set variable char=0" }
-}
-
-
-send "set variable v_char=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable char=1" }
- -re "$prompt $" { fail "set variable char=1" }
- timeout { fail "(timeout) set variable char=1" }
- }
- }
- -re "$prompt $" { fail "set variable char=1" }
- timeout { fail "(timeout) set variable char=1" }
-}
-
-
-send "set variable v_char=27\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable char=27 (Esc)" }
- -re "$prompt $" { fail "set variable char=27 (Esc)" }
- timeout { fail "(timeout) set variable char=27 (Esc)" }
- }
- }
- -re "$prompt $" { fail "set variable char=27 (Esc)" }
- timeout { fail "(timeout) set variable char=27 (Esc)" }
-}
-
-
-send "set variable v_char=32\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable char=32 (SPC)" }
- -re "$prompt $" { fail "set variable char=32 (SPC)" }
- timeout { fail "(timeout) set variable char=32 (SPC)" }
- }
- }
- -re "$prompt $" { fail "set variable char=32 (SPC)" }
- timeout { fail "(timeout) set variable char=32 (SPC)" }
-}
-
-
-send "set variable v_char=65\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable char=65 ('A')" }
- -re "$prompt $" { fail "set variable char=65 ('A')" }
- timeout { fail "(timeout) set variable char=65 ('A')" }
- }
- }
- -re "$prompt $" { fail "set variable char=65 ('A')" }
- timeout { fail "(timeout) set variable char=65 ('A')" }
-}
-
-
-send "set variable v_char=97\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable char=97 ('a')" }
- -re "$prompt $" { fail "set variable char=97 ('a')" }
- timeout { fail "(timeout) set variable char=97 ('a')" }
- }
- }
- -re "$prompt $" { fail "set variable char=97 ('a')" }
- timeout { fail "(timeout) set variable char=97 ('a')" }
-}
-
-
-send "set variable v_char=126\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable char=126 ('~')" }
- -re "$prompt $" { fail "set variable char=126 ('~')" }
- timeout { fail "(timeout) set variable char=126 ('~')" }
- }
- }
- -re "$prompt $" { fail "set variable char=126 ('~')" }
- timeout { fail "(timeout) set variable char=126 ('~')" }
-}
-
-
-send "set variable v_char=127\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_char\n"
- expect {
- -re ".\[0-9\]* = 127 \'.177\'.*$prompt $" { pass "set variable char=127 (8-bit)" }
- -re "$prompt $" { fail "set variable char=127 (8-bit)" }
- timeout { fail "(timeout) set variable char=127 (8-bit)" }
- }
- }
- -re "$prompt $" { fail "set variable char=127 (8-bit)" }
- timeout { fail "(timeout) set variable char=127 (8-bit)" }
-}
-
+test_set "set variable v_char=0" "print v_char" ".\[0-9\]* = 0 \'.000\'" "set variable char=0"
+test_set "set variable v_char=1" "print v_char" ".\[0-9\]* = 1 \'.001\'" "set variable char=1"
+test_set "set variable v_char=27" "print v_char" ".\[0-9\]* = 27 \'.e\'" "set variable char=27 (Esc)"
+test_set "set variable v_char=32" "print v_char" ".\[0-9\]* = 32 \' \'" "set variable char=32 (SPC)"
+test_set "set variable v_char=65" "print v_char" ".\[0-9\]* = 65 \'A\'" "set variable char=65 ('A')"
+test_set "set variable v_char=97" "print v_char" ".\[0-9\]* = 97 \'a\'" "set variable char=97 ('a')"
+test_set "set variable v_char=126" "print v_char" ".\[0-9\]* = 126 \'~\'" "set variable char=126 ('~')"
+test_set "set variable v_char=127" "print v_char" ".\[0-9\]* = 127 \'.177\'" "set variable char=127 (8-bit)"
#
# test "set variable" for type "signed char"
#
-send "set variable v_char=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable signed char=0" }
- -re "$prompt $" { fail "set variable signed char=0" }
- timeout { fail "(timeout) set variable signed char=0" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=0" }
- timeout { fail "(timeout) set variable signed char=0" }
-}
-
-
-send "set variable v_signed_char=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable signed char=1" }
- -re "$prompt $" { fail "set variable signed char=1" }
- timeout { fail "(timeout) set variable signed char=1" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=1" }
- timeout { fail "(timeout) set variable signed char=1" }
-}
-
-
-send "set variable v_signed_char=27\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable signed char=27 (Esc)" }
- -re "$prompt $" { fail "set variable signed char=27 (Esc)" }
- timeout { fail "(timeout) set variable signed char=27 (Esc)" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=27 (Esc)" }
- timeout { fail "(timeout) set variable signed char=27 (Esc)" }
-}
-
-
-send "set variable v_signed_char=32\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable signed char=32 (SPC)" }
- -re "$prompt $" { fail "set variable signed char=32 (SPC)" }
- timeout { fail "(timeout) set variable signed char=32 (SPC)" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=32 (SPC)" }
- timeout { fail "(timeout) set variable signed char=32 (SPC)" }
-}
-
-
-send "set variable v_signed_char=65\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable signed char=65 ('A')" }
- -re "$prompt $" { fail "set variable signed char=65 ('A')" }
- timeout { fail "(timeout) set variable signed char=65 ('A')" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=65 ('A')" }
- timeout { fail "(timeout) set variable signed char=65 ('A')" }
-}
-
-
-send "set variable v_signed_char=97\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable signed char=97 ('a')" }
- -re "$prompt $" { fail "set variable signed char=97 ('a')" }
- timeout { fail "(timeout) set variable signed char=97 ('a')" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=97 ('a')" }
- timeout { fail "(timeout) set variable signed char=97 ('a')" }
-}
-
-
-send "set variable v_signed_char=126\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable signed char=126 ('~')" }
- -re "$prompt $" { fail "set variable signed char=126 ('~')" }
- timeout { fail "(timeout) set variable signed char=126 ('~')" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=126 ('~')" }
- timeout { fail "(timeout) set variable signed char=126 ('~')" }
-}
-
-
-send "set variable v_signed_char=127\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_char\n"
- expect {
- -re ".\[0-9\]* = 127 \'.177\'.*$prompt $" { pass "set variable signed char=127 (8-bit)" }
- -re "$prompt $" { fail "set variable signed char=127 (8-bit)" }
- timeout { fail "(timeout) set variable signed char=127 (8-bit)" }
- }
- }
- -re "$prompt $" { fail "set variable signed char=127 (8-bit)" }
- timeout { fail "(timeout) set variable signed char=127 (8-bit)" }
-}
-
-
+test_set "set variable v_char=0" "print v_signed_char" ".\[0-9\]* = 0 \'.000\'" "set variable signed char=0"
+test_set "set variable v_signed_char=1" "print v_signed_char" ".\[0-9\]* = 1 \'.001\'" "set variable signed char=1"
+test_set "set variable v_signed_char=27" "print v_signed_char" ".\[0-9\]* = 27 \'.e\'" "set variable signed char=27 (Esc)"
+test_set "set variable v_signed_char=32" "print v_signed_char" ".\[0-9\]* = 32 \' \'" "set variable signed char=32 (SPC)"
+test_set "set variable v_signed_char=65" "print v_signed_char" ".\[0-9\]* = 65 \'A\'" "set variable signed char=65 ('A')"
+test_set "set variable v_signed_char=97" "print v_signed_char" ".\[0-9\]* = 97 \'a\'" "set variable signed char=97 ('a')"
+test_set "set variable v_signed_char=126" "print v_signed_char" ".\[0-9\]* = 126 \'~\'" "set variable signed char=126 ('~')"
+test_set "set variable v_signed_char=127" "print v_signed_char" ".\[0-9\]* = 127 \'.177\'" "set variable signed char=127 (8-bit)"
gdb_test "set variable v_signed_char=-1" ""
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \
"set variable signed char=-1 (-1)"
-
gdb_test "set variable v_signed_char=0xFF" ""
if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" }
gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \
"set variable signed char=0xFF (0xFF)"
-
-
#
# test "set variable" for type "unsigned char"
#
-send "set variable v_unsigned_char=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 0 \'.000\'.*$prompt $" { pass "set variable unsigned char=0" }
- -re "$prompt $" { fail "set variable unsigned char=0" }
- timeout { fail "(timeout) set variable unsigned char=0" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=0" }
- timeout { fail "(timeout) set variable unsigned char=0" }
-}
-
-
-send "set variable v_unsigned_char=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 1 \'.001\'.*$prompt $" { pass "set variable unsigned char=1" }
- -re "$prompt $" { fail "set variable unsigned char=1" }
- timeout { fail "(timeout) set variable unsigned char=1" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=1" }
- timeout { fail "(timeout) set variable unsigned char=1" }
-}
-
-
-send "set variable v_unsigned_char=27\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 27 \'.e\'.*$prompt $" { pass "set variable unsigned char=27 (Esc)" }
- -re "$prompt $" { fail "set variable unsigned char=27 (Esc)" }
- timeout { fail "(timeout) set variable unsigned char=27 (Esc)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=27 (Esc)" }
- timeout { fail "(timeout) set variable unsigned char=27 (Esc)" }
-}
-
-
-send "set variable v_unsigned_char=32\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 32 \' \'.*$prompt $" { pass "set variable unsigned char=32 (SPC)" }
- -re "$prompt $" { fail "set variable unsigned char=32 (SPC)" }
- timeout { fail "(timeout) set variable unsigned char=32 (SPC)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=32 (SPC)" }
- timeout { fail "(timeout) set variable unsigned char=32 (SPC)" }
-}
-
-
-send "set variable v_unsigned_char=65\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 65 \'A\'.*$prompt $" { pass "set variable unsigned char=65 ('A')" }
- -re "$prompt $" { fail "set variable unsigned char=65 ('A')" }
- timeout { fail "(timeout) set variable unsigned char=65 ('A')" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=65 ('A')" }
- timeout { fail "(timeout) set variable unsigned char=65 ('A')" }
-}
-
-
-send "set variable v_unsigned_char=97\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 97 \'a\'.*$prompt $" { pass "set variable unsigned char=97 ('a')" }
- -re "$prompt $" { fail "set variable unsigned char=97 ('a')" }
- timeout { fail "(timeout) set variable unsigned char=97 ('a')" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=97 ('a')" }
- timeout { fail "(timeout) set variable unsigned char=97 ('a')" }
-}
-
-
-send "set variable v_unsigned_char=126\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 126 \'~\'.*$prompt $" { pass "set variable unsigned char=126 ('~')" }
- -re "$prompt $" { fail "set variable unsigned char=126 ('~')" }
- timeout { fail "(timeout) set variable unsigned char=126 ('~')" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=126 ('~')" }
- timeout { fail "(timeout) set variable unsigned char=126 ('~')" }
-}
-
-
-send "set variable v_unsigned_char=~0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_char\n"
- expect {
- -re ".\[0-9\]* = 255 \'.377\'.*$prompt $" { pass "set variable unsigned char=255 (8-bit)" }
- -re "$prompt $" { fail "set variable unsigned char=255 (8-bit)" }
- timeout { fail "(timeout) set variable unsigned char=255 (8-bit)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char=255 (8-bit)" }
- timeout { fail "(timeout) set variable unsigned char=255 (8-bit)" }
-}
-
-
+test_set "set variable v_unsigned_char=0" "print v_unsigned_char" ".\[0-9\]* = 0 \'.000\'" "set variable unsigned char=0"
+test_set "set variable v_unsigned_char=1" "print v_unsigned_char" ".\[0-9\]* = 1 \'.001\'" "set variable unsigned char=1"
+test_set "set variable v_unsigned_char=27" "print v_unsigned_char" ".\[0-9\]* = 27 \'.e\'" "set variable unsigned char=27 (Esc)"
+test_set "set variable v_unsigned_char=32" "print v_unsigned_char" ".\[0-9\]* = 32 \' \'" "set variable unsigned char=32 (SPC)"
+test_set "set variable v_unsigned_char=65" "print v_unsigned_char" ".\[0-9\]* = 65 \'A\'" "set variable unsigned char=65 ('A')"
+test_set "set variable v_unsigned_char=97" "print v_unsigned_char" ".\[0-9\]* = 97 \'a\'" "set variable unsigned char=97 ('a')"
+test_set "set variable v_unsigned_char=126" "print v_unsigned_char" ".\[0-9\]* = 126 \'~\'" "set variable unsigned char=126 ('~')"
+test_set "set variable v_unsigned_char=~0" "print v_unsigned_char" ".\[0-9\]* = 255 \'.377\'" "set variable unsigned char=255 (8-bit)"
#
# test "set variable" for type "short"
#
-send "set variable v_short=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_short\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable short=0" }
- -re "$prompt $" { fail "set variable short=0" }
- timeout { fail "(timeout) set variable short=0" }
- }
- }
- -re "$prompt $" { fail "set variable short=0" }
- timeout { fail "(timeout) set variable short=0" }
-}
-
-
-send "set variable v_short=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_short\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable short=1" }
- -re "$prompt $" { fail "set variable short=1" }
- timeout { fail "(timeout) set variable short=1" }
- }
- }
- -re "$prompt $" { fail "set variable short=1" }
- timeout { fail "(timeout) set variable short=1" }
-}
-
-
-send "set variable v_short=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_short\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable short=-1 (minus)" }
- -re "$prompt $" { fail "set variable short=-1 (minus)" }
- timeout { fail "(timeout) set variable signed short=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable short=-1 (minus)" }
- timeout { fail "(timeout) set variable short=-1 (minus)" }
-}
-
-
+test_set "set variable v_short=0" "print v_short" ".\[0-9\]* = 0" "set variable short=0"
+test_set "set variable v_short=1" "print v_short" ".\[0-9\]* = 1" "set variable short=1"
+test_set "set variable v_short=-1" "print v_short" ".\[0-9\]* = -1" "set variable short=-1 (minus)"
#
# test "set variable" for type "signed short"
#
-send "set variable v_signed_short=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_short\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed short=0" }
- -re "$prompt $" { fail "set variable signed short=0" }
- timeout { fail "(timeout) set variable signed short=0" }
- }
- }
- -re "$prompt $" { fail "set variable signed short=0" }
- timeout { fail "(timeout) set variable signed short=0" }
-}
-
-
-send "set variable v_signed_short=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_short\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed short=1" }
- -re "$prompt $" { fail "set variable signed short=1" }
- timeout { fail "(timeout) set variable signed short=1" }
- }
- }
- -re "$prompt $" { fail "set variable signed short=1" }
- timeout { fail "(timeout) set variable signed short=1" }
-}
-
-
-send "set variable v_signed_short=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_short\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed short=-1 (minus)" }
- -re "$prompt $" { fail "set variable signed short=-1 (minus)" }
- timeout { fail "(timeout) set variable signed short=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable signed short=-1 (minus)" }
- timeout { fail "(timeout) set variable signed short=-1 (minus)" }
-}
-
-
+test_set "set variable v_signed_short=0" "print v_signed_short" ".\[0-9\]* = 0" "set variable signed short=0"
+test_set "set variable v_signed_short=1" "print v_signed_short" ".\[0-9\]* = 1" "set variable signed short=1"
+test_set "set variable v_signed_short=-1" "print v_signed_short" ".\[0-9\]* = -1" "set variable signed short=-1 (minus)"
#
# test "set variable" for type "unsigned short"
#
-send "set variable v_unsigned_short=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_short\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned short=0" }
- -re "$prompt $" { fail "set variable unsigned short=0" }
- timeout { fail "(timeout) set variable unsigned short=0" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned short=0" }
- timeout { fail "(timeout) set variable unsigned short=0" }
-}
-
-
-send "set variable v_unsigned_short=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_short\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned short=1" }
- -re "$prompt $" { fail "set variable unsigned short=1" }
- timeout { fail "(timeout) set variable unsigned short=1" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned short=1" }
- timeout { fail "(timeout) set variable unsigned short=1" }
-}
-
-
-send "set variable v_unsigned_short=~0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_short\n"
- expect {
- -re ".\[0-9\]* = 65535.*$prompt $" { pass "set variable unsigned short=~0 (minus)" }
- -re "$prompt $" { fail "set variable unsigned short=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned short=~0 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned short=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned short=~0 (minus)" }
-}
-
-
+test_set "set variable v_unsigned_short=0" "print v_unsigned_short" ".\[0-9\]* = 0" "set variable unsigned short=0"
+test_set "set variable v_unsigned_short=1" "print v_unsigned_short" ".\[0-9\]* = 1" "set variable unsigned short=1"
+test_set "set variable v_unsigned_short=~0" "print v_unsigned_short" ".\[0-9\]* = 65535" "set variable unsigned short=~0 (minus)"
#
# test "set variable" for type "int"
#
-send "set variable v_int=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_int\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable int=0" }
- -re "$prompt $" { fail "set variable int=0" }
- timeout { fail "(timeout) set variable int=0" }
- }
- }
- -re "$prompt $" { fail "set variable int=0" }
- timeout { fail "(timeout) set variable int=0" }
-}
-
-
-send "set variable v_int=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_int\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable int=1" }
- -re "$prompt $" { fail "set variable int=1" }
- timeout { fail "(timeout) set variable int=1" }
- }
- }
- -re "$prompt $" { fail "set variable int=1" }
- timeout { fail "(timeout) set variable int=1" }
-}
-
-
-send "set variable v_int=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_int\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable int=-1 (minus)" }
- -re "$prompt $" { fail "set variable int=-1 (minus)" }
- timeout { fail "(timeout) set variable signed int=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable int=-1 (minus)" }
- timeout { fail "(timeout) set variable int=-1 (minus)" }
-}
-
-
+test_set "set variable v_int=0" "print v_int" ".\[0-9\]* = 0" "set variable int=0"
+test_set "set variable v_int=1" "print v_int" ".\[0-9\]* = 1" "set variable int=1"
+test_set "set variable v_int=-1" "print v_int" ".\[0-9\]* = -1" "set variable int=-1 (minus)"
#
# test "set variable" for type "signed int"
#
-send "set variable v_signed_int=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_int\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed int=0" }
- -re "$prompt $" { fail "set variable signed int=0" }
- timeout { fail "(timeout) set variable signed int=0" }
- }
- }
- -re "$prompt $" { fail "set variable signed int=0" }
- timeout { fail "(timeout) set variable signed int=0" }
-}
-
-
-send "set variable v_signed_int=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_int\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed int=1" }
- -re "$prompt $" { fail "set variable signed int=1" }
- timeout { fail "(timeout) set variable signed int=1" }
- }
- }
- -re "$prompt $" { fail "set variable signed int=1" }
- timeout { fail "(timeout) set variable signed int=1" }
-}
-
-
-send "set variable v_signed_int=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_int\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed int=-1 (minus)" }
- -re "$prompt $" { fail "set variable signed int=-1 (minus)" }
- timeout { fail "(timeout) set variable signed int=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable signed int=-1 (minus)" }
- timeout { fail "(timeout) set variable signed int=-1 (minus)" }
-}
-
-
+test_set "set variable v_signed_int=0" "print v_signed_int" ".\[0-9\]* = 0" "set variable signed int=0"
+test_set "set variable v_signed_int=1" "print v_signed_int" ".\[0-9\]* = 1" "set variable signed int=1"
+test_set "set variable v_signed_int=-1" "print v_signed_int" ".\[0-9\]* = -1" "set variable signed int=-1 (minus)"
#
# test "set variable" for type "unsigned int"
#
-send "set variable v_unsigned_int=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_int\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned int=0" }
- -re "$prompt $" { fail "set variable unsigned int=0" }
- timeout { fail "(timeout) set variable unsigned int=0" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned int=0" }
- timeout { fail "(timeout) set variable unsigned int=0" }
-}
-
-
-send "set variable v_unsigned_int=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_int\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned int=1" }
- -re "$prompt $" { fail "set variable unsigned int=1" }
- timeout { fail "(timeout) set variable unsigned int=1" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned int=1" }
- timeout { fail "(timeout) set variable unsigned int=1" }
-}
-
-
-send "set variable v_unsigned_int=~0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_int\n"
- expect {
- -re ".\[0-9\]* = 4294967295.*$prompt $" { pass "set variable unsigned int=~0 (minus)" }
- -re "$prompt $" { fail "set variable unsigned int=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned int=~0 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned int=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned int=~0 (minus)" }
-}
-
-
+test_set "set variable v_unsigned_int=0" "print v_unsigned_int" ".\[0-9\]* = 0" "set variable unsigned int=0"
+test_set "set variable v_unsigned_int=1" "print v_unsigned_int" ".\[0-9\]* = 1" "set variable unsigned int=1"
+test_set "set variable v_unsigned_int=~0" "print v_unsigned_int" ".\[0-9\]* = (4294967295|65535)" "set variable unsigned int=~0 (minus)"
+#test_set ".\[0-9\]* = 65535" "set variable unsigned int=~0 (minus)"
#
# test "set variable" for type "long"
#
-send "set variable v_long=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_long\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable long=0" }
- -re "$prompt $" { fail "set variable long=0" }
- timeout { fail "(timeout) set variable long=0" }
- }
- }
- -re "$prompt $" { fail "set variable long=0" }
- timeout { fail "(timeout) set variable long=0" }
-}
-
-
-send "set variable v_long=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_long\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable long=1" }
- -re "$prompt $" { fail "set variable long=1" }
- timeout { fail "(timeout) set variable long=1" }
- }
- }
- -re "$prompt $" { fail "set variable long=1" }
- timeout { fail "(timeout) set variable long=1" }
-}
-
-
-send "set variable v_long=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_long\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable long=-1 (minus)" }
- -re "$prompt $" { fail "set variable long=-1 (minus)" }
- timeout { fail "(timeout) set variable signed long=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable long=-1 (minus)" }
- timeout { fail "(timeout) set variable long=-1 (minus)" }
-}
-
-
+test_set "set variable v_long=0" "print v_long" ".\[0-9\]* = 0" "set variable long=0"
+test_set "set variable v_long=1" "print v_long" ".\[0-9\]* = 1" "set variable long=1"
+test_set "set variable v_long=-1" "print v_long" ".\[0-9\]* = -1" "set variable long=-1 (minus)"
#
# test "set variable" for type "signed long"
#
-send "set variable v_signed_long=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_long\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable signed long=0" }
- -re "$prompt $" { fail "set variable signed long=0" }
- timeout { fail "(timeout) set variable signed long=0" }
- }
- }
- -re "$prompt $" { fail "set variable signed long=0" }
- timeout { fail "(timeout) set variable signed long=0" }
-}
-
-
-send "set variable v_signed_long=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_long\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable signed long=1" }
- -re "$prompt $" { fail "set variable signed long=1" }
- timeout { fail "(timeout) set variable signed long=1" }
- }
- }
- -re "$prompt $" { fail "set variable signed long=1" }
- timeout { fail "(timeout) set variable signed long=1" }
-}
-
-
-send "set variable v_signed_long=-1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_signed_long\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable signed long=-1 (minus)" }
- -re "$prompt $" { fail "set variable signed long=-1 (minus)" }
- timeout { fail "(timeout) set variable signed long=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable signed long=-1 (minus)" }
- timeout { fail "(timeout) set variable signed long=-1 (minus)" }
-}
-
-
+test_set "set variable v_signed_long=0" "print v_signed_long" ".\[0-9\]* = 0" "set variable signed long=0"
+test_set "set variable v_signed_long=1" "print v_signed_long" ".\[0-9\]* = 1" "set variable signed long=1"
+test_set "set variable v_signed_long=-1" "print v_signed_long" ".\[0-9\]* = -1" "set variable signed long=-1 (minus)"
#
# test "set variable" for type "unsigned long"
#
-send "set variable v_unsigned_long=0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_long\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable unsigned long=0" }
- -re "$prompt $" { fail "set variable unsigned long=0" }
- timeout { fail "(timeout) set variable unsigned long=0" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned long=0" }
- timeout { fail "(timeout) set variable unsigned long=0" }
-}
-
-
-send "set variable v_unsigned_long=1\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_long\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable unsigned long=1" }
- -re "$prompt $" { fail "set variable unsigned long=1" }
- timeout { fail "(timeout) set variable unsigned long=1" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned long=1" }
- timeout { fail "(timeout) set variable unsigned long=1" }
-}
-
-
-send "set variable v_unsigned_long=~0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_long\n"
- expect {
- -re ".\[0-9\]* = $ulong_minus_1.*$prompt $" { pass "set variable unsigned long=~0 (minus)" }
- -re "$prompt $" { fail "set variable unsigned long=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned long=~0 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned long=~0 (minus)" }
- timeout { fail "(timeout) set variable unsigned long=~0 (minus)" }
-}
-
-
+test_set "set variable v_unsigned_long=0" "print v_unsigned_long" ".\[0-9\]* = 0" "set variable unsigned long=0"
+test_set "set variable v_unsigned_long=1" "print v_unsigned_long" ".\[0-9\]* = 1" "set variable unsigned long=1"
+test_set "set variable v_unsigned_long=~0" "print v_unsigned_long" ".\[0-9\]* = $ulong_minus_1" "set variable unsigned long=~0 (minus)"
#
# test "set variable" for type "float"
#
-send "set variable v_float=0.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_float\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable float=0" }
- -re "$prompt $" { fail "set variable float=0" }
- timeout { fail "(timeout) set variable float=0" }
- }
- }
- -re "$prompt $" { fail "set variable float=0" }
- timeout { fail "(timeout) set variable float=0" }
-}
-
-
-send "set variable v_float=1.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_float\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable float=1" }
- -re "$prompt $" { fail "set variable float=1" }
- timeout { fail "(timeout) set variable float=1" }
- }
- }
- -re "$prompt $" { fail "set variable float=1" }
- timeout { fail "(timeout) set variable float=1" }
-}
-
-
-send "set variable v_float=-1.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_float\n"
- expect {
- -re ".\[0-9\]* = -1.*$prompt $" { pass "set variable float=-1 (minus)" }
- -re "$prompt $" { fail "set variable float=-1 (minus)" }
- timeout { fail "(timeout) set variable signed float=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable float=-1 (minus)" }
- timeout { fail "(timeout) set variable float=-1 (minus)" }
-}
-
-
+test_set "set variable v_float=0.0" "print v_float" ".\[0-9\]* = 0" "set variable float=0"
+test_set "set variable v_float=1.0" "print v_float" ".\[0-9\]* = 1" "set variable float=1"
+test_set "set variable v_float=-1.0" "print v_float" ".\[0-9\]* = -1" "set variable float=-1 (minus)"
#
# test "set variable" for type "double"
#
-send "set variable v_double=0.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_double\n"
- expect {
- -re ".\[0-9\]* = 0.*$prompt $" { pass "set variable double=0" }
- -re "$prompt $" { fail "set variable double=0" }
- timeout { fail "(timeout) set variable double=0" }
- }
- }
- -re "$prompt $" { fail "set variable double=0" }
- timeout { fail "(timeout) set variable double=0" }
-}
-
-
-send "set variable v_double=1.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_double\n"
- expect {
- -re ".\[0-9\]* = 1.*$prompt $" { pass "set variable double=1" }
- -re "$prompt $" { fail "set variable double=1" }
- timeout { fail "(timeout) set variable double=1" }
- }
- }
- -re "$prompt $" { fail "set variable double=1" }
- timeout { fail "(timeout) set variable double=1" }
-}
-
-
-send "set variable v_double=-1.0\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_double\n"
- expect {
- -re "print.*.\[0-9\]* = -1.*$prompt $" { pass "set variable double=-1 (minus)" }
- -re "$prompt $" { fail "set variable double=-1 (minus)" }
- timeout { fail "(timeout) set variable double=-1 (minus)" }
- }
- }
- -re "$prompt $" { fail "set variable double=-1 (minus)" }
- timeout { fail "(timeout) set variable double=-1 (minus)" }
-}
-
-
+test_set "set variable v_double=0.0" "print v_double" ".\[0-9\]* = 0" "set variable double=0"
+test_set "set variable v_double=1.0" "print v_double" ".\[0-9\]* = 1" "set variable double=1"
+test_set "set variable v_double=-1.0" "print v_double" "print.*.\[0-9\]* = -1" "set variable double=-1 (minus)"
#
# test "set variable" for "char array[2]"
#
-send "set variable v_char_array\[0\]='h'\n"
-expect -re "$prompt $"
-send "set variable v_char_array\[1\]='i'\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable char array=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable char array=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable char array=\"hi\" (string)" }
-}
-
-
+test_set "set variable v_char_array\[0\]='h'" "set variable v_char_array\[1\]='i'" "print v_char_array" "print.*.\[0-9\]* =.*\"hi\"" "set variable char array=\"hi\" (string)"
#
# test "set variable" for "signed char array[2]"
#
-send "set variable v_signed_char_array\[0\]='h'\n"
-expect -re "$prompt $"
-send "set variable v_signed_char_array\[1\]='i'\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_signed_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable signed char array=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable signed char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable signed char array=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable signed char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable signed char array=\"hi\" (string)" }
-}
-
-
+test_set "set variable v_signed_char_array\[0\]='h'" "set variable v_signed_char_array\[1\]='i'" "print v_signed_char_array" "print.*.\[0-9\]* =.*\"hi\"" "set variable signed char array=\"hi\" (string)"
#
# test "set variable" for "unsigned char array[2]"
#
-send "set variable v_unsigned_char_array\[0\]='h'\n"
-expect -re "$prompt $"
-send "set variable v_unsigned_char_array\[1\]='i'\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_unsigned_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" { pass "set variable unsigned char array=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable unsigned char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable unsigned char array=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char array=\"hi\" (string)" }
- timeout { fail "(timeout) set variable unsigned char array=\"hi\" (string)" }
-}
-
-
+test_set "set variable v_unsigned_char_array\[0\]='h'" "set variable v_unsigned_char_array\[1\]='i'" "print v_unsigned_char_array" "print.*.\[0-9\]* =.*\"hi\"" "set variable unsigned char array=\"hi\" (string)"
#
# test "set variable" for "short array[2]"
#
-send "set variable v_short_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_short_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_short_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable short array" }
- -re "$prompt $" { fail "set variable short array" }
- timeout { fail "(timeout) set variable short array" }
- }
- }
- -re "$prompt $" { fail "set variable short array" }
- timeout { fail "(timeout) set variable short array" }
-}
-
-
+test_set "set variable v_short_array\[0\]=123" "set variable v_short_array\[1\]=-456" "print v_short_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable short array"
#
# test "set variable" for "signed short array[2]"
#
-send "set variable v_signed_short_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_signed_short_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_signed_short_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed short array" }
- -re "$prompt $" { fail "set variable signed short array" }
- timeout { fail "(timeout) set variable signed short array" }
- }
- }
- -re "$prompt $" { fail "set variable signed short array" }
- timeout { fail "(timeout) set variable signed short array" }
-}
-
-
+test_set "set variable v_signed_short_array\[0\]=123" "set variable v_signed_short_array\[1\]=-456" "print v_signed_short_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable signed short array"
#
# test "set variable" for "unsigned short array[2]"
#
-send "set variable v_unsigned_short_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_unsigned_short_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_unsigned_short_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*65080\}.*$prompt $" { pass "set variable unsigned short array" }
- -re "$prompt $" { fail "set variable unsigned short array" }
- timeout { fail "(timeout) set variable unsigned short array" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned short array" }
- timeout { fail "(timeout) set variable unsigned short array" }
-}
-
-
+test_set "set variable v_unsigned_short_array\[0\]=123" "set variable v_unsigned_short_array\[1\]=-456" "print v_unsigned_short_array" "print.*.\[0-9\]* =.*\{123,.*65080\}" "set variable unsigned short array"
#
# test "set variable" for "int array[2]"
#
-send "set variable v_int_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_int_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable int array" }
- -re "$prompt $" { fail "set variable int array" }
- timeout { fail "(timeout) set variable int array" }
- }
- }
- -re "$prompt $" { fail "set variable int array" }
- timeout { fail "(timeout) set variable int array" }
-}
-
-
+test_set "set variable v_int_array\[0\]=123" "set variable v_int_array\[1\]=-456" "print v_int_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable int array"
#
# test "set variable" for "signed int array[2]"
#
-send "set variable v_signed_int_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_signed_int_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_signed_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed int array" }
- -re "$prompt $" { fail "set variable signed int array" }
- timeout { fail "(timeout) set variable signed int array" }
- }
- }
- -re "$prompt $" { fail "set variable signed int array" }
- timeout { fail "(timeout) set variable signed int array" }
-}
-
-
-
+test_set "set variable v_signed_int_array\[0\]=123" "set variable v_signed_int_array\[1\]=-456" "print v_signed_int_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable signed int array"
#
# test "set variable" for "unsigned int array[2]"
#
-send "set variable v_unsigned_int_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_unsigned_int_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_unsigned_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*4294966840\}.*$prompt $" { pass "set variable unsigned int array" }
- -re "$prompt $" { fail "set variable unsigned int array" }
- timeout { fail "(timeout) set variable unsigned int array" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned int array" }
- timeout { fail "(timeout) set variable unsigned int array" }
-}
-
-
+test_set "set variable v_unsigned_int_array\[0\]=123" "set variable v_unsigned_int_array\[1\]=-456" "print v_unsigned_int_array" "print.*.\[0-9\]* =.*\{123,.*(4294966840|65080)\}" "set variable unsigned int array"
#
# test "set variable" for "long array[2]"
#
-send "set variable v_long_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_long_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable long array" }
- -re "$prompt $" { fail "set variable long array" }
- timeout { fail "(timeout) set variable long array" }
- }
- }
- -re "$prompt $" { fail "set variable long array" }
- timeout { fail "(timeout) set variable long array" }
-}
-
-
+test_set "set variable v_long_array\[0\]=123" "set variable v_long_array\[1\]=-456" "print v_long_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable long array"
#
# test "set variable" for "signed long array[2]"
#
-send "set variable v_signed_long_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_signed_long_array\[1\]=-456\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_signed_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable signed long array" }
- -re "$prompt $" { fail "set variable signed long array" }
- timeout { fail "(timeout) set variable signed long array" }
- }
- }
- -re "$prompt $" { fail "set variable signed long array" }
- timeout { fail "(timeout) set variable signed long array" }
-}
-
-
-
+test_set "set variable v_signed_long_array\[0\]=123" "set variable v_signed_long_array\[1\]=-456" "print v_signed_long_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable signed long array"
#
# test "set variable" for "unsigned long array[2]"
#
-send "set variable v_unsigned_long_array\[0\]=123\n"
-expect -re "$prompt $"
-send "set variable v_unsigned_long_array\[1\]=-456\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_unsigned_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}.*$prompt $" { pass "set variable unsigned long array" }
- -re "$prompt $" { fail "set variable unsigned long array" }
- timeout { fail "(timeout) set variable unsigned long array" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned long array" }
- timeout { fail "(timeout) set variable unsigned long array" }
-}
-
-
+test_set "set variable v_unsigned_long_array\[0\]=123" "set variable v_unsigned_long_array\[1\]=-456" "print v_unsigned_long_array" "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}" "set variable unsigned long array"
#
# test "set variable" for "float array[2]"
#
-send "set variable v_float_array\[0\]=123.0\n"
-expect -re "$prompt $"
-send "set variable v_float_array\[1\]=-456.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_float_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable float array" }
- -re "$prompt $" { fail "set variable float array" }
- timeout { fail "(timeout) set variable float array" }
- }
- }
- -re "$prompt $" { fail "set variable float array" }
- timeout { fail "(timeout) set variable float array" }
-}
-
-
+test_set "set variable v_float_array\[0\]=123.0" "set variable v_float_array\[1\]=-456.0" "print v_float_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable float array"
#
# test "set variable" for "double array[2]"
#
-send "set variable v_double_array\[0\]=123.0\n"
-expect -re "$prompt $"
-send "set variable v_double_array\[1\]=-456.0\n"
-expect {
- -re "$prompt $"\
- {
- send "print v_double_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" { pass "set variable double array" }
- -re "$prompt $" { fail "set variable double array" }
- timeout { fail "(timeout) set variable double array" }
- }
- }
- -re "$prompt $" { fail "set variable double array" }
- timeout { fail "(timeout) set variable double array" }
-}
-
-
+test_set "set variable v_double_array\[0\]=123.0" "set variable v_double_array\[1\]=-456.0" "print v_double_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "set variable double array"
#
# test "set variable" for type "char *"
#
-send "set v_char_pointer=v_char_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_char_pointer)='h'\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_char_pointer+1)='i'\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
- send "print *(v_char_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable char pointer=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
-
- }
- }
- -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable char pointer=\"hi\" (string)" }
-}
-
-
+test_set "set v_char_pointer=v_char_array" "set variable *(v_char_pointer)='h'" "set variable *(v_char_pointer+1)='i'" "print v_char_array" "print.*.\[0-9\]* =.*\"hi\"" "print *(v_char_pointer+1)" "print.*.\[0-9\]* = 105 \'i\'" "set variable char pointer=\"hi\" (string)"
#
# test "set variable" for type "signed char *"
#
-send "set v_signed_char_pointer=v_signed_char_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_char_pointer)='h'\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_char_pointer+1)='i'\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
- send "print *(v_signed_char_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable signed char pointer=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
-
- }
- }
- -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable signed char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable signed char pointer=\"hi\" (string)" }
-}
-
-
+test_set "set v_signed_char_pointer=v_signed_char_array" "set variable *(v_signed_char_pointer)='h'" "set variable *(v_signed_char_pointer+1)='i'" "print v_signed_char_array" "print.*.\[0-9\]* =.*\"hi\"" "print *(v_signed_char_pointer+1)" "print.*.\[0-9\]* = 105 \'i\'" "set variable signed char pointer=\"hi\" (string)"
#
# test "set variable" for type "unsigned char *"
#
-send "set v_unsigned_char_pointer=v_unsigned_char_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_char_pointer)='h'\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_char_pointer+1)='i'\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_char_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\"hi\".*$prompt $" {
- send "print *(v_unsigned_char_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = 105 \'i\'.*$prompt $" { pass "set variable unsigned char pointer=\"hi\" (string)" }
- -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
-
- }
- }
- -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned char pointer=\"hi\" (string)" }
- timeout { fail "(timeout) set variable unsigned char pointer=\"hi\" (string)" }
-}
-
-
+test_set "set v_unsigned_char_pointer=v_unsigned_char_array" "set variable *(v_unsigned_char_pointer)='h'" "set variable *(v_unsigned_char_pointer+1)='i'" "print v_unsigned_char_array" "print.*.\[0-9\]* =.*\"hi\"" "print *(v_unsigned_char_pointer+1)" "print.*.\[0-9\]* = 105 \'i\'" "set variable unsigned char pointer=\"hi\" (string)"
#
# test "set variable" for type "short *"
#
-send "set v_short_pointer=v_short_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_short_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_short_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_short_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_short_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable short pointer" }
- -re "$prompt $" { fail "set variable short pointer" }
- timeout { fail "(timeout) set variable short pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable short pointer" }
- timeout { fail "(timeout) set variable short pointer" }
- }
- }
- -re "$prompt $" { fail "set variable short pointer" }
- timeout { fail "(timeout) set variable short pointer" }
-}
-
-
+test_set "set v_short_pointer=v_short_array" "set variable *(v_short_pointer)=123" "set variable *(v_short_pointer+1)=-456" "print v_short_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_short_pointer+1)" "print.*.\[0-9\]* = -456" "set variable short pointer"
#
# test "set variable" for type "signed short *"
#
gdb_test "print v_signed_short_array" ".\[0-9\]* =.*\{123,.*-456\}" \
"set variable signed short pointer"
gdb_test "print *(v_signed_short_pointer+1)" ".\[0-9\]*.*=.*-456"
-
-
#
# test "set variable" for type "unsigned short *"
#
gdb_test "print v_unsigned_short_array" ".\[0-9\]* =.*\{123,.*65080\}" \
"set variable unsigned short pointer"
gdb_test "print *(v_unsigned_short_pointer+1)" ".\[0-9\]* = 65080"
-
-
#
# test "set variable" for type "int *"
#
-send "set v_int_pointer=v_int_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_int_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_int_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_int_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable int pointer" }
- -re "$prompt $" { fail "set variable int pointer" }
- timeout { fail "(timeout) set variable int pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable int pointer" }
- timeout { fail "(timeout) set variable int pointer" }
- }
- }
- -re "$prompt $" { fail "set variable int pointer" }
- timeout { fail "(timeout) set variable int pointer" }
-}
-
-
+test_set "set v_int_pointer=v_int_array" "set variable *(v_int_pointer)=123" "set variable *(v_int_pointer+1)=-456" "print v_int_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_int_pointer+1)" "print.*.\[0-9\]* = -456" "set variable int pointer"
#
# test "set variable" for type "signed int *"
#
-send "set v_signed_int_pointer=v_signed_int_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_int_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_int_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_signed_int_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable signed int pointer" }
- -re "$prompt $" { fail "set variable signed int pointer" }
- timeout { fail "(timeout) set variable signed int pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable signed int pointer" }
- timeout { fail "(timeout) set variable signed int pointer" }
- }
- }
- -re "$prompt $" { fail "set variable signed int pointer" }
- timeout { fail "(timeout) set variable signed int pointer" }
-}
-
-
+test_set "set v_signed_int_pointer=v_signed_int_array" "set variable *(v_signed_int_pointer)=123" "set variable *(v_signed_int_pointer+1)=-456" "print v_signed_int_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_signed_int_pointer+1)" "print.*.\[0-9\]* = -456" "set variable signed int pointer"
#
# test "set variable" for type "unsigned int *"
#
-send "set v_unsigned_int_pointer=v_unsigned_int_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_int_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_int_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_int_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*4294966840\}.*$prompt $" {
- send "print *(v_unsigned_int_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = 4294966840.*$prompt $" { pass "set variable unsigned int pointer" }
- -re "$prompt $" { fail "set variable unsigned int pointer" }
- timeout { fail "(timeout) set variable unsigned int pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable unsigned int pointer" }
- timeout { fail "(timeout) set variable unsigned int pointer" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned int pointer" }
- timeout { fail "(timeout) set variable unsigned int pointer" }
-}
-
-
+test_set "set v_unsigned_int_pointer=v_unsigned_int_array" "set variable *(v_unsigned_int_pointer)=123" "set variable *(v_unsigned_int_pointer+1)=-456" "print v_unsigned_int_array" "print.*.\[0-9\]* =.*\{123,.*(4294966840|65080)\}" "set variable unsigned int pointer"
+test_set "" "print *(v_unsigned_int_pointer+1)" "print.*.\[0-9\]* = (4294966840|65080)" "print variable unsigned int pointer+1"
#
# test "set variable" for type "long *"
#
-send "set v_long_pointer=v_long_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_long_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_long_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_long_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable long pointer" }
- -re "$prompt $" { fail "set variable long pointer" }
- timeout { fail "(timeout) set variable long pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable long pointer" }
- timeout { fail "(timeout) set variable long pointer" }
- }
- }
- -re "$prompt $" { fail "set variable long pointer" }
- timeout { fail "(timeout) set variable long pointer" }
-}
-
-
+test_set "set v_long_pointer=v_long_array" "set variable *(v_long_pointer)=123" "set variable *(v_long_pointer+1)=-456" "print v_long_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_long_pointer+1)" "print.*.\[0-9\]* = -456" "set variable long pointer"
#
# test "set variable" for type "signed long *"
#
-send "set v_signed_long_pointer=v_signed_long_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_long_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_signed_long_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_signed_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_signed_long_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable signed long pointer" }
- -re "$prompt $" { fail "set variable signed long pointer" }
- timeout { fail "(timeout) set variable signed long pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable signed long pointer" }
- timeout { fail "(timeout) set variable signed long pointer" }
- }
- }
- -re "$prompt $" { fail "set variable signed long pointer" }
- timeout { fail "(timeout) set variable signed long pointer" }
-}
-
-
+test_set "set v_signed_long_pointer=v_signed_long_array" "set variable *(v_signed_long_pointer)=123" "set variable *(v_signed_long_pointer+1)=-456" "print v_signed_long_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_signed_long_pointer+1)" "print.*.\[0-9\]* = -456" "set variable signed long pointer"
#
# test "set variable" for type "unsigned long *"
#
-send "set v_unsigned_long_pointer=v_unsigned_long_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_long_pointer)=123\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_unsigned_long_pointer+1)=-456\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_unsigned_long_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}.*$prompt $" {
- send "print *(v_unsigned_long_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = $ulong_minus_456.*$prompt $" { pass "set variable unsigned long pointer" }
- -re "$prompt $" { fail "set variable unsigned long pointer" }
- timeout { fail "(timeout) set variable unsigned long pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable unsigned long pointer" }
- timeout { fail "(timeout) set variable unsigned long pointer" }
- }
- }
- -re "$prompt $" { fail "set variable unsigned long pointer" }
- timeout { fail "(timeout) set variable unsigned long pointer" }
-}
-
-
+test_set "set v_unsigned_long_pointer=v_unsigned_long_array" "set variable *(v_unsigned_long_pointer)=123" "set variable *(v_unsigned_long_pointer+1)=-456" "print v_unsigned_long_array" "print.*.\[0-9\]* =.*\{123,.*$ulong_minus_456\}" "print *(v_unsigned_long_pointer+1)" "print.*.\[0-9\]* = $ulong_minus_456" "set variable unsigned long pointer"
#
# test "set variable" for type "float *"
#
-send "set v_float_pointer=v_float_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_float_pointer)=123.0\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_float_pointer+1)=-456.0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_float_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_float_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable float pointer" }
- -re "$prompt $" { fail "set variable float pointer" }
- timeout { fail "(timeout) set variable float pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable float pointer" }
- timeout { fail "(timeout) set variable float pointer" }
- }
- }
- -re "$prompt $" { fail "set variable float pointer" }
- timeout { fail "(timeout) set variable float pointer" }
-}
-
-
+test_set "set v_float_pointer=v_float_array" "set variable *(v_float_pointer)=123.0" "set variable *(v_float_pointer+1)=-456.0" "print v_float_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_float_pointer+1)" "print.*.\[0-9\]* = -456" "set variable float pointer"
#
# test "set variable" for type "double *"
#
-send "set v_double_pointer=v_double_array\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_double_pointer)=123.0\n"
-expect -re "set.*$prompt $"
-send "set variable *(v_double_pointer+1)=-456.0\n"
-expect {
- -re "set.*$prompt $" {
- send "print v_double_array\n"
- expect {
- -re "print.*.\[0-9\]* =.*\{123,.*-456\}.*$prompt $" {
- send "print *(v_double_pointer+1)\n"
- expect {
- -re "print.*.\[0-9\]* = -456.*$prompt $" { pass "set variable double pointer" }
- -re "$prompt $" { fail "set variable double pointer" }
- timeout { fail "(timeout) set variable double pointer" }
-
- }
- }
- -re "$prompt $" { fail "set variable double pointer" }
- timeout { fail "(timeout) set variable double pointer" }
- }
- }
- -re "$prompt $" { fail "set variable double pointer" }
- timeout { fail "(timeout) set variable double pointer" }
-}
-
-
+test_set "set v_double_pointer=v_double_array" "set variable *(v_double_pointer)=123.0" "set variable *(v_double_pointer+1)=-456.0" "print v_double_array" "print.*.\[0-9\]* =.*\{123,.*-456\}" "print *(v_double_pointer+1)" "print.*.\[0-9\]* = -456" "set variable double pointer"
#
# test "set variable" for struct members
#
-send "set variable v_struct1.v_char_member='h'\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_char_member\n"
- expect {
- -re "print.*.\[0-9\]* = 104 \'h\'.*$prompt $" { pass "set variable structure char member" }
- -re "$prompt $" { fail "set variable structure char member" }
- timeout { fail "(timeout) set variable structure char member" }
- }
- }
- -re "$prompt $" { fail "set variable structure char member" }
- timeout { fail "(timeout) set variable structure char member" }
-}
-
-
-send "set variable v_struct1.v_short_member=1\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_short_member\n"
- expect {
- -re "print.*.\[0-9\]* = 1.*$prompt $" { pass "set variable structure short member" }
- -re "$prompt $" { fail "set variable structure short member" }
- timeout { fail "(timeout) set variable structure short member" }
- }
- }
- -re "$prompt $" { fail "set variable structure short member" }
- timeout { fail "(timeout) set variable structure short member" }
-}
-
-
-send "set variable v_struct1.v_int_member=2\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_int_member\n"
- expect {
- -re "print.*.\[0-9\]* = 2.*$prompt $" { pass "set variable structure int member" }
- -re "$prompt $" { fail "set variable structure int member" }
- timeout { fail "(timeout) set variable structure int member" }
- }
- }
- -re "$prompt $" { fail "set variable structure int member" }
- timeout { fail "(timeout) set variable structure int member" }
-}
-
-
-send "set variable v_struct1.v_long_member=3\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_long_member\n"
- expect {
- -re "print.*.\[0-9\]* = 3.*$prompt $" { pass "set variable structure long member" }
- -re "$prompt $" { fail "set variable structure long member" }
- timeout { fail "(timeout) set variable structure long member" }
- }
- }
- -re "$prompt $" { fail "set variable structure long member" }
- timeout { fail "(timeout) set variable structure long member" }
-}
-
-
-send "set variable v_struct1.v_float_member=4.0\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_float_member\n"
- expect {
- -re "print.*.\[0-9\]* = 4.*$prompt $" { pass "set variable structure float member" }
- -re "$prompt $" { fail "set variable structure float member" }
- timeout { fail "(timeout) set variable structure float member" }
- }
- }
- -re "$prompt $" { fail "set variable structure float member" }
- timeout { fail "(timeout) set variable structure float member" }
-}
-
-
-send "set variable v_struct1.v_double_member=5.0\n"
-expect {
- -re "set.*$prompt $"\
- {
- send "print v_struct1.v_double_member\n"
- expect {
- -re "print.*.\[0-9\]* = 5.*$prompt $" { pass "set variable structure double member" }
- -re "$prompt $" { fail "set variable structure double member" }
- timeout { fail "(timeout) set variable structure double member" }
- }
- }
- -re "$prompt $" { fail "set variable structure double member" }
- timeout { fail "(timeout) set variable structure double member" }
-}
-
+test_set "set variable v_struct1.v_char_member='h'" "print v_struct1.v_char_member" "print.*.\[0-9\]* = 104 \'h\'" "set variable structure char member"
+test_set "set variable v_struct1.v_short_member=1" "print v_struct1.v_short_member" "print.*.\[0-9\]* = 1" "set variable structure short member"
+test_set "set variable v_struct1.v_int_member=2" "print v_struct1.v_int_member" "print.*.\[0-9\]* = 2" "set variable structure int member"
+test_set "set variable v_struct1.v_long_member=3" "print v_struct1.v_long_member" "print.*.\[0-9\]* = 3" "set variable structure long member"
+test_set "set variable v_struct1.v_float_member=4.0" "print v_struct1.v_float_member" "print.*.\[0-9\]* = 4" "set variable structure float member"
+test_set "set variable v_struct1.v_double_member=5.0" "print v_struct1.v_double_member" "print.*.\[0-9\]* = 5" "set variable structure double member"
gdb_test "print v_struct1" \
"print.*.\[0-9\]* = \{.*v_char_member = 104 \'h\',.*v_short_member = 1,\
set prms_id 0
set bug_id 0
+gdb_exit
+gdb_start
gdb_reinitialize_dir $srcdir/$subdir
set testfile sigall
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
gdb_test "b handle_$thissig" "Breakpoint \[0-9\]+ .*"
gdb_test "b gen_$nextsig" "Breakpoint \[0-9\]+ .*"
- if {$thissig == "ALRM"} then {
- setup_xfail "*-*-irix4*"
- }
set need_another_continue 1
set missed_handler 0
if $this_sig_supported then {
- send "continue\n"
+ send_gdb "continue\n"
if { $thissig == "IO" } {
- setup_xfail "i*86-*-linuxoldld" "i*86-*-linuxaout"
+ setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
}
expect {
-re "Continuing.*Program received signal SIG$thissig.*$prompt $" {
}
if $need_another_continue then {
- send "continue\n"
+ send_gdb "continue\n"
if { $thissig == "URG" } {
- setup_xfail "i*86-*-linuxoldld" "i*86-*-linuxaout"
+ setup_xfail "i*86-pc-linuxoldld-gnu" "i*86-pc-linuxaout-gnu"
}
# Either Lynx or GDB screws up on SIGPRIO
if { $thissig == "PRIO" } {
}
if { $missed_handler == "0" } then {
- send "signal 0\n"
+ send_gdb "signal 0\n"
expect {
-re "Breakpoint.*gen_$nextsig.*kill.*$prompt $" {
pass "advance to $nextsig"
set testfile signals
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcdir}/${subdir}/${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-execute_anywhere "rm -f ${binfile}.ci"
-if { [compile "-E ${srcdir}/${subdir}/compiler.c > ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci file"
- return -1
+if [get_compiler_info ${binfile}] {
+ return -1;
}
-source ${binfile}.ci
proc signal_tests_1 {} {
global prompt
gdb_test "next" "\\+\\+count; /\\* first \\*/" \
"next over alarm (1)"
# An alarm has been signaled, give the signal time to get delivered.
- exec sleep 2
+ sleep 2
# i386 BSD currently fails the next test with a SIGTRAP.
setup_xfail "i*86-*-bsd*"
# linux (aout versions) also fails with "next" acting like "continue"
# this is probably more dependant on the kernel version than on the
# object file format or utils. (sigh)
- setup_xfail "i*86-*-linuxaout" "i*86-*-linuxoldld"
- send "next\n"
+ setup_xfail "i*86-pc-linuxaout-gnu" "i*86-pc-linuxoldld-gnu"
+ send_gdb "next\n"
expect {
-re "alarm .*$prompt $" { pass "next to 2nd alarm (1)" }
-re "Program received signal SIGTRAP.*first.*$prompt $" {
gdb_test "next" "\\+\\+count; /\\* second \\*/" \
"next to 2nd ++count in signals_tests_1"
# An alarm has been signaled, give the signal time to get delivered.
- exec sleep 2
+ sleep 2
set bash_bug 0
- send "next\n"
- setup_xfail "i*86-*-linux"
+ send_gdb "next\n"
+ setup_xfail "i*86-pc-linux-gnu"
expect {
-re "Breakpoint.*handler.*$prompt $" {
pass "next to handler in signals_tests_1"
# This doesn't test that main is frame #2, just that main is frame
# #2, #3, or higher. At some point this should be fixed (but
# it quite possibly would introduce new FAILs on some systems).
- setup_xfail "i*86-*-linux" "i*86-*-bsdi2.0"
+ setup_xfail "i*86-pc-linux-gnu" "i*86-*-bsdi2.0"
gdb_test "backtrace" "#0.*handler.*#1.*#2.*main.*" \
"backtrace in signals_tests_1"
# a SIGTRAP, but with different symptoms.
setup_xfail "vax-*-ultrix*"
setup_xfail "i*86-*-bsd*"
- setup_xfail "i*86-*-linux"
- send "continue\n"
+ setup_xfail "i*86-pc-linux-gnu"
+ send_gdb "continue\n"
expect {
-re "Breakpoint.*func1.*$prompt $" { pass "continue to func1" }
-re "Program received signal SIGTRAP.*second.*$prompt $" {
}
setup_xfail "*-*-irix*"
- setup_xfail "i*86-*-linux"
- send "signal SIGUSR1\n"
+ send_gdb "signal SIGUSR1\n"
expect {
-re "Breakpoint.*handler.*$prompt $" { pass "signal SIGUSR1" }
-re "Program received signal SIGUSR1.*$prompt $" {
# anytime soon.
setup_xfail "*-*-*"
- send "continue\n"
+ send_gdb "continue\n"
expect {
-re "Breakpoint.*func2.*$prompt $" { pass "continue to func2" }
-re "Breakpoint.*func1.*$prompt $" {
default { fail "continue to func2" }
}
- exec sleep 2
+ sleep 2
# GDB yanks out the breakpoints to step over the breakpoint it
# stopped at, which means the breakpoint at handler is yanked.
setup_xfail "m68*-*-sunos4*"
}
- setup_xfail "i*86-*-linux"
+ setup_xfail "i*86-pc-linux-gnu"
gdb_test "continue" "Breakpoint.*handler.*" "continue to handler"
# If the NO_SINGLE_STEP failure happened, we have already exited.
# This will need to be updated as the exact list of signals changes,
# but I want to test that TARGET_SIGNAL_0, TARGET_SIGNAL_DEFAULT, and
# TARGET_SIGNAL_UNKNOWN are skipped.
-# Increase expect input buffer for large output from gdb.
-# Allow blank or TAB as whitespace characters and test individually for
-# each specific signal.
-
proc test_handle_all_print {} {
+ global timeout
+ # Increase timeout and expect input buffer for large output from gdb.
+ # Allow blank or TAB as whitespace characters.
+ set oldtimeout $timeout
+ set timeout [expr "$timeout + 360"]
+ verbose "Timeout is now $timeout seconds" 2
match_max 10000
- gdb_test "handle all print" \
- "Signal\[ \t\]+Stop\[ \t\]+Print\[ \t\]+Pass to program\[ \t\]+Description\r\n.*" \
- "handle all print - Output headers"
- gdb_test "handle all print" \
- ".*SIGHUP\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Hangup\r\n.*" \
- "handle all print - Hangup"
- gdb_test "handle all print" \
- ".*SIGQUIT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Quit\r\n.*" \
- "handle all print - Quit"
- gdb_test "handle all print" \
- ".*SIGILL\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Illegal instruction\r\n.*" \
- "handle all print - Illegal instruction"
- gdb_test "handle all print" \
- ".*SIGABRT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Aborted\r\n.*" \
- "handle all print - Aborted"
- gdb_test "handle all print" \
- ".*SIGEMT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Emulation trap\r\n.*" \
- "handle all print - Emulation trap"
- gdb_test "handle all print" \
- ".*SIGFPE\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Arithmetic exception\r\n.*" \
- "handle all print - Arithmetic exception"
- gdb_test "handle all print" \
- ".*SIGKILL\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Killed\r\n.*" \
- "handle all print - Killed"
- gdb_test "handle all print" \
- ".*SIGBUS\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Bus error\r\n.*" \
- "handle all print - Bus error"
- gdb_test "handle all print" \
- ".*SIGSEGV\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Segmentation fault\r\n.*" \
- "handle all print - Segmentation fault"
- gdb_test "handle all print" \
- ".*SIGSYS\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Bad system call\r\n.*" \
- "handle all print - Bad system call"
- gdb_test "handle all print" \
- ".*SIGPIPE\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Broken pipe\r\n.*" \
- "handle all print - Broken pipe"
- gdb_test "handle all print" \
- ".*SIGALRM\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Alarm clock\r\n.*" \
- "handle all print - Alarm clock"
- gdb_test "handle all print" \
- ".*SIGTERM\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Terminated\r\n.*" \
- "handle all print - Terminated"
- gdb_test "handle all print" \
- ".*SIGURG\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Urgent I/O condition\r\n.*" \
- "handle all print - Urgent I/O condition"
- gdb_test "handle all print" \
- ".*SIGSTOP\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Stopped \\(signal\\)\r\n.*" \
- "handle all print - Stopped (signal)"
- gdb_test "handle all print" \
- ".*SIGTSTP\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Stopped \\(user\\)\r\n.*" \
- "handle all print - Stopped (user)"
- gdb_test "handle all print" \
- ".*SIGCONT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Continued\r\n.*" \
- "handle all print - Continued"
- gdb_test "handle all print" \
- ".*SIGCHLD\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Child status changed\r\n.*" \
- "handle all print - Child status changed"
- gdb_test "handle all print" \
- ".*SIGTTIN\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Stopped \\(tty input\\)\r\n.*" \
- "handle all print - Stopped (tty input)"
- gdb_test "handle all print" \
- ".*SIGTTOU\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Stopped \\(tty output\\)\r\n.*" \
- "handle all print - Stopped (tty output)"
- gdb_test "handle all print" \
- ".*SIGIO\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+I/O possible\r\n.*" \
- "handle all print - I/O possible"
- gdb_test "handle all print" \
- ".*SIGXCPU\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+CPU time limit exceeded\r\n.*" \
- "handle all print - CPU time limit exceeded"
- gdb_test "handle all print" \
- ".*SIGXFSZ\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+File size limit exceeded\r\n.*" \
- "handle all print - File size limit exceeded"
- gdb_test "handle all print" \
- ".*SIGVTALRM\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Virtual timer expired\r\n.*" \
- "handle all print - Virtual timer expired"
- gdb_test "handle all print" \
- ".*SIGPROF\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Profiling timer expired\r\n.*" \
- "handle all print - Profiling timer expired"
- gdb_test "handle all print" \
- ".*SIGWINCH\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Window size changed\r\n.*" \
- "handle all print - Window size changed"
- gdb_test "handle all print" \
- ".*SIGLOST\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Resource lost\r\n.*" \
- "handle all print - Resource lost"
- gdb_test "handle all print" \
- ".*SIGUSR1\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+User defined signal 1\r\n.*" \
- "handle all print - User defined signal 1"
- gdb_test "handle all print" \
- ".*SIGUSR2\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+User defined signal 2\r\n.*" \
- "handle all print - User defined signal 2"
- gdb_test "handle all print" \
- ".*SIGPWR\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Power fail/restart\r\n.*" \
- "handle all print - Power fail/restart"
- gdb_test "handle all print" \
- ".*SIGPOLL\[ \t\]+No\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Pollable event occurred\r\n.*" \
- "handle all print - Pollable event occurred"
- gdb_test "handle all print" \
- ".*SIGWIND\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+SIGWIND\r\n.*" \
- "handle all print - SIGWIND"
- gdb_test "handle all print" \
- ".*SIGPHONE\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+SIGPHONE\r\n.*" \
- "handle all print - SIGPHONE"
- gdb_test "handle all print" \
- ".*SIGWAITING\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Process's LWPs are blocked\r\n.*" \
- "handle all print - Process's LWPs are blocked"
- gdb_test "handle all print" \
- ".*SIGLWP\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Signal LWP\r\n.*" \
- "handle all print - Signal LWP"
- gdb_test "handle all print" \
- ".*SIGDANGER\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Swap space dangerously low\r\n.*" \
- "handle all print - Swap space dangerously low"
- gdb_test "handle all print" \
- ".*SIGGRANT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Monitor mode granted\r\n.*" \
- "handle all print - Monitor mode granted"
- gdb_test "handle all print" \
- ".*SIGRETRACT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Need to relinguish monitor mode\r\n.*" \
- "handle all print - Need to relinguish monitor mode"
- gdb_test "handle all print" \
- ".*SIGMSG\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Monitor mode data available\r\n.*" \
- "handle all print - Monitor mode data available"
- gdb_test "handle all print" \
- ".*SIGSOUND\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Sound completed\r\n.*" \
- "handle all print - Sound completed"
- gdb_test "handle all print" \
- ".*SIGSAK\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Secure attention\r\n.*" \
- "handle all print - Secure attention"
- gdb_test "handle all print" \
- ".*SIGPRIO\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+SIGPRIO\r\n.*" \
- "handle all print - SIGPRIO"
- gdb_test "handle all print" \
- ".*SIG33\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 33\r\n.*" \
- "handle all print - Real-time event 33"
- gdb_test "handle all print" \
- ".*SIG34\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 34\r\n.*" \
- "handle all print - Real-time event 34"
- gdb_test "handle all print" \
- ".*SIG35\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 35\r\n.*" \
- "handle all print - Real-time event 35"
- gdb_test "handle all print" \
- ".*SIG36\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 36\r\n.*" \
- "handle all print - Real-time event 36"
- gdb_test "handle all print" \
- ".*SIG37\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 37\r\n.*" \
- "handle all print - Real-time event 37"
- gdb_test "handle all print" \
- ".*SIG38\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 38\r\n.*" \
- "handle all print - Real-time event 38"
- gdb_test "handle all print" \
- ".*SIG39\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 39\r\n.*" \
- "handle all print - Real-time event 39"
- gdb_test "handle all print" \
- ".*SIG40\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 40\r\n.*" \
- "handle all print - Real-time event 40"
- gdb_test "handle all print" \
- ".*SIG41\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 41\r\n.*" \
- "handle all print - Real-time event 41"
- gdb_test "handle all print" \
- ".*SIG42\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 42\r\n.*" \
- "handle all print - Real-time event 42"
- gdb_test "handle all print" \
- ".*SIG43\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 43\r\n.*" \
- "handle all print - Real-time event 43"
- gdb_test "handle all print" \
- ".*SIG44\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 44\r\n.*" \
- "handle all print - Real-time event 44"
- gdb_test "handle all print" \
- ".*SIG45\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 45\r\n.*" \
- "handle all print - Real-time event 45"
- gdb_test "handle all print" \
- ".*SIG46\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 46\r\n.*" \
- "handle all print - Real-time event 46"
- gdb_test "handle all print" \
- ".*SIG47\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 47\r\n.*" \
- "handle all print - Real-time event 47"
- gdb_test "handle all print" \
- ".*SIG48\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 48\r\n.*" \
- "handle all print - Real-time event 48"
- gdb_test "handle all print" \
- ".*SIG49\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 49\r\n.*" \
- "handle all print - Real-time event 49"
- gdb_test "handle all print" \
- ".*SIG50\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 50\r\n.*" \
- "handle all print - Real-time event 50"
- gdb_test "handle all print" \
- ".*SIG51\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 51\r\n.*" \
- "handle all print - Real-time event 51"
- gdb_test "handle all print" \
- ".*SIG52\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 52\r\n.*" \
- "handle all print - Real-time event 52"
- gdb_test "handle all print" \
- ".*SIG53\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 53\r\n.*" \
- "handle all print - Real-time event 53"
- gdb_test "handle all print" \
- ".*SIG54\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 54\r\n.*" \
- "handle all print - Real-time event 54"
- gdb_test "handle all print" \
- ".*SIG55\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 55\r\n.*" \
- "handle all print - Real-time event 55"
- gdb_test "handle all print" \
- ".*SIG56\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 56\r\n.*" \
- "handle all print - Real-time event 56"
- gdb_test "handle all print" \
- ".*SIG57\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 57\r\n.*" \
- "handle all print - Real-time event 57"
- gdb_test "handle all print" \
- ".*SIG58\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 58\r\n.*" \
- "handle all print - Real-time event 58"
- gdb_test "handle all print" \
- ".*SIG59\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 59\r\n.*" \
- "handle all print - Real-time event 59"
- gdb_test "handle all print" \
- ".*SIG60\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 60\r\n.*" \
- "handle all print - Real-time event 60"
- gdb_test "handle all print" \
- ".*SIG61\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 61\r\n.*" \
- "handle all print - Real-time event 61"
- gdb_test "handle all print" \
- ".*SIG62\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 62\r\n.*" \
- "handle all print - Real-time event 62"
- gdb_test "handle all print" \
- ".*SIG63\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Real-time event 63\r\n.*" \
- "handle all print - Real-time event 63"
- gdb_test "handle all print" \
- ".*EXC_BAD_ACCESS\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Could not access memory\r\n.*" \
- "handle all print - Could not access memory"
- gdb_test "handle all print" \
- ".*EXC_BAD_INSTRUCTION\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Illegal instruction/operand\r\n.*" \
- "handle all print - Illegal instruction/operand"
- gdb_test "handle all print" \
- ".*EXC_ARITHMETIC\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Arithmetic exception\r\n.*" \
- "handle all print - Arithmetic exception"
- gdb_test "handle all print" \
- ".*EXC_EMULATION\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Emulation instruction\r\n.*" \
- "handle all print - Emulation instruction"
- gdb_test "handle all print" \
- ".*EXC_SOFTWARE\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Software generated exception\r\n.*" \
- "handle all print - Software generated exception"
- gdb_test "handle all print" \
- ".*EXC_BREAKPOINT\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Yes\[ \t\]+Breakpoint.*" \
- "handle all print - Breakpoint"
+ gdb_test "handle all print" "Signal\[ \]+Stop\[ \]+Print\[ \]+Pass to program\[ \]+Description\r\nSIGHUP\[ \]+Yes\[ \]+Yes\[ \]+Yes\[ \]+Hangup.*SIG63\[ \]+Yes\[ \]+Yes\[ \]+Yes\[ \]+Real-time event 63.*EXC_BREAKPOINT\[ \]+Yes\[ \]+Yes\[ \]+Yes\[ \]+Breakpoint"
+ set timeout $oldtimeout
+ verbose "Timeout restored to $timeout seconds" 2
}
test_handle_all_print
# Force a resync, so we're looking at the right prompt. On SCO we
# were getting out of sync (I don't understand why).
-send "p 1+1\n"
+send_gdb "p 1+1\n"
expect {
-re "= 2.*$prompt $" {}
-re ".*$prompt $" { perror "sync trouble in signals.exp" }
gdb_test "next" "\\+\\+count; /\\* first \\*/" \
"next to ++count #1 in signals.exp"
# Give the signal time to get delivered
- exec sleep 2
+ sleep 2
# Now call a function. When GDB tries to run the stack dummy,
# it will hit the breakpoint at handler. Provided it doesn't
gdb_test "next" "alarm \\(.*" "next to alarm #2 in signals.exp"
gdb_test "next" "\\+\\+count; /\\* second \\*/" \
"next to ++count #2 in signals.exp"
- exec sleep 2
+ sleep 2
# This time we stop when GDB tries to run the stack dummy.
# So it is OK that we do not print the return value from the function.
set prms_id 0
set bug_id 0
-set prototypes 0
+set prototypes 1
set testfile "structs"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# build the first test case
-execute_anywhere "rm -f ${binfile}.ci"
-execute_anywhere "echo set prototypes 1 > ${binfile}.ci"
-if { [compile "-g ${srcdir}/${subdir}/${srcfile} -o ${binfile} "] != "" } {
- execute_anywhere "rm -f ${binfile}.ci"
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
# built the second test case since we can't use prototypes
warning "Prototypes not supported, rebuilding with -DNO_PROTOTYPES"
- execute_anywhere "echo set prototypes 0 > ${binfile}.ci"
- if { [compile "-g -DNO_PROTOTYPES ${srcdir}/${subdir}/${srcfile} -o ${binfile} "] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DNO_PROTOTYPES}] != "" } {
perror "Couldn't compile ${testfile}.c"
return -1
}
+ set prototypes 0
}
# Create and source the file that provides information about the compiler
# used to compile the test case.
-if { [compile "-E ${srcdir}/${subdir}/compiler.c >> ${binfile}.ci"] != "" } {
- perror "Couldn't make ${binfile}.ci"
- return -1
+if [get_compiler_info ${binfile}] {
+ return -1;
}
-source ${binfile}.ci
# The a29k can't call functions, so don't even bother with this test.
if [istarget "a29k-*-udi"] then {
continue
}
-# The h8300 simulator can't call functions, so don't even bother with this test.
-if [istarget "h8300*-*-*"] then {
- setup_xfail "h8300*-*-*"
- fail "h8300*-*-* simulator can not call functions"
- continue
-}
-
# FIXME: Before calling this proc, we should probably verify that
# we can call inferior functions and get a valid integral value
# returned.
gdb_test "p fun2()" " = {a = 97 'a', b = 98 'b'}"
gdb_test "p fun3()" " = {a = 65 'A', b = 66 'B', c = 67 'C'}"
gdb_test "p fun4()" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4'}"
- setup_xfail "hppa*-*-hpux9*"
gdb_test "p fun5()" " = {a = 97 'a', b = 98 'b', c = 99 'c', d = 100 'd', e = 101 'e'}"
- setup_xfail "hppa*-*-hpux9*"
gdb_test "p fun6()" " = {a = 65 'A', b = 66 'B', c = 67 'C', d = 68 'D', e = 69 'E', f = 70 'F'}"
- setup_xfail "hppa*-*-hpux9*"
gdb_test "p fun7()" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4', e = 53 '5', f = 54 '6', g = 55 '7'}"
- setup_xfail "hppa*-*-hpux9*"
gdb_test "p fun8()" " = {a = 49 '1', b = 50 '2', c = 51 '3', d = 52 '4', e = 53 '5', f = 54 '6', g = 55 '7', h = 56 '8'}"
gdb_test "p fun9()" " = {a = 97 'a', b = 98 'b', c = 99 'c', d = 100 'd', e = 101 'e', f = 102 'f', g = 103 'g', h = 104 'h', i = 105 'i'}"
gdb_test "p fun10()" " = {a = 65 'A', b = 66 'B', c = 67 'C', d = 68 'D', e = 69 'E', f = 70 'F', g = 71 'G', h = 72 'H', i = 73 'I', j = 74 'J'}"
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
-send "set print address off\n" ; expect -re "$prompt $"
-send "set width 0\n" ; expect -re "$prompt $"
+send_gdb "set print sevenbit-strings\n" ; expect -re "$prompt $"
+send_gdb "set print address off\n" ; expect -re "$prompt $"
+send_gdb "set width 0\n" ; expect -re "$prompt $"
if [runto_main] then {
do_function_calls
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
continue
}
+gdb_start
+
#
# test running programs
#
set bug_id 0
set testfile "run"
-set srcfile ${srcdir}/$subdir/${testfile}.c
+set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-# Test that GDB correctly identifies that it does not control a terminal.
-send "info terminal\n"
+gdb_test "set print sevenbit-strings" "" "test set print sevenbit-strings"
+gdb_test "set print address off" "" "test set print address off"
+gdb_test "set width 0" "" "test set width 0"
+gdb_test "info terminal" "No saved terminal information.*" "test info terminal"
+gdb_run_cmd 5
expect {
- -re "No saved terminal information..*$prompt $"\
- { send "run 5\n"
- expect {
- -re "Starting program.*$binfile.*120.*Program exited normally..*$prompt $"\
- { send "info terminal\n"
- expect {
- -re "No saved terminal information..*$prompt $"\
- { pass "info terminal" }
- -re ".*$prompt $" { fail "info terminal" }
- timeout { fail "(timeout) info terminal" }
- }
- }
- -re ".*$prompt $" { fail "info terminal" }
- timeout { fail "(timeout) info terminal" }
- }
- }
- -re ".*$prompt $" { fail "info terminal" }
- timeout { fail "(timeout) info terminal" }
+ -re ".*120.*Program exited normally.*$prompt $" {
+ gdb_test "info terminal" "No saved terminal information.*" "test info terminal"
+ }
+ default {
+ fail "term.exp, factorial didn't run to completion for info terminal"
+ }
}
-
# In mid-execution
-send "break main\n"
+gdb_breakpoint main
+gdb_run_cmd 5
expect {
- -re "Breakpoint.*at.* file .*, line.*$prompt $"\
- { send "run 5\n"
- expect {
- -re "Starting program.*Breakpoint \[0-9\]+,.*main.*if .argc != 2.*$prompt $"\
- { send "info terminal\n"
- expect {
- -re "Inferior's terminal status .currently saved by GDB.:.*$prompt $"\
- { pass "info terminal at breakpoint" }
- -re ".*$prompt $" { fail "info terminal at breakpoint" }
- timeout { fail "(timeout) info terminal at breakpoint" }
- }
- }
- -re ".*$prompt $" { fail "info terminal at breakpoint" }
- timeout { fail "(timeout) info terminal at breakpoint" }
- }
- }
+ -re ".*Breakpoint \[0-9\]+,.*main.*if .argc != 2.*$prompt $" {
+ gdb_test "info terminal" "Inferior's terminal status .currently saved by GDB.:.*" "info terminal at breakpoint"
+ }
-re ".*$prompt $" { fail "info terminal at breakpoint" }
timeout { fail "(timeout) info terminal at breakpoint" }
}
-
-
set testfile "watchpoint"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if { [compile "${srcdir}/${subdir}/${srcfile} -g -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
global decimal
global srcfile
- send "break marker1\n"
+ send_gdb "break marker1\n"
expect {
-re "Breakpoint 1 at $hex: file .*$srcfile, line $decimal.*$prompt $" {
pass "set breakpoint at marker1"
timeout { fail "set breakpoint at marker1 (timeout)" ; return 0 }
}
- send "break marker2\n"
+ send_gdb "break marker2\n"
expect {
-re "Breakpoint 2 at $hex: file .*$srcfile, line $decimal.*$prompt $" {
pass "set breakpoint at marker2"
timeout { fail "set breakpoint at marker2 (timeout)" ; return 0 }
}
- send "info break\n"
+ send_gdb "info break\n"
expect {
-re "1\[ \]*breakpoint.*marker1.*\r\n2\[ \]*breakpoint.*marker2.*\r\n$prompt $" { pass "info break in watchpoint.exp" }
-re ".*$prompt $" { fail "info break in watchpoint.exp" ; return 0 }
timeout { fail "info break in watchpoint.exp (timeout)" ; return 0 }
}
- send "watch ival3\n"
+ send_gdb "watch ival3\n"
expect {
-re ".*\[Ww\]atchpoint 3: ival3\r\n$prompt $" {
pass "set watchpoint on ival3"
# "info watch" is the same as "info break"
- send "info watch\n"
+ send_gdb "info watch\n"
expect {
-re "1\[ \]*breakpoint.*marker1.*\r\n2\[ \]*breakpoint.*marker2.*\r\n3\[ \]*.*watchpoint.*ival3\r\n$prompt $" {
pass "watchpoint found in watchpoint/breakpoint table"
fail "watchpoint found in watchpoint/breakpoint table" ; return 0
}
timeout {
- fail "watchpoint found in watchpoint/breakpoint table" ; return 0
+ fail "watchpoint found in watchpoint/breakpoint table (timeout)" ; return 0
}
}
# to use it. This allows the test program to run at full speed until
# we get to the first marker function.
- send "disable 3\n"
+ send_gdb "disable 3\n"
expect {
-re "disable 3\[\r\n\]+$prompt $" { pass "disable watchpoint" }
-re ".*$prompt $" { fail "disable watchpoint" ; return 0 }
# Ensure that the watchpoint is disabled when we startup.
- send "disable 3\n"
+ send_gdb "disable 3\n"
expect {
-re "^disable 3\[\r\n\]+$prompt $" {
pass "disable watchpoint in test_simple_watchpoint"
# Run until we get to the first marker function.
gdb_run_cmd
+ set timeout 600
expect {
-re "Breakpoint 1, marker1 .*$prompt $" {
pass "run to marker1 in test_simple_watchpoint"
# After reaching the marker function, enable the watchpoint.
- send "enable 3\n"
+ send_gdb "enable 3\n"
expect {
-re "^enable 3\[\r\n\]+$prompt $" { pass "enable watchpoint" }
-re ".*$prompt $" { fail "enable watchpoint" ; return }
# Continue until the first change, from -1 to 0
- send "cont\n"
+ send_gdb "cont\n"
expect {
-re "Continuing.*\[Ww\]atchpoint.*ival3.*Old value = -1.*New value = 0.*ival3 = count; ival4 = count;.*$prompt $" {
pass "watchpoint hit, first time"
# Disable the watchpoint so we run at full speed until we exit.
- send "disable 3\n"
+ send_gdb "disable 3\n"
expect {
-re "^disable 3\[\r\n\]+$prompt $" { pass "watchpoint disabled" }
-re ".*$prompt $" { fail "watchpoint disabled" ; return }
# Ensure that the watchpoint is disabled when we startup.
- send "disable 3\n"
+ send_gdb "disable 3\n"
expect {
-re "^disable 3\[\r\n\]+$prompt $" {
pass "disable watchpoint in test_disabling_watchpoints"
# Run until we get to the first marker function.
gdb_run_cmd
+ set timeout 600
expect {
-re "Breakpoint 1, marker1 .*$prompt $" {
pass "run to marker1 in test_disabling_watchpoints"
# After reaching the marker function, enable the watchpoint.
- send "enable 3\n"
+ send_gdb "enable 3\n"
expect {
-re "^enable 3\[\r\n\]+$prompt $" { pass "watchpoint enabled" }
-re ".*$prompt $" { fail "watchpoint enabled" ; return }
# Disable the watchpoint but leave breakpoints
- send "disable 3\n"
+ send_gdb "disable 3\n"
expect {
-re "^disable 3\[\r\n\]+$prompt $" {
pass "disable watchpoint #2 in test_disabling_watchpoints"
# on other targets. In this case we will step once more.
#
- send "finish\n"
+ send_gdb "finish\n"
expect {
-re "Run.*exit from.*marker1.*main.* at" { }
default { fail "finish from marker1" ; return }
}
expect {
-re "marker1 \\(\\);.*$prompt $" {
- send "step\n"
+ send_gdb "step\n"
exp_continue
}
-re "func1 \\(\\);.*$prompt $" {
gdb_test "until" "ival1 = count.*" "until to ival1 assignment"
gdb_test "until" "ival3 = count.*" "until to ival3 assignment"
- send "until\n"
+ send_gdb "until\n"
expect {
-re "(for \\(count = 0|\}).*$prompt $" {
gdb_test "until" "ival1 = count; /. Outside loop ./" \
proc test_watchpoint_triggered_in_syscall {} {
global prompt
global noinferiorio
+ global noresults
if $noinferiorio {
verbose "Skipping test_watchpoint_triggered_in_syscall due to noinferiorio"
gdb_test "set doread = 1" ""
- # If we send "123\n" before gdb has switched the tty, then it goes
+ # If we send_gdb "123\n" before gdb has switched the tty, then it goes
# to gdb, not the inferior, and we lose. So that is why we have
# watchpoint.c prompt us, so we can wait for that prompt.
- send "continue\n"
+ send_gdb "continue\n"
expect {
-re "Continuing\\.\r\ntype stuff for buf now:" {
pass "continue to read"
}
default { fail "continue to read"; return }
}
- send "123\n"
+ send_gdb "123\n"
expect {
-re ".*\[Ww\]atchpoint.*buf\\\[0\\\].*Old value = 0.*New value = 49\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*\[Ww\]atchpoint.*buf\\\[1\\\].*Old value = 0.*New value = 50\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*\[Ww\]atchpoint.*buf\\\[2\\\].*Old value = 0.*New value = 51\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*\[Ww\]atchpoint.*buf\\\[3\\\].*Old value = 0.*New value = 10\[^\n\]*\n" { set x [expr $x+1] ; exp_continue }
-re ".*$prompt $" { pass "sent 123" }
- timeout { fail "sent 123" }
+ timeout { fail "sent 123 (timeout)" }
}
# Examine the values in buf to see how many watchpoints we
# should have printed.
- send "print buf\[0\]\n"
+ send_gdb "print buf\[0\]\n"
expect {
-re ".*= 49.*$prompt $" { set y [expr $y+1]; pass "print buf\[0\]"}
-re ".*= 0.*$prompt $" { pass "print buf\[0\]"}
-re ".*$prompt $" { fail "print buf\[0\]"}
default { fail "print buf\[0\]"}
}
- send "print buf\[1\]\n"
+ send_gdb "print buf\[1\]\n"
expect {
-re ".*= 50.*$prompt $" { set y [expr $y+1]; pass "print buf\[1\]"}
-re ".*= 0.*$prompt $" { pass "print buf\[1\]"}
-re ".*$prompt $" { fail "print buf\[1\]"}
default { fail "print buf\[1\]"}
}
- send "print buf\[2\]\n"
+ send_gdb "print buf\[2\]\n"
expect {
-re ".*= 51.*$prompt $" { set y [expr $y+1]; pass "print buf\[2\]"}
-re ".*= 0.*$prompt $" { pass "print buf\[2\]"}
-re ".*$prompt $" { fail "print buf\[2\]"}
default { fail "print buf\[2\]"}
}
- send "print buf\[3\]\n"
+ send_gdb "print buf\[3\]\n"
expect {
-re ".*= 10.*$prompt $" { set y [expr $y+1]; pass "print buf\[3\]"}
-re ".*= 0.*$prompt $" { pass "print buf\[3\]"}
# Disable everything so we can finish the program at full speed
gdb_test "disable" "" "disable in test_watchpoint_triggered_in_syscall"
+ if $noresults==1 then { return }
+
gdb_test "cont" "Continuing.*Program exited normally.*" \
"continue to exit in test_watchpoint_triggered_in_syscall"
}
proc test_complex_watchpoint {} {
global prompt
+ global noresults
if [runto marker4] then {
gdb_test "watch ptr1->val" ".*\[Ww\]atchpoint \[0-9\]*: ptr1->val"
# Disable everything so we can finish the program at full speed
gdb_test "disable" "" "disable in test_complex_watchpoint"
+ if $noresults==1 then { return }
+
gdb_test "cont" "Continuing.*Program exited normally.*" \
"continue to exit in test_complex_watchpoint"
}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
+set timeout 600
+verbose "Timeout now 600 sec.\n"
if [initialize] then {
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break xx_\n"
+ send_gdb "break xx_\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
#
# Args are:
#
-# First one is string to send to gdb
+# First one is string to send_gdb to gdb
# Second one is string to match gdb result to
# Third one is an optional message to be printed
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
# test builtins as described in chapter 6.20.3 Z.200
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ;
+ send_gdb "set language chill\n" ;
- send "break callch.ch:48\n"; expect -re "$prompt $"
- send "run\n"; expect -re "Breakpoint .*callch.ch:48.*$prompt $"
+ gdb_test "break callch.ch:48 ""
+ send_gdb "run\n"; expect -re "Breakpoint .*callch.ch:48.*$prompt $"
gdb_test {set fred(10, i)} {a is '10'; b is '12'.}
gdb_test_exact "call klaus()" {here's klaus calling.}
gdb_test_exact "call fred()" {too few arguments in function call}
proc set_lang_chill {} {
global prompt
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
proc test_convenience_variables {} {
global prompt
- gdb_test "set \$foo := 101" " := 101\[\r\n\]*" \
+ gdb_test "set \$foo := 101" " := 101\[\r\]*" \
"Set a new convenience variable"
gdb_test "print \$foo" " = 101" \
"Print contents of new convenience variable"
- gdb_test "set \$foo := 301" " := 301\[\r\n\]*" \
+ gdb_test "set \$foo := 301" " := 301\[\r\]*" \
"Set convenience variable to a new value"
gdb_test "print \$foo" " = 301" \
"Print new contents of convenience variable"
- gdb_test "set \$_ := 11" " := 11\[\r\n\]*" \
+ gdb_test "set \$_ := 11" " := 11\[\r\]*" \
"Set convenience variable \$_"
gdb_test "print \$_" " = 11" \
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings" ""
if [set_lang_chill] then {
test_value_history
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
# This is needed (at least on SunOS4) to make sure the
# the symbol table is read.
- send "break chillvars.ch:3\n" ; expect -re "$prompt $"
- send "delete 1\n" ; expect -re "$prompt $"
+ gdb_test "break chillvars.ch:3 ""
+ gdb_test "delete 1 ""
- send "set width 0\n" ; expect -re "$prompt $"
- send "set print sevenbit-strings\n" ; expect -re "$prompt $"
- send "set print address off\n" ; expect -re "$prompt $"
+ gdb_test "set width 0 ""
+ gdb_test "set print sevenbit-strings ""
+ gdb_test "set print address off ""
test_BOOL
test_CHAR
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto hugo_
- send "set var \$i := d\n"
+ send_gdb "set var \$i := d\n"
expect -re ".*$prompt $"
gdb_test "print \$i" { = d}
gdb_test "print size (\$i)" { = 1}
gdb_test "print a/=\$i" { = TRUE}
# This is PR 8870:
- send "break malloc\n"; expect -re ".*$prompt $"
+ gdb_test "break malloc ".*"
gdb_test {set var $j := m_set[b]} ".*invalid.*tuple.*"
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
- send "set var \$i := m_x\[\]\n" ; expect -re "$prompt $"
+ gdb_test "set var \$i := m_x\[\] ""
gdb_test "print \$i" { = \[.i: 0, .ar: \[\(5:6\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]}
- send "set var \$j := m_y\[\]\n" ; expect -re "$prompt $"
+ gdb_test "set var \$j := m_y\[\] ""
gdb_test "print \$j" { = \[.i: 0, .ar: \[\(7:8\): \[\(9:10\): \[.f1: 0, .f2: NULL, .f3: \[\(2:3\): 0\]\]\]\]\]}
}
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto arr_
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto brrr
# check foo
gdb_test {print foo} { = \[\(0:99\): 222\]}
- send "set var foo := m_array\[\(\*\):44\]\n" ; expect -re ".*$prompt $"
+ gdb_test "set var foo := m_array\[\(\*\):44\] ".*"
gdb_test {print foo} { = \[\(0:99\): 44\]}
# check bar
gdb_test {print bar} { = \[\(-10:20\): \[.i: 0, .b: FALSE\]\]}
- send "set var bar := m_bar\[\(\*\): \[42, TRUE\]\]\n" ; expect -re ".*$prompt $"
+ gdb_test "set var bar := m_bar\[\(\*\): \[42, TRUE\]\] ".*"
gdb_test {print bar} { = \[\(-10:20\): \[.i: 42, .b: TRUE\]\]}
# some failues
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto doit
- send "next\n" ; expect -re "$prompt $"
+ gdb_test "next ""
# check too many array elements
gdb_test {set var v_x := [1,2,3,4,5]} {Too many array elements}
gdb_test {set var $i := m_x[(3): 22, 25]} {Too many array elements}
- send "set var \$i := m_x\[\(2\): 22, 25\]\n" ; expect -re "$prompt $"
+ gdb_test "set var \$i := m_x\[\(2\): 22, 25\] ""
gdb_test {print $i} { = \[\(1\): 0, \(2\): 22, \(3\): 25\]}
}
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break xx_\n"
+ send_gdb "break xx_\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
#
# Args are:
#
-# First one is string to send to gdb
+# First one is string to send_gdb to gdb
# Second one is string to match gdb result to
# Third one is an optional message to be printed
test_print_accept "print c" {'a'<repeats 70 times>//"\^\(0,5\)Jason"//'b'<repeats 70 times>}
test_print_accept "print d" {'\^\(11\)'}
- send "set var a := (100)'\^(0,255)'\n" ; expect -re "$prompt $"
+ gdb_test "set var a := (100)'\^(0,255)' ""
test_print_accept "print a" {"\^\(0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255,0,255\)"}
- send "set var a := (10)'\^(1)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := (10)'\^(1)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {"\^\(1,1,1,1,1,1,1,1,1,1\)BCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBC I am Hugo"}
- send "set var b := \"Hugo \"\"\^(3,4)\"\"Otto\^(17)\" \n" ; expect -re "$prompt $"
+ send_gdb "set var b := \"Hugo \"\"\^(3,4)\"\"Otto\^(17)\" \n" ; expect -re "$prompt $"
test_print_accept "print b" {"Hugo ""\^\(3,4\)""Otto\^\(17\)"}
- send "set var c := (70)'b' // \"\^(2,3)Hugo \" // (70)'c' \n" ; expect -re "$prompt $"
+ send_gdb "set var c := (70)'b' // \"\^(2,3)Hugo \" // (70)'c' \n" ; expect -re "$prompt $"
test_print_accept "print c" {'b'<repeats 70 times>//"\^\(2,3\)Hugo "//'c'<repeats 70 times>}
- send "set var d := '\^(199)'\n" ; expect -re "$prompt $"
+ gdb_test "set var d := '\^(199)' ""
test_print_accept "print d" {'\^\(199\)'}
test_print_accept "print (10)'\^(0)'//(26)\"\^(66,67)\"//\" \"//'I'//' '//'a'//'m'//\" Hugo\"" {"\^\(0,0,0,0,0,0,0,0,0,0\)BCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBCBC I am Hugo"}
test_print_accept "print \"Jason\"\"\^(0,5)\"\"Hugo\^(10)\"" {"Jason""\^\(0,5\)""Hugo\^\(10\)"}
- send "set var a := \"\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := \"\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {""}
- send "set var a := \"\"\"\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := \"\"\"\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {""""}
- send "set var a := \" \"\"\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := \" \"\"\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {" """}
- send "set var a := \"\^\^\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := \"\^\^\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {"\^\^"}
- send "set var a := \"'\" \n" ; expect -re "$prompt $"
+ send_gdb "set var a := \"'\" \n" ; expect -re "$prompt $"
test_print_accept "print a" {"'"}
}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break xx_\n"
+ send_gdb "break xx_\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
#
# Args are:
#
-# First one is string to send to gdb
+# First one is string to send_gdb to gdb
# Second one is string to match gdb result to
# Third one is an optional message to be printed
test_print_accept "print v2_power1" {\[\]}
test_print_accept "print SIZE(v1_power1)" "1"
- send "set v1_power1 := \[b1\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[b1\] ""
# if GDB has rejected the improper values, we have to expect the same!
test_print_accept "print v1_power1" {\[e1:e5\]}
- send "set v1_power1 := \[a1,a2\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[a1,a2\] ""
test_print_accept "print v1_power1" {\[e1:e5\]}
- send "set v1_power1 := \[b1,b2,b3,e4\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[b1,b2,b3,e4\] ""
test_print_accept "print v1_power1" {\[e1:e5\]}
- send "set v1_power1 := \[e4:e5\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[e4:e5\] ""
test_print_accept "print v1_power1" {\[e4:e5\]}
- send "set v1_power1 := \[e1, e2:e3, e5\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[e1, e2:e3, e5\] ""
test_print_accept "print v1_power1" {\[e1:e3, e5\]}
- send "set v1_power1 := \[e1, e2:e4, e4:e5\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[e1, e2:e4, e4:e5\] ""
test_print_accept "print v1_power1" {\[e1:e5\]}
- send "set v1_power1 := \[e1, e1:e3, e1:e2, e2:e3\] \n" ; expect -re "$prompt $"
+ gdb_test "set v1_power1 := \[e1, e1:e3, e1:e2, e2:e3\] ""
test_print_accept "print v1_power1" {\[e1:e3\]}
- send "set v_power2 := \[e2\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[e2\] ""
test_print_accept "print v_power2" {\[\]}
- send "set v_power2 := \[1,2,3\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[1,2,3\] ""
test_print_accept "print v_power2" {\[\]}
- send "set v_power2 := \[e2, b2, b1\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[e2, b2, b1\] ""
test_print_accept "print v_power2" {\[\]}
# Note, that this is a numbered SET, so a1:a3 contains all elements (exept a6)
- send "set v_power2 := \[a1:a3, a6:a4, a7:a9\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a1:a3, a6:a4, a7:a9\] ""
test_print_accept "print v_power2" {\[a6:a3\]}
- send "set v_power2 := \[a1, a4:a6, a9\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a1, a4:a6, a9\] ""
test_print_accept "print v_power2" {\[a1, a9\]}
- send "set v_power2 := \[a1:a2, a6, a9\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a1:a2, a6, a9\] ""
test_print_accept "print v_power2" {\[a6:a2, a9\]}
- send "set v_power2 := \[a1, a4, a7:a8, a9:a3\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a1, a4, a7:a8, a9:a3\] ""
test_print_accept "print v_power2" {\[a1, a4, a9:a8\]}
- send "set v_power2 := \[a1, a4:a8\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a1, a4:a8\] ""
test_print_accept "print v_power2" {\[a1, a4:a8\]}
- send "set v_power2 := \[a8,a3,a7,a9,a5,a6\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power2 := \[a8,a3,a7,a9,a5,a6\] ""
test_print_accept "print v_power2" {\[a6, a5, a9, a7, a3, a8\]}
- send "set v_power3 := \[b1:b2,e1\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b1:b2,e1\] ""
test_print_accept "print v_power3" {\[b1:b2\]}
- send "set v_power3 := \[b1, b3, b6:b7\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b1, b3, b6:b7\] ""
test_print_accept "print v_power3" {\[b1, b3, b6:b7\]}
- send "set v_power3 := \[b1, b3:b4, b7\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b1, b3:b4, b7\] ""
test_print_accept "print v_power3" {\[b1, b3:b4, b7\]}
- send "set v_power3 := \[b1, b4:b6, b7\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b1, b4:b6, b7\] ""
test_print_accept "print v_power3" {\[b1, b4:b7\]}
- send "set v_power3 := \[b1:b7\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b1:b7\] ""
test_print_accept "print v_power3" {\[b1:b7\]}
- send "set v_power3 := \[b5:b7, b1\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power3 := \[b5:b7, b1\] ""
test_print_accept "print v_power3" {\[b1, b5:b7\]}
- send "set v_power4 := \[\"b\"\] \n" ; expect -re "$prompt $"
+ send_gdb "set v_power4 := \[\"b\"\] \n" ; expect -re "$prompt $"
test_print_accept "print v_power4" {\['b':'x'\]}
- send "set v_power4 := \[5\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power4 := \[5\] ""
test_print_accept "print v_power4" {\['b':'x'\]}
- send "set v_power4 := \['c':'f','g':'h','o':'t'\]\n"; expect -re "$prompt $"
+ gdb_test "set v_power4 := \['c':'f','g':'h','o':'t'\] ""
test_print_accept "print v_power4" {\['c':'h', 'o':'t'\]}
- send "set v_power4 := \['a','b','c','d','e','f'\]\n"; expect -re "$prompt $"
+ gdb_test "set v_power4 := \['a','b','c','d','e','f'\] ""
test_print_accept "print v_power4" {\['a':'f'\]}
- send "set v_power4 := \['\^(0)':'\^(200)'\]\n"; expect -re "$prompt $"
+ gdb_test "set v_power4 := \['\^(0)':'\^(200)'\] ""
test_print_accept "print v_power4" {\['\^\(0\)':'\^\(200\)'\]}
- send "set v_power5 := \[a8\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[a8\] ""
test_print_accept "print v_power5" {\[2:100\]}
- send "set v_power5 := \[4\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[4\] ""
test_print_accept "print v_power5" {\[4\]}
- send "set v_power5 := \[3:95,9:100,10:107,200:250\]\n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[3:95,9:100,10:107,200:250\] ""
test_print_accept "print v_power5" {\[3:107, 200:250\]}
- send "set v_power5 := \[2, 100:120, 350:400\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[2, 100:120, 350:400\] ""
test_print_accept "print v_power5" {\[2, 100:120, 350:400\]}
- send "set v_power5 := \[2:64,65:127,128:256,256:399,400\]\n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[2:64,65:127,128:256,256:399,400\] ""
test_print_accept "print v_power5" {\[2:400\]}
- send "set v_power5 := \[3:95, 99:100, 101:107, 200:250\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power5 := \[3:95, 99:100, 101:107, 200:250\] ""
test_print_accept "print v_power5" {\[3:95, 99:107, 200:250\]}
- send "set v_power6 := \[a8\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power6 := \[a8\] ""
test_print_accept "print v_power6" {\[\]}
- send "set v_power6 := \[4\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power6 := \[4\] ""
test_print_accept "print v_power6" {\[4\]}
- send "set v_power6 := \[3:95, 99:100, 101:107, 200:250\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power6 := \[3:95, 99:100, 101:107, 200:250\] ""
test_print_accept "print v_power6" {\[3:95, 99:107, 200:250\]}
- send "set v_power6 := \[-111:0, 1:112, 11111:22222\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power6 := \[-111:0, 1:112, 11111:22222\] ""
test_print_accept "print v_power6" {\[-111:112, 11111:22222\]}
- send "set v_power6 := \[0, 200:4000, 6666:9999\] \n" ; expect -re "$prompt $"
+ gdb_test "set v_power6 := \[0, 200:4000, 6666:9999\] ""
test_print_accept "print v_power6" {\[0, 200:4000, 6666:9999\]}
-# send "set v_power7 := \[a8\] \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[a8\] ""
# test_print_accept "print v_power7" {\[2:100\]}
-# send "set v_power7 := \[4\] \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[4\] ""
# test_print_accept "print v_power7" {\[4\]}
-# send "set v_power7 := \[3:95, 99:100, 101:107, 200:250\]\n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[3:95, 99:100, 101:107, 200:250\] ""
# test_print_accept "print v_power7" {\[3:95, 99:107, 200:250\]}
-# send "set v_power7 := \[0, 1000, 1000000, 10000000000\] \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[0, 1000, 1000000, 10000000000\] ""
# test_print_accept "print v_power7" {\[0, 1000, 1000000, 1000000000\]}
-# send "set v_power7 := \[-20000:100000, 111111:2222222\] \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[-20000:100000, 111111:2222222\] ""
# test_print_accept "print v_power7" {\[-20000:100000, 111111:2222222\]}
-# send "set v_power7 := \[\] \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[\] ""
# test_print_accept "print v_power7" {\[3:95, 99:107, 200:250\]}
-# send "set v_power7 := \[2:-500, -501:1, 20:370, -888:-920, 1000:2000, 1800:2500\]\ \n" ; expect -re "$prompt $"
+# gdb_test "set v_power7 := \[2:-500, -501:1, 20:370, -888:-920, 1000:2000, 1800:2500\]\ ""
# test_print_accept "print v_power7" {\[-920:-888, -501:2, 20:370, 1000:2500\]}
# test_print_accept "print SIZE(v_power7)" ""
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto dummyfunc
gdb_test "print NULL" " = NULL" "print emptiness literal"
# This tests PR 8496.
- gdb_test {printf "%d %d.\n", 3+4,2} "7 2." "printf with 2 arguments"
+ gdb_test {printf "%d %d.", 3+4,2} "7 2." "printf with 2 arguments"
# This tests GCH/924
gdb_test {print (h'23)} { = 35} "print parantised integer literal"
setup_xfail "m68*-*-hpux*"
gdb_test "print array () ubyte (foo)" { = \[\(0:11\): 0\]}
- send "set var \$i := foo\n"
+ send_gdb "set var \$i := foo\n"
expect -re ".*$prompt $"
setup_xfail "m68*-*-hpux*"
gdb_test "print/x array () byte (\$i)" { = \[\(0:11\): H'0\]}
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break xx_\n"
+ send_gdb "break xx_\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
#
# Args are:
#
-# First one is string to send to gdb
+# First one is string to send_gdb to gdb
# Second one is string to match gdb result to
# Third one is an optional message to be printed
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
# test builtins as described in chapter 6.20.3 Z.200
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
# This is needed (at least on SunOS4) to make sure the
# the symbol table is read.
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto dump
# Linux thinks type is "_cint" (and so does sparc-sun-sunos4, alpha-dec-osf2.0)
gdb_test_exact "ptype m_index" "type = RANGE (1:10)" "ptype m_index"
gdb_test_exact "whatis a" "type = /*LOC*/ vector"
gdb_test "ptype a" "type = /\\*LOC\\*/ ARRAY \\(1:10\\) (INT|int)"
- send "step\n"; expect -re "$prompt $"
+ gdb_test "step ""
gdb_test_exact "whatis i" "type = long" "whatis loop counter i"
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
# This is needed (at least on SunOS4) to make sure the
# the symbol table is read.
- send "break chillvars.ch:3\n" ; expect -re "$prompt $"
- send "delete 1\n" ; expect -re "$prompt $"
+ gdb_test "break chillvars.ch:3 ""
+ gdb_test "delete 1 ""
- send "set width 0\n" ; expect -re "$prompt $"
- send "set print sevenbit-strings\n" ; expect -re "$prompt $"
- send "set print address off\n" ; expect -re "$prompt $"
+ gdb_test "set width 0 ""
+ gdb_test "set print sevenbit-strings ""
+ gdb_test "set print address off ""
test_pr_5020
}
{= [(10): [.l: 10, .b: TRUE], (11): [.l: 111, .b: FALSE]]}
gdb_test_exact "print setarr" \
{= [(aa): [.l: 10, .b: TRUE], (bb): [.l: 111, .b: FALSE]]}
- send "set print pretty\n" ; expect -re "$prompt $"
+ gdb_test "set print pretty ""
gdb_test_exact "print y" \
{= [('a'): [\r
.l: 10, \r
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
# This is needed (at least on SunOS4) to make sure the
# the symbol table is read.
- send "break gdbme.ch:3\n" ; expect -re "$prompt $"
- send "delete 1\n" ; expect -re "$prompt $"
+ gdb_test "break gdbme.ch:3 ""
+ gdb_test "delete 1 ""
- send "set width 0\n" ; expect -re "$prompt $"
- send "set print sevenbit-strings\n" ; expect -re "$prompt $"
+ gdb_test "set width 0 ""
+ gdb_test "set print sevenbit-strings ""
test_pr_5022
}
global prompt
runto dummy_pr_5022
gdb_test "p p" " = NULL" "print NULL pointer"
- send "continue\n" ; expect -re "$prompt $"
+ gdb_test "continue ""
gdb_test "p p" {= PTR\(H'[0-9a-fA-F]+\)} "print non-NULL pointer"
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto p
- send "next\n" ; expect -re "$prompt $"
+ gdb_test "next ""
gdb_test_exact "print xx" {= [a:b]}
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ;
+ send_gdb "set language chill\n" ;
- send "break pr-5984.ch:6\n"; expect -re "$prompt $"
- send "run\n"; expect -re "Breakpoint .*pr-5984.ch:6"
+ gdb_test "break pr-5984.ch:6 ""
+ send_gdb "run\n"; expect -re "Breakpoint .*pr-5984.ch:6"
expect -re "$prompt $"
gdb_test "next" "Jason Dark.*" "next over Jason Dark"
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ;
+ send_gdb "set language chill\n" ;
- send "break pr-6292.ch:15\n"; expect -re "$prompt $"
- send "run\n"; expect -re "Breakpoint .*pr-6292.ch:15.*$prompt $"
+ gdb_test "break pr-6292.ch:15 ""
+ send_gdb "run\n"; expect -re "Breakpoint .*pr-6292.ch:15.*$prompt $"
gdb_test_exact "call klaus()" {here's klaus calling.}
gdb_test {set fred(10, i)} {a was '10'; b was '12'.}
gdb_test "print i" { = 13} "print i after call"
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto p
gdb_test "whatis x" {type = m_dummy_range}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto p1
gdb_test "print first" "= 1"
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto p1
gdb_test "print ps" {= \[e3, e7:e9\]}
gdb_start
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
- send "set var \$i:=xx\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
+ gdb_test "set var \$i:=xx ""
gdb_test "print \$i" {= \[.c: "", .b: B'00000000', .boo: FALSE\]}
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto dummy
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
gdb_test "print size(m_byte)" { = 2}
gdb_test "print size(m_struct)" { = 6}
gdb_start
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto pr-9095.ch:12
gdb_test {p v_arr2(5)->.p(5)} "reference value used as function" \
"bad call using pointer"
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if ![set_lang_chill] then {
runto x_
- send "next\n" ; expect -re "$prompt $"
+ gdb_test "next ""
# check comparison of SET's
gdb_test {print xyz=moving} { = TRUE}
gdb_test {print xyz/=moving} { = FALSE}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
- send "set width 0\n" ; expect -re "$prompt $"
- send "set print sevenbit-strings\n" ; expect -re "$prompt $"
- send "set print address off\n" ; expect -re "$prompt $"
+ gdb_test "set width 0 ""
+ gdb_test "set print sevenbit-strings ""
+ gdb_test "set print address off ""
# simple function
runto simple_func
- send "step 2\n" ; expect -re "$prompt $"
+ gdb_test "step 2 ""
gdb_test "print j" "= 5"
gdb_test "p RESULT" "= 10"
- send "continue\n" ; expect -re "$prompt $"
+ gdb_test "continue ""
gdb_test "print i" "= 7"
- send "step 4\n" ; expect -re "$prompt $"
- send "set RESULT := 50\n" ; expect -re "$prompt $"
- send "finish\n" ; expect -re "$prompt $"
- send "step\n" ; expect -re "$prompt $"
+ gdb_test "step 4 ""
+ gdb_test "set RESULT := 50 ""
+ gdb_test "finish ""
+ gdb_test "step ""
gdb_test "print i" "= 50"
# returning a structure
runto ret_struct
- send "step 2\n"; expect -re "$prompt $"
+ gdb_test "step 2 ""
gdb_test "p result" {\[.l: 33, .b: FALSE\]}
- send "set var result := \[383, TRUE\]\n"; expect -re "$prompt $"
- send "finish\n"; expect -re "$prompt $"
+ gdb_test "set var result := \[383, TRUE\] ""
+ gdb_test "finish ""
gdb_test "p v_struct" {\[.l: 383, .b: TRUE\]}
}
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
# These tests based on Cygnus PR chill/5696.
runto string.ch:22
verbose "loading file '$binfile'"
gdb_load $binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break dummyfunc\n"
+ send_gdb "break dummyfunc\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
#
# Args are:
#
-# First one is string to send to gdb
+# First one is string to send_gdb to gdb
# Second one is string to match gdb result to
# Third one is an optional message to be printed
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
test_modes
verbose "loading file '$objdir/$subdir/$binfile'"
gdb_load $objdir/$subdir/$binfile
- send "set language chill\n"
+ send_gdb "set language chill\n"
expect {
-re ".*$prompt $" {}
timeout { fail "set language chill (timeout)" ; return 0 }
}
- send "show language\n"
+ send_gdb "show language\n"
expect {
-re ".* source language is \"chill\".*$prompt $" {
pass "set language to \"chill\""
- send "break dummyfunc\n"
+ send_gdb "break dummyfunc\n"
expect {
-re ".*$prompt $" {
- send "run\n"
+ send_gdb "run\n"
expect -re ".*$prompt $" {}
return 1
}
verbose "loc: $location, val: $value, msg: $message, ext: $extended, match: $matchval"
verbose "setting var $value..."
- send "set var $location.m$extended := $value\n"
+ send_gdb "set var $location.m$extended := $value\n"
expect -re ".*$prompt $" {}
gdb_test "print $location" \
".*= \[\[\]\\.p1: 2863311530, \\.m: $matchval, \\.p2: 1431655765\[\]\]"\
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings ".*"
if [set_lang_chill] then {
write_access
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
- send "set language chill\n" ; expect -re "$prompt $"
+ gdb_test "set language chill ""
runto tuples.ch:40
gdb_test_exact "print vstr.ch1" {= 'x'} "vstr.ch1 after assignment"
# These tests are from Cygnus PR chill/5024:
- send "break printdow\n" ; expect -re "$prompt $"
- send "continue\n" ; expect -re "$prompt $"
+ gdb_test "break printdow ""
+ gdb_test "continue ""
gdb_test_exact "set var w:= dow\[monday\]" {}
gdb_test "print w" " = \\\[monday\\\]" \
"print bitstring after assignment"
+
# Copyright (C) 1992 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
strace $tracelevel
}
+if ![istarget "hppa*-*-*"] {
+ verbose "Tests ignored for all but hppa based targets."
+ return
+}
+
+global exec_output
set prms_id 0
set bug_id 0
-set binfile "hppa"
-set srcfile $binfile.s
+set testfile "hppa"
+set srcfile ${srcdir}/${subdir}/${testfile}.s
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcfile}" "${binfile}" executable ""] != "" } {
+ if [ regexp "Opcode not defined - DIAG" $exec_output] {
+ warning "HP assembler in use--skipping disasm tests"
+ return
+ } else {
+ perror "Couldn't compile ${srcfile}"
+ return -1
+ }
+}
proc all_integer_memory_tests { } {
global prompt
global hex
global decimal
- send "x/8i integer_memory_tests\n"
+ send_gdb "x/8i integer_memory_tests\n"
expect {
- -re ".*
+ -re "
.*ldw 0\\(sr0,r4\\),r26.*
.*ldh 0\\(sr0,r4\\),r26.*
.*ldb 0\\(sr0,r4\\),r26.*
timeout { fail "(timeout) integer memory_tests" }
}
- send "x/20i integer_indexing_load\n"
+ send_gdb "x/20i integer_indexing_load\n"
expect {
- -re ".*
+ -re "
.*ldwx r5\\(sr0,r4\\),r26.*
.*ldwx,s r5\\(sr0,r4\\),r26.*
.*ldwx,m r5\\(sr0,r4\\),r26.*
timeout { fail "(timeout) integer_indexing" }
}
- send "x/15i integer_load_short_memory\n"
+ send_gdb "x/15i integer_load_short_memory\n"
expect {
- -re ".*
+ -re "
.*ldws 0\\(sr0,r4\\),r26.*
.*ldws,mb 0\\(sr0,r4\\),r26.*
.*ldws,ma 0\\(sr0,r4\\),r26.*
}
- send "x/17i integer_store_short_memory\n"
+ send_gdb "x/17i integer_store_short_memory\n"
expect {
- -re ".*
+ -re "
.*stws r26,0\\(sr0,r4\\).*
.*stws,mb r26,0\\(sr0,r4\\).*
.*stws,ma r26,0\\(sr0,r4\\).*
global hex
global decimal
- send "x/3i immediate_tests\n"
+ send_gdb "x/3i immediate_tests\n"
expect {
- -re ".*
+ -re "
.*ldo 5\\(r26\\),r26.*
.*ldil -21524800,r26.*
.*addil -21524800,r5.*
global hex
global decimal
- send "x/10i branch_tests_1\n"
+ send_gdb "x/10i branch_tests_1\n"
expect {
- -re ".*
+ -re "
.*bl.*,rp.*
.*bl,n.*,rp.*
.*b.*
timeout { fail "(timeout) branch_tests_1" }
}
- send "x/6i branch_tests_2\n"
+ send_gdb "x/6i branch_tests_2\n"
expect {
- -re ".*
+ -re "
.*bv r0\\(rp\\).*
.*bv,n r0\\(rp\\).*
.*be 1234\\(sr1,rp\\).*
}
- send "x/8i movb_tests\n"
+ send_gdb "x/8i movb_tests\n"
expect {
- -re ".*
+ -re "
.*movb r4,r26,.* <movb_tests>.*
.*movb,= r4,r26,.* <movb_tests>.*
.*movb,< r4,r26,.* <movb_tests>.*
timeout { fail "(timeout) movb_tests " }
}
- send "x/8i movb_nullified_tests\n"
+ send_gdb "x/8i movb_nullified_tests\n"
expect {
- -re ".*
+ -re "
.*movb,n.*r4,r26,.* <movb_tests>.*
.*movb,=,n.*r4,r26,.* <movb_tests>.*
.*movb,<,n.*r4,r26,.* <movb_tests>.*
timeout { fail "(timeout) movb_nullified_tests " }
}
- send "x/8i movib_tests\n"
+ send_gdb "x/8i movib_tests\n"
expect {
- -re ".*
+ -re "
.*movib 5,r26,.* <movib_tests>.*
.*movib,= 5,r26,.* <movib_tests>.*
.*movib,< 5,r26,.* <movib_tests>.*
timeout { fail "(timeout) movib_tests " }
}
- send "x/8i movib_nullified_tests\n"
+ send_gdb "x/8i movib_nullified_tests\n"
expect {
- -re ".*
+ -re "
.*movib,n.*5,r26,.* <movib_tests>.*
.*movib,=,n.*5,r26,.* <movib_tests>.*
.*movib,<,n.*5,r26,.* <movib_tests>.*
timeout { fail "(timeout) movib_nullified_tests " }
}
- send "x/8i comb_tests_1\n"
+ send_gdb "x/8i comb_tests_1\n"
expect {
- -re ".*
+ -re "
.*comb r0,r4,.* <comb_tests_1>.*
.*comb,= r0,r4,.* <comb_tests_1>.*
.*comb,< r0,r4,.* <comb_tests_1>.*
timeout { fail "(timeout) comb_tests_1" }
}
- send "x/8i comb_tests_2\n"
+ send_gdb "x/8i comb_tests_2\n"
expect {
- -re ".*
+ -re "
.*combf r0,r4,.* <comb_tests_2>.*
.*combf,= r0,r4,.* <comb_tests_2>.*
.*combf,< r0,r4,.* <comb_tests_2>.*
timeout { fail "(timeout) comb_tests_2" }
}
- send "x/8i comb_nullified_tests_1\n"
+ send_gdb "x/8i comb_nullified_tests_1\n"
expect {
- -re ".*
+ -re "
.*comb,n r0,r4,.* <comb_tests_1>.*
.*comb,=,n r0,r4,.* <comb_tests_1>.*
.*comb,<,n r0,r4,.* <comb_tests_1>.*
timeout { fail "(timeout) comb_nullified_tests_1" }
}
- send "x/8i comb_nullified_tests_2\n"
+ send_gdb "x/8i comb_nullified_tests_2\n"
expect {
- -re ".*
+ -re "
.*combf,n r0,r4,.* <comb_tests_2>.*
.*combf,=,n r0,r4,.* <comb_tests_2>.*
.*combf,<,n r0,r4,.* <comb_tests_2>.*
timeout { fail "(timeout) comb_nullified_tests_2" }
}
- send "x/8i comib_tests_1\n"
+ send_gdb "x/8i comib_tests_1\n"
expect {
- -re ".*
+ -re "
.*comib 0,r4,.* <comib_tests_1>.*
.*comib,= 0,r4,.* <comib_tests_1>.*
.*comib,< 0,r4,.* <comib_tests_1>.*
timeout { fail "(timeout) comib_tests_1" }
}
- send "x/8i comib_tests_2\n"
+ send_gdb "x/8i comib_tests_2\n"
expect {
- -re ".*
+ -re "
.*comibf 0,r4,.* <comib_tests_2>.*
.*comibf,= 0,r4,.* <comib_tests_2>.*
.*comibf,< 0,r4,.* <comib_tests_2>.*
timeout { fail "(timeout) comib_tests_2" }
}
- send "x/8i comib_nullified_tests_1\n"
+ send_gdb "x/8i comib_nullified_tests_1\n"
expect {
- -re ".*
+ -re "
.*comib,n 0,r4,.* <comib_tests_1>.*
.*comib,=,n 0,r4,.* <comib_tests_1>.*
.*comib,<,n 0,r4,.* <comib_tests_1>.*
timeout { fail "(timeout) comib_nullified_tests_1" }
}
- send "x/8i comib_nullified_tests_2\n"
+ send_gdb "x/8i comib_nullified_tests_2\n"
expect {
- -re ".*
+ -re "
.*comibf,n 0,r4,.* <comib_tests_2>.*
.*comibf,=,n 0,r4,.* <comib_tests_2>.*
.*comibf,<,n 0,r4,.* <comib_tests_2>.*
timeout { fail "(timeout) comib_nullified_tests_2" }
}
- send "x/8i addb_tests_1\n"
+ send_gdb "x/8i addb_tests_1\n"
expect {
- -re ".*
+ -re "
.*addb r1,r4,.* <addb_tests_1>.*
.*addb,= r1,r4,.* <addb_tests_1>.*
.*addb,< r1,r4,.* <addb_tests_1>.*
timeout { fail "(timeout) addb_tests_1" }
}
- send "x/8i addb_tests_2\n"
+ send_gdb "x/8i addb_tests_2\n"
expect {
- -re ".*
+ -re "
.*addbf r1,r4,.* <addb_tests_2>.*
.*addbf,= r1,r4,.* <addb_tests_2>.*
.*addbf,< r1,r4,.* <addb_tests_2>.*
timeout { fail "(timeout) addb_tests_2" }
}
- send "x/8i addb_nullified_tests_1\n"
+ send_gdb "x/8i addb_nullified_tests_1\n"
expect {
- -re ".*
+ -re "
.*addb,n r1,r4,.* <addb_tests_1>.*
.*addb,=,n r1,r4,.* <addb_tests_1>.*
.*addb,<,n r1,r4,.* <addb_tests_1>.*
timeout { fail "(timeout) addb_nullified_tests_1" }
}
- send "x/8i addb_nullified_tests_2\n"
+ send_gdb "x/8i addb_nullified_tests_2\n"
expect {
- -re ".*
+ -re "
.*addbf,n r1,r4,.* <addb_tests_2>.*
.*addbf,=,n r1,r4,.* <addb_tests_2>.*
.*addbf,<,n r1,r4,.* <addb_tests_2>.*
timeout { fail "(timeout) addb_nullified_tests_2" }
}
- send "x/8i addib_tests_1\n"
+ send_gdb "x/8i addib_tests_1\n"
expect {
- -re ".*
+ -re "
.*addib -1,r4,.* <addib_tests_1>.*
.*addib,= -1,r4,.* <addib_tests_1>.*
.*addib,< -1,r4,.* <addib_tests_1>.*
timeout { fail "(timeout) addib_tests_1" }
}
- send "x/8i addib_tests_2\n"
+ send_gdb "x/8i addib_tests_2\n"
expect {
- -re ".*
+ -re "
.*addibf -1,r4,.* <addib_tests_2>.*
.*addibf,= -1,r4,.* <addib_tests_2>.*
.*addibf,< -1,r4,.* <addib_tests_2>.*
timeout { fail "(timeout) addib_tests_2" }
}
- send "x/8i addib_nullified_tests_1\n"
+ send_gdb "x/8i addib_nullified_tests_1\n"
expect {
- -re ".*
+ -re "
.*addib,n -1,r4,.* <addib_tests_1>.*
.*addib,=,n -1,r4,.* <addib_tests_1>.*
.*addib,<,n -1,r4,.* <addib_tests_1>.*
timeout { fail "(timeout) addb_nullified_tests_1" }
}
- send "x/8i addib_nullified_tests_2\n"
+ send_gdb "x/8i addib_nullified_tests_2\n"
expect {
- -re ".*
+ -re "
.*addibf,n -1,r4,.* <addib_tests_2>.*
.*addibf,=,n -1,r4,.* <addib_tests_2>.*
.*addibf,<,n -1,r4,.* <addib_tests_2>.*
timeout { fail "(timeout) addb_nullified_tests_2" }
}
- send "x/8i bb_tests\n"
+ send_gdb "x/8i bb_tests\n"
expect {
- -re ".*
+ -re "
.*bvb,< r4,.* <bb_tests>.*
.*bvb,>= r4,.* <bb_tests>.*
.*bvb,<,n r4,.* <bb_tests>.*
{sh3add} {sh3addl} {sh3addo} ]
foreach i $add_insns {
- send "x/16i $i"; send "_tests\n"
+ send_gdb "x/16i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,r5,r6.*
.*$i,= r4,r5,r6.*
.*$i,< r4,r5,r6.*
{ds} {comclr} ]
foreach i $sub_insns {
- send "x/16i $i"; send "_tests\n"
+ send_gdb "x/16i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,r5,r6.*
.*$i,= r4,r5,r6.*
.*$i,< r4,r5,r6.*
set logical_insns [list {or} {xor} {and} {andcm} ]
foreach i $logical_insns {
- send "x/10i $i"; send "_tests\n"
+ send_gdb "x/10i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,r5,r6.*
.*$i,= r4,r5,r6.*
.*$i,< r4,r5,r6.*
set unit_insns1 [list {uxor} {uaddcm} {uaddcmt} ]
foreach i $unit_insns1 {
- send "x/12i $i"; send "_tests\n"
+ send_gdb "x/12i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,r5,r6.*
.*$i,sbz r4,r5,r6.*
.*$i,shz r4,r5,r6.*
set unit_insns2 [list {dcor} {idcor} ]
foreach i $unit_insns2 {
- send "x/12i $i"; send "_tests\n"
+ send_gdb "x/12i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,r5.*
.*$i,sbz r4,r5.*
.*$i,shz r4,r5.*
set addi_insns [list {addi} {addio} {addit} {addito} ]
foreach i $addi_insns {
- send "x/16i $i"; send "_tests\n"
+ send_gdb "x/16i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i 7b,r5,r6.*
.*$i,= 7b,r5,r6.*
.*$i,< 7b,r5,r6.*
set subi_insns [list {subi} {subio} {comiclr} ]
foreach i $subi_insns {
- send "x/16i $i"; send "_tests\n"
+ send_gdb "x/16i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i 7b,r5,r6.*
.*$i,= 7b,r5,r6.*
.*$i,< 7b,r5,r6.*
}
}
- send "x/8i vshd_tests\n"
+ send_gdb "x/8i vshd_tests\n"
expect {
- -re ".*
+ -re "
.*vshd r4,r5,r6.*
.*vshd,= r4,r5,r6.*
.*vshd,< r4,r5,r6.*
timeout { fail "(timeout) "vshd tests" }
}
- send "x/8i shd_tests\n"
+ send_gdb "x/8i shd_tests\n"
expect {
- -re ".*
+ -re "
.*shd r4,r5,5,r6.*
.*shd,= r4,r5,5,r6.*
.*shd,< r4,r5,5,r6.*
set extract_insns1 [list {extru} {extrs} {zdep} {dep} ]
foreach i $extract_insns1 {
- send "x/8i $i"; send "_tests\n"
+ send_gdb "x/8i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,5,10,r6.*
.*$i,= r4,5,10,r6.*
.*$i,< r4,5,10,r6.*
set extract_insns2 [list {vextru} {vextrs} {zvdep} {vdep} ]
foreach i $extract_insns2 {
- send "x/8i $i"; send "_tests\n"
+ send_gdb "x/8i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i r4,5,r6.*
.*$i,= r4,5,r6.*
.*$i,< r4,5,r6.*
set extract_insns3 [list {vdepi} {zvdepi} ]
foreach i $extract_insns3 {
- send "x/8i $i"; send "_tests\n"
+ send_gdb "x/8i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i -1,5,r6.*
.*$i,= -1,5,r6.*
.*$i,< -1,5,r6.*
set extract_insns4 [list {depi} {zdepi} ]
foreach i $extract_insns4 {
- send "x/8i $i"; send "_tests\n"
+ send_gdb "x/8i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i -1,4,10,r6.*
.*$i,= -1,4,10,r6.*
.*$i,< -1,4,10,r6.*
global hex
global decimal
- send "x/13i system_control_tests\n"
+ send_gdb "x/14i system_control_tests\n"
expect {
- -re ".*
+ -re "
.*break 5,c.*
.*rfi.*
.*rfir.*
.*mfsp sr0,r4.*
.*mfctl ccr,r4.*
.*sync.*
+.*syncdma.*
.*diag 4d2.*
.*$prompt $" { pass "system_constrol_tests" }
-re "$prompt $" { fail "system_control_tests" }
timeout { file "(timeout) system_control_tests" }
}
- send "x/4i probe_tests\n"
+ send_gdb "x/4i probe_tests\n"
expect {
- -re ".*
+ -re "
.*prober \\(sr0,r5\\),r6,r7.*
.*proberi \\(sr0,r5\\),1,r7.*
.*probew \\(sr0,r5\\),r6,r7.*
timeout { file "(timeout) probe_tests" }
}
- send "x/4i lpa_tests\n"
+ # lci uses the same bit pattern as lha, so accept lha.
+ send_gdb "x/5i lpa_tests\n"
expect {
- -re ".*
+ -re "
.*lpa r4\\(sr0,r5\\),r6.*
.*lpa,m r4\\(sr0,r5\\),r6.*
.*lha r4\\(sr0,r5\\),r6.*
.*lha,m r4\\(sr0,r5\\),r6.*
+.*lha r4\\(sr0,r5\\),r6.*
.*$prompt $" { pass "lpa_tests" }
-re "$prompt $" { fail "lpa_tests" }
timeout { file "(timeout) lpa_tests" }
}
- send "x/18i purge_tests\n"
+ send_gdb "x/18i purge_tests\n"
expect {
- -re ".*
+ -re "
.*pdtlb r4\\(sr0,r5\\).*
.*pdtlb,m r4\\(sr0,r5\\).*
.*pitlb r4\\(sr0,r5\\).*
timeout { file "(timeout) purge_tests" }
}
- send "x/4i insert_tests\n"
+ send_gdb "x/4i insert_tests\n"
expect {
- -re ".*
+ -re "
.*idtlba r4,\\(sr0,r5\\).*
.*iitlba r4,\\(sr0,r5\\).*
.*idtlbp r4,\\(sr0,r5\\).*
global hex
global decimal
- send "x/20i fpu_memory_indexing_tests\n"
+ send_gdb "x/20i fpu_memory_indexing_tests\n"
expect {
- -re ".*
+ -re "
.*fldwx r4\\(sr0,r5\\),fr6.*
.*fldwx,s r4\\(sr0,r5\\),fr6.*
.*fldwx,m r4\\(sr0,r5\\),fr6.*
timeout { file "(timeout) fpu_memory_indexing_tests" }
}
- send "x/15i fpu_short_memory_tests\n"
+ send_gdb "x/15i fpu_short_memory_tests\n"
expect {
- -re ".*
+ -re "
.*fldws 0\\(sr0,r5\\),fr6.*
.*fldws,mb 0\\(sr0,r5\\),fr6.*
.*fldws,ma 0\\(sr0,r5\\),fr6.*
global hex
global decimal
- send "x/1i fpu_misc_tests\n"
+ send_gdb "x/1i fpu_misc_tests\n"
expect {
- -re ".*
+ -re "
.*ftest.*
.*$prompt $" { pass "fpu_misc_tests" }
-re "$prompt $" { fail "fpu_misc_tests" }
set fpu_two_op_insns [list {fcpy} {fabs} {fsqrt} {frnd} ]
foreach i $fpu_two_op_insns {
- send "x/5i $i"; send "_tests\n"
+ send_gdb "x/5i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i,sgl fr5,fr10.*
.*$i,dbl fr5,fr10.*
.*$i,quad fr5,fr10.*
set fpu_conversions [list {fcnvff} {fcnvxf} {fcnvfx} {fcnvfxt} ]
foreach i $fpu_conversions {
- send "x/18i $i"; send "_tests\n"
+ send_gdb "x/18i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i,sgl,sgl fr5,fr10.*
.*$i,sgl,dbl fr5,fr10.*
.*$i,sgl,quad fr5,fr10.*
set fpu_three_op_insns [list {fadd} {fsub} {fmpy} {fdiv} {frem} ]
foreach i $fpu_three_op_insns {
- send "x/6i $i"; send "_tests\n"
+ send_gdb "x/6i $i"; send_gdb "_tests\n"
expect {
- -re ".*
+ -re "
.*$i,sgl fr4,fr8,fr12.*
.*$i,dbl fr4,fr8,fr12.*
.*$i,quad fr4,fr8,fr12.*
}
}
- send "x/4i fmpy_addsub_tests\n"
+ send_gdb "x/4i fmpy_addsub_tests\n"
expect {
- -re ".*
+ -re "
.*fmpyadd,sgl fr16,fr17,fr18,fr19,fr20.*
.*fmpyadd,dbl fr16,fr17,fr18,fr19,fr20.*
.*fmpysub,sgl fr16,fr17,fr18,fr19,fr20.*
timeout { fail "(timeout) fmpy_addsub_tests" }
}
- send "x/i xmpyu_tests\n"
+ send_gdb "x/i xmpyu_tests\n"
expect {
- -re ".*
+ -re "
.*xmpyu fr4,fr5,fr6.*
.*$prompt $" {pass "xmpyu_tests" }
-re "$prompt $" {fail "xmpyu_tests" }
set fpu_comparison_formats [list {sgl} {dbl} {quad} ]
foreach i $fpu_comparison_formats {
- send "x/8i fcmp_$i"; send "_tests_1\n"
+ send_gdb "x/8i fcmp_$i"; send_gdb "_tests_1\n"
expect {
- -re ".*
+ -re "
.*fcmp,$i,false\\? fr4,fr5.*
.*fcmp,$i,false fr4,fr5.*
.*fcmp,$i,\\? fr4,fr5.*
timeout { fail "(timeout) fcmp_$i tests (part1) " }
}
- send "x/8i fcmp_$i"; send "_tests_2\n"
+ send_gdb "x/8i fcmp_$i"; send_gdb "_tests_2\n"
expect {
- -re ".*
+ -re "
.*fcmp,$i,!\\?>= fr4,fr5.*
.*fcmp,$i,< fr4,fr5.*
.*fcmp,$i,\\?< fr4,fr5.*
timeout { fail "(timeout) fcmp_$i tests (part2) " }
}
- send "x/8i fcmp_$i"; send "_tests_3\n"
+ send_gdb "x/8i fcmp_$i"; send_gdb "_tests_3\n"
expect {
- -re ".*
+ -re "
.*fcmp,$i,!\\?<= fr4,fr5.*
.*fcmp,$i,> fr4,fr5.*
.*fcmp,$i,\\?> fr4,fr5.*
timeout { fail "(timeout) fcmp_$i tests (part3) " }
}
- send "x/16i fcmp_$i"; send "_tests_4\n"
+ send_gdb "x/8i fcmp_$i"; send_gdb "_tests_4\n"
expect {
- -re ".*
+ -re "
.*fcmp,$i,!\\?= fr4,fr5.*
.*fcmp,$i,<> fr4,fr5.*
.*fcmp,$i,!= fr4,fr5.*
global hex
global decimal
- send "x/4i special_tests\n"
+ send_gdb "x/4i special_tests\n"
expect {
- -re ".*
+ -re "
.*gfw r4\\(sr0,r5\\).*
.*gfw,m r4\\(sr0,r5\\).*
.*gfr r4\\(sr0,r5\\).*
global hex
global decimal
- send "x/16i sfu_tests\n"
+ send_gdb "x/16i sfu_tests\n"
expect {
- -re ".*
+ -re "
.*spop0,4,5.*
.*spop0,4,73.*
.*spop0,4,5,n.*
global hex
global decimal
- send "x/4i copr_tests\n"
+ send_gdb "x/4i copr_tests\n"
expect {
- -re ".*
+ -re "
.*copr,4,5.*
.*copr,4,73.*
.*copr,4,5,n.*
global hex
global decimal
- send "x/8i copr_indexing_load\n"
+ send_gdb "x/8i copr_indexing_load\n"
expect {
- -re ".*
+ -re "
.*cldwx,4 r5\\(sr0,r4\\),r26.*
.*cldwx,4,s r5\\(sr0,r4\\),r26.*
.*cldwx,4,m r5\\(sr0,r4\\),r26.*
timeout { fail "(timeout) copr indexed load tests " }
}
- send "x/8i copr_indexing_store\n"
+ send_gdb "x/8i copr_indexing_store\n"
expect {
- -re ".*
+ -re "
.*cstwx,4 r26,r5\\(sr0,r4\\).*
.*cstwx,4,s r26,r5\\(sr0,r4\\).*
.*cstwx,4,m r26,r5\\(sr0,r4\\).*
timeout { fail "(timeout) copr indexed load tests " }
}
- send "x/12i copr_short_memory\n"
+ send_gdb "x/12i copr_short_memory\n"
expect {
- -re ".*
+ -re "
.*cldws,4 0\\(sr0,r4\\),r26.*
.*cldws,4,mb 0\\(sr0,r4\\),r26.*
.*cldws,4,ma 0\\(sr0,r4\\),r26.*
global hex
global decimal
- send "x/12i fmemLRbug_tests_1\n"
+ send_gdb "x/12i fmemLRbug_tests_1\n"
expect {
- -re ".*
+ -re "
.*fstws fr6R,0\\(sr0,r26\\).*
.*fstws fr6,4\\(sr0,r26\\).*
.*fstws fr6,8\\(sr0,r26\\).*
timeout { fail "(timeout) fmem LR register selector tests (part1)" }
}
- send "x/12i fmemLRbug_tests_2\n"
+ send_gdb "x/12i fmemLRbug_tests_2\n"
expect {
- -re ".*
+ -re "
.*fstws fr6R,0\\(sr0,r26\\).*
.*fstws fr6,4\\(sr0,r26\\).*
.*fstws fr6,8\\(sr0,r26\\).*
timeout { fail "(timeout) fmem LR register selector tests (part2)" }
}
- send "x/12i fmemLRbug_tests_3\n"
+ send_gdb "x/12i fmemLRbug_tests_3\n"
expect {
- -re ".*
+ -re "
.*fstwx fr6R,r25\\(sr0,r26\\).*
.*fstwx fr6,r25\\(sr0,r26\\).*
.*fstwx fr6,r25\\(sr0,r26\\).*
timeout { fail "(timeout) fmem LR register selector tests (part3)" }
}
- send "x/12i fmemLRbug_tests_4\n"
+ send_gdb "x/12i fmemLRbug_tests_4\n"
expect {
- -re ".*
+ -re "
.*fstwx fr6R,r25\\(sr0,r26\\).*
.*fstwx fr6,r25\\(sr0,r26\\).*
.*fstwx fr6,r25\\(sr0,r26\\).*
}
}
-if ![file exists $objdir/$subdir/$binfile] then {
- if $all_flag then {
- warning "$objdir/$subdir/$binfile does not exist; tests suppressed"
- }
-} else {
- # Start with a fresh gdb.
-
- gdb_exit
- gdb_start
- gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
-
- all_integer_memory_tests
- all_immediate_tests
- all_branch_tests
- all_integer_computational_tests
- all_system_control_tests
- all_fpu_memory_tests
- all_fpu_computational_tests
- all_fpu_comparison_tests
- all_special_tests
- all_sfu_tests
- all_copr_tests
- all_copr_mem_tests
-
- # Regression test for a bug Tege found.
- fmemLRbug_tests
-}
+# Start with a fresh gdb.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load $binfile
+
+all_integer_memory_tests
+all_immediate_tests
+all_branch_tests
+all_integer_computational_tests
+all_system_control_tests
+all_fpu_memory_tests
+all_fpu_computational_tests
+all_fpu_comparison_tests
+all_special_tests
+all_sfu_tests
+all_copr_tests
+all_copr_mem_tests
+
+# Regression test for a bug Tege found.
+fmemLRbug_tests
strace $tracelevel
}
+if ![istarget "sh3*-*-*"] {
+ verbose "Tests ignored for all but sh3 based targets."
+ return
+}
+
set prms_id 0
set bug_id 0
-set binfile "sh3"
-set srcfile $binfile.s
+set testfile "sh3"
+set srcfile ${srcdir}/${subdir}/${testfile}.s
+set binfile ${objdir}/${subdir}/${testfile}
+if { [gdb_compile "${srcfile}" "${binfile}" executable ""] != "" } {
+ perror "Couldn't link ${binfile}"
+ return -1
+}
proc all_fp_move_and_load_tests { } {
global prompt
global hex
global decimal
- send "x/9i fp_move_and_load_tests\n"
+ send_gdb "x/9i fp_move_and_load_tests\n"
expect {
-re "
.*fmov.s\t@r0,fr0.*
global hex
global decimal
- send "x/13i fp_arithmetic_tests\n"
+ send_gdb "x/13i fp_arithmetic_tests\n"
expect {
-re "
.*fadd\tfr0,fr1.*
.*fsub\tfr0,fr1.*
.*fmul\tfr0,fr1.*
.*fdiv\tfr0,fr1.*
-.*fmac\tfr0,fr1.*
+.*fmac\tfr0,fr0,fr1.*
.*fcmp/eq\tfr0,fr1.*
.*fcmp/gt\tfr0,fr1.*
.*ftst/nan\tfr0.*
global hex
global decimal
- send "x/10i fp_misc_tests\n"
+ send_gdb "x/10i fp_misc_tests\n"
expect {
-re "
.*fsts\tfpul,fr0.*
}
}
-if ![file exists $objdir/$subdir/$binfile] then {
- if $all_flag then {
- warning "$objdir/$subdir/$binfile does not exist; tests suppressed"
- }
-} else {
- # Start with a fresh gdb.
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load $binfile
- gdb_exit
- gdb_start
- gdb_reinitialize_dir $srcdir/$subdir
- gdb_load $objdir/$subdir/$binfile
+all_fp_move_and_load_tests
+all_fp_arithmetic_tests
+all_fp_misc_tests
- all_fp_move_and_load_tests
- all_fp_arithmetic_tests
- all_fp_misc_tests
-}
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
proc set_lang_fortran {} {
global prompt
-
- send "set language fortran\n"
- expect {
- -re ".*$prompt $" {}
- timeout { fail "set language fortran (timeout)" ; return 0 }
+
+ if [gdb_test "set language fortran" ""] {
+ return 0;
}
- send "show language\n"
- expect {
- -re ".* source language is \"fortran\".*$prompt $" {
- pass "set language to \"fortran\""
- return 1
- }
- -re ".*$prompt $" {
- fail "setting language to \"fortran\""
- return 0
- }
- timeout {
- fail "can't show language (timeout)"
- return 0
- }
+ if ![gdb_test "show language" ".* source language is \"fortran\".*"] {
+ return 1;
+ } else {
+ return 0;
}
}
# Test various floating point formats
- gdb_test "p .44 .LT. .45" " = 1"
- gdb_test "p .44 .GT. .45" " = 0"
- gdb_test "p 0.44 .LT. 0.45" " = 1"
- gdb_test "p 0.44 .GT. 0.45" " = 0"
- gdb_test "p 44. .LT. 45." " = 1"
- gdb_test "p 44. .GT. 45." " = 0"
- gdb_test "p 44.0 .LT. 45.0" " = 1"
- gdb_test "p 44.0 .GT. 45.0" " = 0"
- gdb_test "p 10D20 .LT. 10D21" " = 1"
- gdb_test "p 10D20 .GT. 10D21" " = 0"
- gdb_test "p 10d20 .LT. 10d21" " = 1"
- gdb_test "p 10d20 .GT. 10d21" " = 0"
- gdb_test "p 10E20 .LT. 10E21" " = 1"
- gdb_test "p 10E20 .GT. 10E21" " = 0"
- gdb_test "p 10e20 .LT. 10e21" " = 1"
- gdb_test "p 10e20 .GT. 10e21" " = 0"
- gdb_test "p 10.D20 .LT. 10.D21" " = 1"
- gdb_test "p 10.D20 .GT. 10.D21" " = 0"
- gdb_test "p 10.d20 .LT. 10.d21" " = 1"
- gdb_test "p 10.d20 .GT. 10.d21" " = 0"
- gdb_test "p 10.E20 .LT. 10.E21" " = 1"
- gdb_test "p 10.E20 .GT. 10.E21" " = 0"
- gdb_test "p 10.e20 .LT. 10.e21" " = 1"
- gdb_test "p 10.e20 .GT. 10.e21" " = 0"
- gdb_test "p 10.0D20 .LT. 10.0D21" " = 1"
- gdb_test "p 10.0D20 .GT. 10.0D21" " = 0"
- gdb_test "p 10.0d20 .LT. 10.0d21" " = 1"
- gdb_test "p 10.0d20 .GT. 10.0d21" " = 0"
- gdb_test "p 10.0E20 .LT. 10.0E21" " = 1"
- gdb_test "p 10.0E20 .GT. 10.0E21" " = 0"
- gdb_test "p 10.0e20 .LT. 10.0e21" " = 1"
- gdb_test "p 10.0e20 .GT. 10.0e21" " = 0"
- gdb_test "p 10.0D+20 .LT. 10.0D+21" " = 1"
- gdb_test "p 10.0D+20 .GT. 10.0D+21" " = 0"
- gdb_test "p 10.0d+20 .LT. 10.0d+21" " = 1"
- gdb_test "p 10.0d+20 .GT. 10.0d+21" " = 0"
- gdb_test "p 10.0E+20 .LT. 10.0E+21" " = 1"
- gdb_test "p 10.0E+20 .GT. 10.0E+21" " = 0"
- gdb_test "p 10.0e+20 .LT. 10.0e+21" " = 1"
- gdb_test "p 10.0e+20 .GT. 10.0e+21" " = 0"
- gdb_test "p 10.0D-11 .LT. 10.0D-10" " = 1"
- gdb_test "p 10.0D-11 .GT. 10.0D-10" " = 0"
- gdb_test "p 10.0d-11 .LT. 10.0d-10" " = 1"
- gdb_test "p 10.0d-11 .GT. 10.0d-10" " = 0"
- gdb_test "p 10.0E-11 .LT. 10.0E-10" " = 1"
- gdb_test "p 10.0E-11 .GT. 10.0E-10" " = 0"
- gdb_test "p 10.0e-11 .LT. 10.0e-10" " = 1"
- gdb_test "p 10.0e-11 .GT. 10.0e-10" " = 0"
+ gdb_test "p .44 .LT. .45" " = .TRUE."
+ gdb_test "p .44 .GT. .45" " = .FALSE."
+ gdb_test "p 0.44 .LT. 0.45" " = .TRUE."
+ gdb_test "p 0.44 .GT. 0.45" " = .FALSE."
+ gdb_test "p 44. .LT. 45." " = .TRUE."
+ gdb_test "p 44. .GT. 45." " = .FALSE."
+ gdb_test "p 44.0 .LT. 45.0" " = .TRUE."
+ gdb_test "p 44.0 .GT. 45.0" " = .FALSE."
+ gdb_test "p 10D20 .LT. 10D21" " = .TRUE."
+ gdb_test "p 10D20 .GT. 10D21" " = .FALSE."
+ gdb_test "p 10d20 .LT. 10d21" " = .TRUE."
+ gdb_test "p 10d20 .GT. 10d21" " = .FALSE."
+ gdb_test "p 10E20 .LT. 10E21" " = .TRUE."
+ gdb_test "p 10E20 .GT. 10E21" " = .FALSE."
+ gdb_test "p 10e20 .LT. 10e21" " = .TRUE."
+ gdb_test "p 10e20 .GT. 10e21" " = .FALSE."
+ gdb_test "p 10.D20 .LT. 10.D21" " = .TRUE."
+ gdb_test "p 10.D20 .GT. 10.D21" " = .FALSE."
+ gdb_test "p 10.d20 .LT. 10.d21" " = .TRUE."
+ gdb_test "p 10.d20 .GT. 10.d21" " = .FALSE."
+ gdb_test "p 10.E20 .LT. 10.E21" " = .TRUE."
+ gdb_test "p 10.E20 .GT. 10.E21" " = .FALSE."
+ gdb_test "p 10.e20 .LT. 10.e21" " = .TRUE."
+ gdb_test "p 10.e20 .GT. 10.e21" " = .FALSE."
+ gdb_test "p 10.0D20 .LT. 10.0D21" " = .TRUE."
+ gdb_test "p 10.0D20 .GT. 10.0D21" " = .FALSE."
+ gdb_test "p 10.0d20 .LT. 10.0d21" " = .TRUE."
+ gdb_test "p 10.0d20 .GT. 10.0d21" " = .FALSE."
+ gdb_test "p 10.0E20 .LT. 10.0E21" " = .TRUE."
+ gdb_test "p 10.0E20 .GT. 10.0E21" " = .FALSE."
+ gdb_test "p 10.0e20 .LT. 10.0e21" " = .TRUE."
+ gdb_test "p 10.0e20 .GT. 10.0e21" " = .FALSE."
+ gdb_test "p 10.0D+20 .LT. 10.0D+21" " = .TRUE."
+ gdb_test "p 10.0D+20 .GT. 10.0D+21" " = .FALSE."
+ gdb_test "p 10.0d+20 .LT. 10.0d+21" " = .TRUE."
+ gdb_test "p 10.0d+20 .GT. 10.0d+21" " = .FALSE."
+ gdb_test "p 10.0E+20 .LT. 10.0E+21" " = .TRUE."
+ gdb_test "p 10.0E+20 .GT. 10.0E+21" " = .FALSE."
+ gdb_test "p 10.0e+20 .LT. 10.0e+21" " = .TRUE."
+ gdb_test "p 10.0e+20 .GT. 10.0e+21" " = .FALSE."
+ gdb_test "p 10.0D-11 .LT. 10.0D-10" " = .TRUE."
+ gdb_test "p 10.0D-11 .GT. 10.0D-10" " = .FALSE."
+ gdb_test "p 10.0d-11 .LT. 10.0d-10" " = .TRUE."
+ gdb_test "p 10.0d-11 .GT. 10.0d-10" " = .FALSE."
+ gdb_test "p 10.0E-11 .LT. 10.0E-10" " = .TRUE."
+ gdb_test "p 10.0E-11 .GT. 10.0E-10" " = .FALSE."
+ gdb_test "p 10.0e-11 .LT. 10.0e-10" " = .TRUE."
+ gdb_test "p 10.0e-11 .GT. 10.0e-10" " = .FALSE."
}
proc test_convenience_variables {} {
global prompt
- gdb_test "set \$foo = 101" " = 101\[\r\n\]+" \
+ gdb_test "set \$foo = 101" " = 101\[\r\n\]*" \
"Set a new convenience variable"
gdb_test "print \$foo" " = 101" \
"Print contents of new convenience variable"
- gdb_test "set \$foo = 301" " = 301\[\r\n\]+" \
+ gdb_test "set \$foo = 301" " = 301\[\r\n\]*" \
"Set convenience variable to a new value"
gdb_test "print \$foo" " = 301" \
"Print new contents of convenience variable"
- gdb_test "set \$_ = 11" " = 11\[\r\n\]+" \
+ gdb_test "set \$_ = 11" " = 11\[\r\n\]*" \
"Set convenience variable \$_"
gdb_test "print \$_" " = 11" \
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings" ""
if [set_lang_fortran] then {
test_value_history
test_float_literals_accepted
test_arithmetic_expressions
} else {
- warning "$test_name tests suppressed."
+ warning "$test_name tests suppressed." 0
}
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@prep.ai.mit.edu
proc set_lang_fortran {} {
global prompt
-
- send "set language fortran\n"
- expect {
- -re ".*$prompt $" {}
- timeout { fail "set language fortran (timeout)" ; return 0 }
- }
-
- send "show language\n"
- expect {
- -re ".* source language is \"fortran\".*$prompt $" {
- pass "set language to \"fortran\""
- return 1
- }
- -re ".*$prompt $" {
- fail "setting language to \"fortran\""
- return 0
- }
- timeout {
- fail "can't show language (timeout)"
- return 0
- }
+
+ if [gdb_test "set language fortran" ""] {
+ return 0;
}
-}
-
-# Testing printing of a specific value. Increment passcount for
-# success or issue fail message for failure. In both cases, return
-# a 1 to indicate that more tests can proceed. However a timeout
-# is a serious error, generates a special fail message, and causes
-# a 0 to be returned to indicate that more tests are likely to fail
-# as well.
-#
-# Args are:
-#
-# First one is string to send to gdb
-# Second one is string to match gdb result to
-# Third one is an optional message to be printed
-proc test_print_accept { args } {
- global prompt
- global passcount
- global verbose
-
- if [llength $args]==3 then {
- set message [lindex $args 2]
+ if ![gdb_test "show language" ".* source language is \"fortran\".*"] {
+ return 1;
} else {
- set message [lindex $args 0]
- }
- set sendthis [lindex $args 0]
- set expectthis [lindex $args 1]
- if $verbose>2 then {
- send_user "Sending \"$sendthis\" to gdb\n"
- send_user "Looking to match \"$expectthis\"\n"
- send_user "Message is \"$message\"\n"
- }
- send "$sendthis\n"
- expect {
- -re ".* = $expectthis\r\n$prompt $" {
- incr passcount
- return 1
- }
- -re ".*$prompt $" {
- if ![string match "" $message] then {
- fail "$sendthis ($message)"
- } else {
- fail "$sendthis"
- }
- return 1
- }
- timeout {
- fail "$sendthis (timeout)"
- return 0
- }
- }
-}
-
-# Testing printing of a specific value. Increment passcount for
-# success or issue fail message for failure. In both cases, return
-# a 1 to indicate that more tests can proceed. However a timeout
-# is a serious error, generates a special fail message, and causes
-# a 0 to be returned to indicate that more tests are likely to fail
-# as well.
-
-proc test_print_reject { args } {
- global prompt
- global passcount
- global verbose
-
- if [llength $args]==2 then {
- set expectthis [lindex $args 1]
- } else {
- set expectthis "should never match this bogus string"
- }
- set sendthis [lindex $args 0]
- if $verbose>2 then {
- send_user "Sending \"$sendthis\" to gdb\n"
- send_user "Looking to match \"$expectthis\"\n"
- }
- send "$sendthis\n"
- expect {
- -re ".*A .* in expression.*\\.*$prompt $" {
- incr passcount
- return 1
- }
- -re ".*Junk after end of expression.*$prompt $" {
- incr passcount
- return 1
- }
- -re ".*No symbol table is loaded.*$prompt $" {
- incr passcount
- return 1
- }
- -re ".*$expectthis.*$prompt $" {
- incr passcount
- return 1
- }
- -re ".*$prompt $" {
- fail "$sendthis not properly rejected"
- return 1
- }
- timeout {
- fail "$sendthis (timeout)"
- return 0
- }
+ return 0;
}
}
proc test_integer_literal_types_accepted {} {
global prompt
- global passcount
-
- set passcount 0
# Test various decimal values.
- test_print_accept "pt 123" "integer"
-
- if $passcount then {
- pass "$passcount correct integer literal types printed"
- }
+ gdb_test "pt 123" "type = int" # Should be integer*4 probably
}
proc test_character_literal_types_accepted {} {
global prompt
- global passcount
-
- set passcount 0
# Test various character values.
- test_print_accept "pt 'a'" "character*1"
-
- if $passcount then {
- pass "$passcount correct character literal types printed"
- }
+ gdb_test "pt 'a'" "type = character\\*1"
}
proc test_integer_literal_types_rejected {} {
global prompt
- global passcount
-
- set passcount 0
test_print_reject "pt _"
-
- if $passcount then {
- pass "$passcount incorrect integer literal types rejected"
- }
}
proc test_logical_literal_types_accepted {} {
global prompt
- global passcount
-
- set passcount 0
# Test the only possible values for a logical, TRUE and FALSE.
- test_print_accept "pt .TRUE." "logical*2"
- test_print_accept "pt .FALSE." "logical*2"
-
- if $passcount then {
- pass "$passcount correct logical literal types printed"
- }
+ gdb_test "pt .TRUE." "type = logical\\*2"
+ gdb_test "pt .FALSE." "type = logical\\*2"
}
proc test_float_literal_types_accepted {} {
global prompt
- global passcount
-
- set passcount 0
# Test various floating point formats
- test_print_accept "pt .44" "real*8"
- test_print_accept "pt 44.0" "real*8"
- test_print_accept "pt 10D20" "1"
- test_print_accept "pt 10D20" "0"
- test_print_accept "pt 10d20" "1"
- test_print_accept "pt 10d20" "0"
- test_print_accept "pt 10E20" "real*8"
- test_print_accept "pt 10E20" "real*8"
- test_print_accept "pt 10e20" "real*8"
- test_print_accept "pt 10e20" "real*8"
-
- if $passcount then {
- pass "$passcount correct float literal comparisons"
- }
+ gdb_test "pt .44" "type = real\\*8"
+ gdb_test "pt 44.0" "type = real\\*8"
+ gdb_test "pt 10D20" "type = real\\*8"
+ gdb_test "pt 10D20" "type = real\\*8"
+ gdb_test "pt 10d20" "type = real\\*8"
+ gdb_test "pt 10d20" "type = real\\*8"
+ gdb_test "pt 10E20" "type = real\\*8"
+ gdb_test "pt 10E20" "type = real\\*8"
+ gdb_test "pt 10e20" "type = real\\*8"
+ gdb_test "pt 10e20" "type = real\\*8"
}
# Start with a fresh gdb.
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
+gdb_test "set print sevenbit-strings" ""
if [set_lang_fortran] then {
test_integer_literal_types_accepted
test_character_literal_types_accepted
test_float_literal_types_accepted
} else {
- warning "$test_name tests suppressed."
+ warning "$test_name tests suppressed." 0
}
strace $tracelevel
}
+# If the test directory was not created by configure then skip
+# this test.
+if ![file isdirectory ${objdir}/${subdir}] then {
+ return 0
+}
+
+if ![file exists ${objdir}/${subdir}/weird.s] {
+ return 0
+}
+
set prms_id 0
set bug_id 0
# file is then processed with native cc, all stabs directives
# will be lost.
# Skip the rest of the stabs tests for this case.
- send "ptype inttype\n"
+ send_gdb "ptype inttype\n"
expect {
-re "^ptype inttype\r*\ntype = inttype.*$prompt $" {
pass "stabs found"
gdb_test "p common0var2" "= 22"
# this long line must be continous, not with "/" escaping the newline
- # This apparently worked at one time and is now broken on some configs
- setup_xfail "sparc-sun-sunos4*" "sparc-sun-solaris*" "hppa*-*-*"
gdb_test "p v_comb" "{<> = {<> = {x = 42}, \[_a-zA-Z$.\]* = \[0-9xa-fA-F\]*, a = 43}, <> = {\[_a-zA-Z$.\]* = \[0-9xa-fA-F\]*, b = 44}, comb = 45}"
}
# Make sure that the variable gets printed out correctly, without
# any sort of warning message.
- send "print $var\n"
+ send_gdb "print $var\n"
expect {
-re "^print $var\r*\n.\[0-9\]* = 42.*$prompt $" {
pass "variable $var printed properly"
# error messages during symbol reading.
set testfile weird
set srcfile ${objdir}/${subdir}/weird.s
-set binfile ${objdir}/${subdir}/weird.o
+set binfile ${objdir}/${subdir}/weirdx.o
global target_os
set sedscript ${srcdir}/${subdir}/aout.sed
}
-set exec_output [execute_anywhere "sed -f ${sedscript} < ${srcdir}/${subdir}/weird.def > ${srcfile}"]
-if { $exec_output != "" } {
- perror "Couldn't make test case."
+# Hope this is a Unix box.
+set exec_output [remote_exec build "sed" "-f ${sedscript}" "${srcdir}/${subdir}/weird.def" "${srcfile}"]
+if { [lindex $exec_output 0] != 0 } {
+ perror "Couldn't make test case. $exec_output"
return -1
}
-if { [compile "${srcfile} -c -o ${binfile}"] != "" } {
+if { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } {
perror "Couldn't compile ${srcfile}"
return -1
}
-set exec_output [execute_anywhere "rm -f ${srcfile}"]
-exp_send "file $binfile\n"
+remote_file build delete ${srcfile}
+set binfile [remote_download host ${binfile} object.o]
+send_gdb "file $binfile\n"
# If $binfile is very long, a \r (but not a \n) will echo in the
# middle of the echo of the command. So to match the echo, we
# would like to match anything not containing \n
# But spaces following by backspaces aren't really spaces.
expect {
-re "^file (\[^ \]| +\008)*\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
- pass "weird.o read without error"
+ pass "weirdx.o read without error"
}
-re "A program is being debugged already. Kill it\? \(y or n\)" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re ".*$prompt $" {
- fail "Errors reading weird.o"
+ fail "Errors reading weirdx.o"
}
timeout {
perror "couldn't load $binfile into $GDB (timed out)."
return -1
}
- eof { fail "(eof) cannot read weird.o" }
+ eof { fail "(eof) cannot read weirdx.o" }
}
do_tests
+remote_file host delete ${binfile}
+
return 0
set prms_id 0
set bug_id 0
+# This only works with native configurations
+if ![isnative] then {
+ return
+}
+
set testfile "pthreads"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-set ccout [compile "${srcdir}/${subdir}/${srcfile} -I${objdir}/${subdir} -g -o ${binfile} -lpthread"]
-switch -regexp -- $ccout {
- ".*no posix threads support.*" { return 0 }
- {^$} { pass "successfully compiled posix threads test case" }
- default { perror "Couldn't compile ${srcfile}" ; return -1 }
+
+set built_binfile 0
+if [istarget "*-*-linux"] then {
+ set target_cflags "-D_MIT_POSIX_THREADS"
+} else {
+ set target_cflags ""
+}
+set why_msg "unrecognized error"
+foreach lib {-lpthreads -lpthread} {
+ set options "debug"
+ lappend options "incdir=${objdir}/${subdir}"
+ lappend options "libs=$lib"
+ set ccout [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $options]
+ switch -regexp -- $ccout {
+ ".*no posix threads support.*" {
+ set why_msg "missing threads include file"
+ break
+ }
+ ".*cannot open -lpthread.*" {
+ set why_msg "missing runtime threads library"
+ }
+ ".*Can't find library for -lpthread.*" {
+ set why_msg "missing runtime threads library"
+ }
+ {^$} {
+ pass "successfully compiled posix threads test case"
+ set built_binfile 1
+ break
+ }
}
+}
+if {$built_binfile == "0"} {
+ unsupported "Couldn't compile ${srcfile}, ${why_msg}"
+ return -1
+}
# Now we can proceed with the real testing.
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
-send "set print sevenbit-strings\n" ; expect -re "$prompt $"
-#send "set print address off\n" ; expect -re "$prompt $"
-send "set width 0\n" ; expect -re "$prompt $"
+gdb_test "set print sevenbit-strings" ""
+#gdb_test "set print address off" ""
+gdb_test "set width 0" ""
-# We'll need this when we send a ^C to GDB. Need to do it before we
+# We'll need this when we send_gdb a ^C to GDB. Need to do it before we
# run the program and gdb starts saving and restoring tty states.
# On Ultrix, we don't need it and it is really slow (because shell_escape
# doesn't use vfork).
if ![istarget "*-*-ultrix*"] then {
- send "shell stty intr '^C'\n" ; expect -re "$prompt $"
+ gdb_test "shell stty intr '^C'" ""
}
proc all_threads_running {} {
global srcfile
# Reset all the counters to zero.
- send "set var common_routine::hits=0\n" ; expect -re "$prompt $"
- send "set var common_routine::from_thread1=0\n" ; expect -re "$prompt $"
- send "set var common_routine::from_thread2=0\n" ; expect -re "$prompt $"
- send "set var common_routine::from_main=0\n" ; expect -re "$prompt $"
- send "set var common_routine::full_coverage=0\n" ; expect -re "$prompt $"
+ gdb_test "set var common_routine::hits=0" ""
+ gdb_test "set var common_routine::from_thread1=0" ""
+ gdb_test "set var common_routine::from_thread2=0" ""
+ gdb_test "set var common_routine::from_main=0" ""
+ gdb_test "set var common_routine::full_coverage=0" ""
# Disable all breakpoints.
- send "disable\n" ; expect -re "$prompt $"
+ gdb_test "disable" ""
# Set up a breakpoint that will cause us to stop when we have
# been called 15 times. This should be plenty of time to allow
# every thread to run at least once, since each thread sleeps for
# one second between calls to common_routine.
- send "tbreak common_routine if hits == 15\n"; expect -re "$prompt $"
+ gdb_test "tbreak common_routine if hits == 15" ""
# Start all the threads running again and wait for the inferior
# to stop. Since no other breakpoints are set at this time
# we should stop only when we have been previously called 15 times.
- send "continue\n"
+ send_gdb "continue\n"
expect {
-re "Continuing.*common_routine.*at.*$srcfile.*$prompt $" {}
default {
# Check that we stopped when we actually expected to stop, by
# verifying that there have been 15 previous hits.
- send "p common_routine::hits\n"
+ send_gdb "p common_routine::hits\n"
expect {
-re ".*= 15\r\n$prompt $" {}
default {
fail "stopped before calling common_routine 15 times"
return 0
}
+ -re ".*$prompt $" {
+ fail "stopped before clling common_routine 15 times"
+ return 0
+ }
timeout {
fail "stopped before calling common_routine 15 times (timeout)"
return 0
# Also check that all of the threads have run, which will only be true
# if the full_coverage variable is set.
- send "p common_routine::full_coverage\n"
+ send_gdb "p common_routine::full_coverage\n"
expect {
-re ".*= 1\r\n$prompt $" {}
default {
global main_id thread1_id thread2_id
# We should be able to do an info threads before starting any others.
- gdb_test "info threads" ".*Thread.*LWP.*main.*"
+ send_gdb "info threads\n"
+ expect {
+ -re ".*Thread.*LWP.*main.*" {
+ pass "info threads"
+ }
+ -re "\r\n$prompt $" {
+ pass "info threads"
+ setup_xfail "*-*-*"
+ fail "gdb does not support pthreads for this machine"
+ return 0
+ }
+ }
# Extract the thread id number of main thread from "info threads" output.
- send "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*main.*)($prompt $)"
+ send_gdb "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*main.*)($prompt $)"
set main_id $expect_out(1,string)
# Check that we can continue and create the first thread.
gdb_test "continue" \
"Continuing.*Breakpoint .*, thread1 \\(arg=0xfeedface\\).*at.*$srcfile.*" \
"Continue to creation of first thread"
- send "disable\n" ; expect -re "$prompt $"
+ gdb_test "disable" ""
# Extract the thread id number of thread 1 from "info threads" output.
- send "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*thread1.*)($prompt $)"
+ send_gdb "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*thread1.*)($prompt $)"
set thread1_id $expect_out(1,string)
# Check that we can continue and create the second thread,
"Continue to creation of second thread"
# Extract the thread id number of thread 2 from "info threads" output.
- send "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*thread2.*)($prompt $)"
+ send_gdb "info threads\n" ; expect -re "(\[0-9\]+)(.*Thread.*thread2.*)($prompt $)"
set thread2_id $expect_out(1,string)
+
+ return 1
}
proc check_control_c {} {
}
# Send a continue followed by ^C to the process to stop it.
- send "continue\n"
+ send_gdb "continue\n"
set description "Stopped with a ^C"
- after 1000 [send "\003"]
+ after 1000 [send_gdb "\003"]
expect {
-re "Program received signal SIGINT.*$prompt $" {
pass $description
fail "$description (timeout)"
}
}
- send "bt\n" ; expect -re "$prompt $"
+ gdb_test "bt" ""
# Verify that all threads can be run again after a ^C stop.
if [all_threads_running] then {
"Breakpoint .* at 0x.* file .* line .*" \
"set break at common_routine in thread 2"
- send "continue\n"
+ send_gdb "continue\n"
expect {
-re "Breakpoint .* common_routine \\(arg=2\\).*" {
- send "backtrace\n"
+ send_gdb "backtrace\n"
expect {
-re "#0.*common_routine \\(arg=2\\).*#1.*thread2.*" {
pass "backtrace from thread 2 bkpt in common_routine"
-re "Breakpoint .* common_routine \\(arg=1\\).*" {
fail "stopped in main thread at breakpoint for thread 1"
}
+ -re ".*$prompt" {
+ fail "continue to bkpt at common_routine in thread 2"
+ }
default {
fail "continue to bkpt at common_routine in thread 2"
}
timeout {
fail "continue to bkpt at common_routine in thread 2 (timeout)"
}
-
}
}
+setup_xfail "alpha-*-osf*"
if [runto_main] then {
- test_startup
- check_control_c
- check_backtraces
+ clear_xfail "alpha-*-osf*"
+ if [test_startup] then {
+ check_control_c
+ check_backtraces
+ }
}
+clear_xfail "alpha-*-osf*"
--- /dev/null
+# step.exp -- Expect script to test gdb with step.c
+# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+# Please email any bugs, comments, and/or additions to this file to:
+# bug-gdb@prep.ai.mit.edu
+
+# This file was written by Hiro Sugawara. (hiro@lynx.com)
+#
+# This test really needs some major surgery to be acceptable, but
+# I'm just about burnt out on lynx work, so I'm not doing it now.
+#
+# * The test has an indeterminate number of pass/fails
+# for each run (it runs a small group of tests until
+# it's timer kicks off). This is very bad for nightly
+# automated regression testing.
+#
+# * It tries to "step" from withint he prologue of a
+# function. This isn't support in gdb (it's going
+# to act like a continue).
+#
+# * This test rarely check that it stopped in sensible
+# places. (see previous bullet -- this test doesn't
+# catch the fact it continued rather than stepped)
+
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set program_exited 0
+
+proc set_bp { where } {
+ global prompt
+
+ send_gdb "break $where\n"
+ # The first regexp is what we get with -g, the second without -g.
+ expect {
+ -re "Break.* at .*: file .*, line \[0-9\]*.*$prompt $" {}
+ -re "Breakpoint \[0-9\]* at 0x\[0-9a-f\]*.*$prompt $" {}
+ -re "$prompt $" { fail "setting breakpoint at $where" ; return 0 }
+ timeout { fail "setting breakpoint at $where (timeout)" ; return 0 }
+ }
+ pass "set_bp"
+}
+
+proc step_it { cmd } {
+ global prompt
+ global program_exited
+
+ send_gdb "$cmd\n"
+ expect {
+ -re "0x\[0-9A-Fa-f\]* *in.*\r\n$prompt $" { pass "step_it"; return 0 }
+ -re "0x\[0-9A-Fa-f\]* *\[0-9\]*.*\r\n$prompt $" { pass "step_it"; return 1 }
+ -re "Program exited .*\n$prompt $" {
+ set program_exited 1
+ return -1
+ }
+ -re "$prompt $" { fail "single-stepping ($cmd).\n" ; return -1 }
+ timeout { fail "single-stepping ($cmd) timout.\n" ; return -1 }
+ }
+}
+
+proc step_inst {} {
+ step_it "stepi"
+}
+
+proc step_source {} {
+ step_it "step"
+}
+
+proc continue_all {} {
+ global prompt
+
+ send_gdb "continue\n"
+ expect {
+ -re "Breakpoint \[0-9\]*, thread\[0-9\]* .*$prompt $" {
+ pass "continue_all"
+ return 0
+ }
+ -re "Program exited .*\n$prompt $" {
+ set program_exited 1
+ return 1;
+ }
+ -re "$prompt $" { fail "continue" ; return -1 }
+ timeout { fail "continue (timeout)" ; return -1 }
+ }
+}
+
+proc check_threads { num_threads } {
+ global prompt
+
+ set curr_thread 0
+ send_gdb "info threads\n"
+ while { $num_threads > 0 } {
+ expect {
+ -re "\\* *\[0-9\]* process \[0-9\]* thread \[0-9\]* .*\n" {
+ incr curr_thread
+ set num_threads [expr $num_threads - 1]
+ }
+ -re " *\[0-9\]* process \[0-9\]* thread \[0-9\]* .*\n" {
+ set num_threads [expr $num_threads - 1]
+ }
+ -re "$prompt $" {
+ if { $num_threads < 0 } {
+ fail "check_threads (too many)" ; return -1
+ }
+ break
+ }
+ timeout { fail "check_threads (timeout)" ; return -1 }
+ }
+ }
+
+ if { $curr_thread == 0 } {
+ fail "check_threads (no current thread)\n"
+ return -1
+ }
+ if { $curr_thread > 1 } {
+ fail "check_threads (more than one current thread)\n"
+ return -1
+ }
+ return 0
+}
+
+proc test_cond_wait {} {
+ global program_exited
+
+ set_bp 135
+ runto 179
+ while { 1 } {
+ set stepi_counter 0
+ while { [step_inst] } {
+ if { $program_exited } { break }
+ incr stepi_counter
+ if { $stepi_counter > 30 } {
+ fail "too many stepi's per line\n"
+ return -1
+ }
+ }
+ if { $program_exited } { break }
+ step_source
+ if { $program_exited } { break }
+ continue_all
+ if { $program_exited } { break }
+ check_threads 3
+ }
+}
+
+proc do_tests {} {
+ global prms_id
+ global bug_id
+ global subdir
+ global objdir
+ global srcdir
+ global binfile
+ global prompt
+
+ set prms_id 0
+ set bug_id 0
+
+ # Start with a fresh gdb.
+
+ gdb_exit
+ gdb_start
+ gdb_reinitialize_dir $srcdir/$subdir
+ gdb_load $objdir/$subdir/$binfile
+
+ send_gdb "set width 0\n"
+ expect -re "$prompt $"
+
+ test_cond_wait
+}
+
+# Check to see if we have an executable to test. If not, then either we
+# haven't tried to compile one, or the compilation failed for some reason.
+# In either case, just notify the user and skip the tests in this file.
+
+set binfile "step"
+set srcfile "step.c"
+
+if ![file exists $objdir/$subdir/$binfile] then {
+ if $all_flag then {
+ warning "$binfile does not exist; tests suppressed."
+ }
+} else {
+ do_tests
+}
--- /dev/null
+# step2.exp -- Expect script to test gdb step.c
+# 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+
+# Please email any bugs, comments, and/or additions to this file to:
+# bug-gdb@prep.ai.mit.edu
+
+# This file was written by Jeff Law. (law@cygnus.com)
+#
+
+
+if $tracelevel then {
+ strace $tracelevel
+}
+
+set program_exited 0
+
+# A simple and crude test to see that we can step two threads independently
+proc test_multi_threaded_stepping {} {
+ global prompt
+ global hex
+ global srcfile
+ global decimal
+
+ # Set breakpoints in code that we know is executed in only
+ # thread of control.
+ gdb_test "break thread1" \
+ "Break.* at $hex: file .*$srcfile, line $decimal\\."
+ gdb_test "break thread2" \
+ "Break.* at $hex: file .*$srcfile, line $decimal\\."
+
+ # the order in which things happen is indeterminate. So we basically
+ # look for a set of events and note that each one happens and that
+ # all of the required events have happened when we're done.
+ #
+ # Right now we only verify that both threads start and that they
+ # both call pthread_cond_wait twice.
+ set thread1started 0
+ set thread1condwait 0
+ set thread2started 0
+ set thread2condwait 0
+
+ send_gdb "run\n"
+ expect {
+ -re "The program .* has been started already.*y or n. $" {
+ send_gdb "y\n"
+ exp_continue
+ }
+ -re ".*Breakpoint \[0-9\]+,.*thread1.* at .*$srcfile:.*\[\t \].*$prompt $" {
+ if { $thread1started != 0 } then {
+ fail "thread1 started"
+ return
+ } else {
+ set thread1started 1
+ pass "thread1 started"
+ }
+ send_gdb "step\n"
+ exp_continue
+ }
+ -re ".*Breakpoint \[0-9\]+,.*thread2.* at .*$srcfile:.*\[\t \].*$prompt $" {
+ if { $thread2started != 0 } then {
+ fail "thread2 started"
+ return
+ } else {
+ set thread2started 1
+ pass "thread2 started"
+ }
+ send_gdb "step\n"
+ exp_continue
+ }
+ -re ".*pthread_cond_wait.*cv_a.*$prompt" {
+ if { $thread1started == 0 } then {
+ fail "thread1 condwait"
+ return
+ }
+ if { $thread1condwait < 2 } then {
+ pass "thread1 condwait"
+ incr thread1condwait
+ }
+ if { $thread2condwait == 2 } then {
+ pass "multi threaded stepping"
+ return
+ }
+ send_gdb "step\n"
+ exp_continue
+ }
+
+ -re ".*pthread_cond_wait.*cv_b.*$prompt" {
+ if { $thread2started == 0 } then {
+ fail "thread2 condwait"
+ return
+ }
+ if { $thread2condwait < 2 } then {
+ pass "thread2 condwait"
+ incr thread2condwait
+ }
+ if { $thread1condwait == 2 } then {
+ pass "multi threaded stepping"
+ return
+ }
+ send_gdb "step\n"
+ exp_continue
+ }
+
+ -re "$prompt" {
+ send_gdb "step\n"
+ exp_continue
+ }
+ default { fail "multi threaded stepping" }
+ }
+}
+
+# Check to see if we have an executable to test. If not, then either we
+# haven't tried to compile one, or the compilation failed for some reason.
+# In either case, just notify the user and skip the tests in this file.
+
+set binfile "step"
+set srcfile "step.c"
+
+if ![file exists $objdir/$subdir/$binfile] then {
+ if $all_flag then {
+ warning "$binfile does not exist; tests suppressed."
+ }
+ return
+}
+
+set prms_id 0
+set bug_id 0
+
+# Start with a fresh gdb.
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+gdb_load $objdir/$subdir/$binfile
+
+test_multi_threaded_stepping
load_lib libgloss.exp
global GDB
-global CC
-global CXX
-global CFLAGS
-global CXXFLAGS
global CHILL_LIB
global CHILL_RT0
-if ![info exists CC] {
- set CC [findfile $base_dir/../../gcc/xgcc "$base_dir/../../gcc/xgcc -B$base_dir/../../gcc/" [transform gcc]]
-}
-verbose "using CC = $CC" 2
-if ![info exists CXX] {
- set CXX [findfile $base_dir/../../gcc/xgcc "$base_dir/../../gcc/xgcc -B$base_dir/../../gcc/" [transform g++]]
-}
-verbose "using CXX = $CXX" 2
if ![info exists CHILL_LIB] {
set CHILL_LIB [findfile $base_dir/../../gcc/ch/runtime/libchill.a "$base_dir/../../gcc/ch/runtime/libchill.a" [transform -lchill]]
}
}
verbose "using CHILL_RT0 = $CHILL_RT0" 2
-if ![info exists LDFLAGS] {
- if [is3way] {
- append LDFLAGS " [libgloss_flags] [newlib_flags]"
+if ![info exists GDB] {
+ if ![is_remote host] {
+ set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]]
+ } else {
+ set GDB gdb
}
- set LDFLAGS ""
-}
-verbose "using LDFLAGS = $LDFLAGS" 2
-
-if ![info exists GDB] then {
- set GDB [findfile $base_dir/../../gdb/gdb "$base_dir/../../gdb/gdb" [transform gdb]]
}
verbose "using GDB = $GDB" 2
global GDBFLAGS
-if ![info exists GDBFLAGS] then {
+if ![info exists GDBFLAGS] {
set GDBFLAGS "-nx"
}
verbose "using GDBFLAGS = $GDBFLAGS" 2
# is not already set.
global prompt
if ![info exists prompt] then {
- set prompt "\\(gdb\\)"
-}
-
-global usestubs
-if [istarget "sparclite-*-*"] then {
- set usestubs 1
-} else {
- set usestubs 0
+ set prompt "\[(\]gdb\[)\]"
}
if ![info exists noargs] then {
proc default_gdb_version {} {
global GDB
global GDBFLAGS
- if {[which $GDB] != 0} then {
- set tmp [exec echo "q" | $GDB -nw $GDBFLAGS]
- regexp " \[0-9\]\[^ \t\n\]+" $tmp version
- clone_output "[which $GDB] version$version -nw $GDBFLAGS \n"
+ global prompt
+ set fileid [open "gdb_cmd" w];
+ puts $fileid "q";
+ close $fileid;
+ set cmdfile [remote_download host "gdb_cmd"];
+ set output [remote_exec host "$GDB -nw --command $cmdfile"]
+ remote_file build delete "gdb_cmd";
+ remote_file host delete "$cmdfile";
+ set tmp [lindex $output 1];
+ set version ""
+ regexp " \[0-9\]\[^ \t\n\r\]+" "$tmp" version
+ if ![is_remote host] {
+ clone_output "[which $GDB] version $version $GDBFLAGS\n"
} else {
- warning "$GDB does not exist"
+ clone_output "$GDB on remote host version $version $GDBFLAGS\n"
}
}
+proc gdb_version { } {
+ return [default_gdb_version];
+}
+
#
# gdb_unload -- unload a file if one is loaded
#
global verbose
global GDB
global prompt
- send "file\n"
+ send_gdb "file\n"
expect {
-re "No exec file now.*\r" { exp_continue }
-re "No symbol file now.*\r" { exp_continue }
-re "A program is being debugged already..*Kill it.*y or n. $"\
- { send "y\n"
+ { send_gdb "y\n"
verbose "\t\tKilling previous program being debugged"
exp_continue
}
-re "Discard symbol table from .*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "$prompt $" {}
proc delete_breakpoints {} {
global prompt
+ global gdb_spawn_id
- send "delete breakpoints\n"
+ send_gdb "delete breakpoints\n"
expect {
- -re "Delete all breakpoints.*y or n. $" {
- send "y\n"
+ -i $gdb_spawn_id -re ".*Delete all breakpoints.*y or n.*$" {
+ send_gdb "y\n";
exp_continue
}
- -re "y\r\n$prompt $" {}
- -re ".*$prompt $" { # This happens if there were no breakpoints
+ -i $gdb_spawn_id -re ".*$prompt $" { # This happens if there were no breakpoints
}
- timeout { perror "Delete all breakpoints (timeout)" ; return }
+ -i $gdb_spawn_id timeout { perror "Delete all breakpoints in delete_breakpoints (timeout)" ; return }
}
- send "info breakpoints\n"
+ send_gdb "info breakpoints\n"
expect {
- -re "No breakpoints or watchpoints..*$prompt $" {}
- -re ".*$prompt $" { perror "breakpoints not deleted" ; return }
- timeout { perror "info breakpoints (timeout)" ; return }
+ -i $gdb_spawn_id -re "No breakpoints or watchpoints..*$prompt $" {}
+ -i $gdb_spawn_id -re ".*$prompt $" { perror "breakpoints not deleted" ; return }
+ -i $gdb_spawn_id -re "Delete all breakpoints.*or n.*$" {
+ send_gdb "y\n";
+ exp_continue
+ }
+ -i $gdb_spawn_id timeout { perror "info breakpoints (timeout)" ; return }
}
}
# Using ``.*$'' could swallow up output that we attempt to match
# elsewhere.
#
-proc gdb_run_cmd {} {
- global usestubs
+proc gdb_run_cmd {args} {
global prompt
+ global gdb_spawn_id
+
+ set spawn_id $gdb_spawn_id
- if $usestubs!=0 {
- send "jump *start\n"
+ if [target_info exists use_gdb_stub] {
+ send_gdb "jump *start\n"
expect {
-re "Line.* Jump anyway.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
expect {
-re "Continuing.*$prompt $" {}
timeout { perror "Jump to start() failed (timeout)"; return }
}
}
+ -re "No symbol.*context.*$prompt $" {}
+ -re "The program is not being run.*$prompt $" {
+ gdb_load "";
+ }
timeout { perror "Jump to start() failed (timeout)"; return }
}
- send "continue\n"
+ send_gdb "continue\n"
return
}
- send "run\n"
+ send_gdb "run $args\n"
+# This doesn't work quite right yet.
expect {
-re "The program .* has been started already.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
exp_continue
}
-re "Starting program: \[^\n\]*" {}
}
}
+proc gdb_breakpoint { function } {
+ global prompt
+ global decimal
+ global gdb_spawn_id
+
+ set spawn_id $gdb_spawn_id
+
+ send_gdb "break $function\n"
+ # The first two regexps are what we get with -g, the third is without -g.
+ expect {
+ -re "Breakpoint \[0-9\]* at .*: file .*, line $decimal.\r\n$prompt $" {}
+ -re "Breakpoint \[0-9\]*: file .*, line $decimal.\r\n$prompt $" {}
+ -re "Breakpoint \[0-9\]* at .*$prompt $" {}
+ -re "$prompt $" { fail "setting breakpoint at $function" ; return 0 }
+ timeout { fail "setting breakpoint at $function (timeout)" ; return 0 }
+ }
+ return 1;
+}
# Set breakpoint at function and run gdb until it breaks there.
# Since this is the only breakpoint that will be set, if it stops
proc runto { function } {
global prompt
global decimal
+ global gdb_spawn_id
- send "delete\n"
- expect {
- -re "delete.*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 }
- }
+ set spawn_id $gdb_spawn_id
- send "break $function\n"
- # The first two regexps are what we get with -g, the third is without -g.
- expect {
- -re "Breakpoint \[0-9\]* at .*: file .*, line $decimal.\r\n$prompt $" {}
- -re "Breakpoint \[0-9\]*: file .*, line $decimal.\r\n$prompt $" {}
- -re "Breakpoint \[0-9\]* at .*$prompt $" {}
- -re "$prompt $" { fail "setting breakpoint at $function" ; return 0 }
- timeout { fail "setting breakpoint at $function (timeout)" ; return 0 }
+ delete_breakpoints
+
+ if ![gdb_breakpoint $function] {
+ return 0;
}
gdb_run_cmd
return 1
}
-re "$prompt $" {
- fail "running to $function"
+ fail "running to $function in runto"
return 0
}
timeout {
- fail "running to $function (timeout)"
+ fail "running to $function in runto (timeout)"
return 0
}
}
}
#
-# runto_main -- ask gdb to run and untill hit break point at main.
-# if it uses stubs, assuming we hit breakpoint() and just
-# step out of the function.
+# runto_main -- ask gdb to run until we hit a breakpoint at main.
+# The case where the target uses stubs has to be handled
+# specially--if it uses stubs, assuming we hit
+# breakpoint() and just step out of the function.
#
proc runto_main {} {
global prompt
global decimal
- global usestubs
- if $usestubs==0 {
+ if ![target_info exists gdb_stub] {
return [runto main]
}
- send "delete\n"
- expect {
- -re "delete.*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 }
- }
+ delete_breakpoints
- send "step\n"
+ send_gdb "step\n"
# if use stubs step out of the breakpoint() function.
expect {
-re "main.* at .*$prompt $" {}
+ -re "_start.*$prompt $" {}
timeout { fail "single step at breakpoint() (timeout)" ; return 0 }
}
return 1
}
#
-# gdb_test -- send a command to gdb and test the result.
+# gdb_test -- send_gdb a command to gdb and test the result.
# Takes three parameters.
# Parameters:
-# First one is the command to execute,
+# First one is the command to execute. If this is the null string
+# then no command is sent.
# Second one is the pattern to match for a PASS, and must NOT include
# the \r\n sequence immediately before the gdb prompt.
# Third one is an optional message to be printed. If this
-# a null string "", then the pass/fail messages are not printed.
+# a null string "", then the pass/fail messages use the command
+# string as the message.
# Returns:
# 1 if the test failed,
# 0 if the test passes,
global verbose
global prompt
global GDB
- global spawn_id
global expect_out
upvar timeout timeout
- if [llength $args]==3 then {
+ if [llength $args]>2 then {
set message [lindex $args 2]
} else {
set message [lindex $args 0]
set command [lindex $args 0]
set pattern [lindex $args 1]
+ if [llength $args]==5 {
+ set question_string [lindex $args 3];
+ set response_string [lindex $args 4];
+ } else {
+ set question_string "^FOOBAR$"
+ }
+
if $verbose>2 then {
send_user "Sending \"$command\" to gdb\n"
send_user "Looking to match \"$pattern\"\n"
set result -1
if ![string match $command ""] {
- send "$command\n"
+ send_gdb "$command\n"
}
expect {
gdb_start
set result -1
}
- -re "$pattern\r\n$prompt $" {
+ -re "\[\r\n\]*$pattern\[\r\n\]+$prompt $" {
if ![string match "" $message] then {
pass "$message"
}
set result 0
}
+ -re "${question_string}$" {
+ send_gdb "$response_string\n";
+ exp_continue;
+ }
-re "Undefined command:.*$prompt" {
perror "Undefined command \"$command\"."
set result 1
perror "\"$command\" is not a unique command name."
set result 1
}
- -re "(.*)(Program exited with code \[0-9\]+)(.*$prompt $)" {
+ -re ".*Program exited with code \[0-9\]+.*$prompt $" {
if ![string match "" $message] then {
- set errmsg "$message: $expect_out(2,string)"
+ set errmsg "$message: the program exited"
} else {
- set errmsg "$command: $expect_out(2,string)"
+ set errmsg "$command: the program exited"
}
- perror "$errmsg"
+ fail "$errmsg"
return -1
}
-re "The program is not being run.*$prompt $" {
} else {
set errmsg "$command: the program is no longer running"
}
- perror "$errmsg"
+ fail "$errmsg"
return -1
}
-re ".*$prompt $" {
set result 1
}
"<return>" {
- send "\n"
+ send_gdb "\n"
perror "Window too small."
}
-re "\\(y or n\\) " {
- send "n\n"
+ send_gdb "n\n"
perror "Got interactive prompt."
}
eof {
send_user "Sending \"$sendthis\" to gdb\n"
send_user "Looking to match \"$expectthis\"\n"
}
- send "$sendthis\n"
+ send_gdb "$sendthis\n"
expect {
-re ".*A .* in expression.*\\.*$prompt $" {
pass "reject $sendthis"
upvar timeout timeout
set command [lindex $args 0]
- set pattern [string_to_regexp [lindex $args 1]]
+
+ # This applies a special meaning to a null string pattern. Without
+ # this, "$pattern\r\n$prompt $" will match anything, including error
+ # messages from commands that should have no output except a new
+ # prompt. With this, only results of a null string will match a null
+ # string pattern.
+
+ set pattern [lindex $args 1]
+ if [string match $pattern ""] {
+ set pattern [string_to_regexp [lindex $args 0]]
+ } else {
+ set pattern [string_to_regexp [lindex $args 1]]
+ }
+
# It is most natural to write the pattern argument with only
# embedded \n's, especially if you are trying to avoid Tcl quoting
# problems. But expect really wants to see \r\n in patterns. So
} else {
set message $command
}
+
return [gdb_test $command $pattern $message]
}
\f
proc gdb_reinitialize_dir { subdir } {
global prompt
+ global gdb_spawn_id
+ set spawn_id $gdb_spawn_id
- send "dir\n"
+ if [is_remote host] {
+ return "";
+ }
+ send_gdb "dir\n"
expect {
-re "Reinitialize source path to empty.*y or n. " {
- send "y\n"
+ send_gdb "y\n"
expect {
-re "Source directories searched.*$prompt $" {
- send "dir $subdir\n"
+ send_gdb "dir $subdir\n"
expect {
-re "Source directories searched.*$prompt $" {
verbose "Dir set to $subdir"
global GDB
global GDBFLAGS
global verbose
+ global gdb_spawn_id
+
+ if ![info exists gdb_spawn_id] {
+ return;
+ }
verbose "Quitting $GDB $GDBFLAGS"
set timeout 5
verbose "Timeout is now $timeout seconds" 2
- # We used to try to send "quit" to GDB, and wait for it to die.
- # Dealing with all the cases and errors got pretty hairy. Just close it,
- # that is simpler.
- close
+ if [is_remote host] {
+ send_gdb "quit\n";
+ expect {
+ -i $gdb_spawn_id -re ".*and kill it.*y or n. " {
+ send_gdb "y\n";
+ exp_continue;
+ }
+ -i $gdb_spawn_id timeout { }
+ }
+ remote_close host;
+ } else {
+ # We used to try to send_gdb "quit" to GDB, and wait for it to die.
+ # Dealing with all the cases and errors got pretty hairy. Just close it,
+ # that is simpler.
+ close -i $gdb_spawn_id
+
+ # Omitting this probably would cause strange timing-dependent failures.
+ wait -i $gdb_spawn_id
+ }
- # Omitting this probably would cause strange timing-dependent failures.
- wait
+ unset gdb_spawn_id
}
#
global loadfile
global GDB
global prompt
- global spawn_id
upvar timeout timeout
+ global gdb_spawn_id
+ set spawn_id $gdb_spawn_id
+
+ if [is_remote host] {
+ set arg [remote_download host $arg];
+ if { $arg == "" } {
+ error "download failed"
+ return -1;
+ }
+ }
- send "file $arg\n"
+ send_gdb "file $arg\n"
expect {
-re "Reading symbols from.*done.*$prompt $" {
verbose "\t\tLoaded $arg into the $GDB"
return -1
}
-re "A program is being debugged already.*Kill it.*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
verbose "\t\tKilling previous program being debugged"
exp_continue
}
-re "Load new symbol table from \".*\".*y or n. $" {
- send "y\n"
+ send_gdb "y\n"
expect {
-re "Reading symbols from.*done.*$prompt $" {
verbose "\t\tLoaded $arg with new symbol table into $GDB"
global GDB
global GDBFLAGS
global prompt
- global spawn_id
global timeout
+ global gdb_spawn_id
+ global spawn_id
verbose "Spawning $GDB -nw $GDBFLAGS"
- if { [which $GDB] == 0 } then {
- perror "$GDB does not exist."
- exit 1
+ if [info exists gdb_spawn_id] {
+ return 0;
}
-
+
set oldtimeout $timeout
set timeout [expr "$timeout + 180"]
- verbose "Timeout increased to $timeout seconds" 2
- eval "spawn $GDB -nw $GDBFLAGS"
+ if [is_remote host] {
+ set shell_id [remote_spawn host "$GDB -nw $GDBFLAGS --command gdbinit"]
+ } else {
+ if { [which $GDB] == 0 } then {
+ perror "$GDB does not exist."
+ exit 1
+ }
+
+ set shell_id [remote_spawn host "$GDB -nw $GDBFLAGS"]
+ }
+ verbose $shell_id
+ set timeout 10
expect {
- -re ".*\r\n$prompt $" {
+ -i $shell_id -re ".*\[\r\n\]$prompt $" {
verbose "GDB initialized."
}
- -re "$prompt $" {
+ -i $shell_id -re "$prompt $" {
perror "GDB never initialized."
set timeout $oldtimeout
verbose "Timeout restored to $timeout seconds" 2
return -1
}
- timeout {
+ -i $shell_id timeout {
perror "(timeout) GDB never initialized after $timeout seconds."
set timeout $oldtimeout
verbose "Timeout restored to $timeout seconds" 2
}
set timeout $oldtimeout
verbose "Timeout restored to $timeout seconds" 2
+ set gdb_spawn_id $shell_id
+ set spawn_id $gdb_spawn_id
# force the height to "unlimited", so no pagers get used
- send "set height 0\n"
+ send_gdb "set height 0\n"
expect {
- -re ".*$prompt $" {
+ -i $shell_id -re ".*$prompt $" {
verbose "Setting height to 0." 2
}
- timeout {
- warning "Couldn't set the height to 0."
+ -i $shell_id timeout {
+ warning "Couldn't set the height to 0"
}
}
# force the width to "unlimited", so no wraparound occurs
- send "set width 0\n"
+ send_gdb "set width 0\n"
expect {
- -re ".*$prompt $" {
+ -i $shell_id -re ".*$prompt $" {
verbose "Setting width to 0." 2
}
- timeout {
+ -i $shell_id timeout {
warning "Couldn't set the width to 0."
}
}
+ return 0;
}
#
# FIXME: this is a copy of the new library procedure, but it's here too
# till the new dejagnu gets installed everywhere. I'd hate to break the
-# gdb tests suite.
+# gdb testsuite.
#
global argv0
if ![info exists argv0] then {
# chill target at the moment, don't run the chill tests.
proc skip_chill_tests {} {
- eval set skip_chill [expr ![isnative] || [istarget "*-*-aix*"] || [istarget "*-*-irix5*"] || [istarget "alpha-*-osf*"] || [istarget "hppa*-*-*"]]
+ if ![info exists do_chill_tests] {
+ return 1;
+ }
+ eval set skip_chill [expr ![isnative] || [istarget "*-*-aix*"] || [istarget "*-*-irix5*"] || [istarget "*-*-irix6*"] || [istarget "alpha-*-osf*"] || [istarget "hppa*-*-*"]]
verbose "Skip chill tests is $skip_chill"
return $skip_chill
}
+
+proc get_compiler_info {binfile} {
+ # Create and source the file that provides information about the compiler
+ # used to compile the test case.
+ global srcdir
+ global subdir
+ # These two come from compiler.c.
+ global signed_keyword_not_used
+ global gcc_compiled
+
+ if { [gdb_compile "${srcdir}/${subdir}/compiler.c" "${binfile}.ci" preprocess {}] != "" } {
+ perror "Couldn't make ${binfile}.ci file"
+ return 1;
+ }
+ source ${binfile}.ci
+ return 0;
+}
+
+proc gdb_compile {source dest type options} {
+ if [target_info exists gdb_stub] {
+ set options2 { "additional_flags=-Dusestubs" }
+ lappend options "libs=[target_info gdb_stub]";
+ set options [concat $options2 $options]
+ }
+ verbose "options are $options"
+ verbose "source is $source $dest $type $options"
+ set result [target_compile $source $dest $type $options];
+ regsub "\[\r\n\]*$" "$result" "" result;
+ regsub "^\[\r\n\]*" "$result" "" result;
+ if { $result != "" } {
+ clone_output "gdb compile failed, $result"
+ }
+ return $result;
+}
+
+proc send_gdb { string } {
+ return [remote_send host "$string"];
+}
+
+proc gdb_start { } {
+ default_gdb_start
+}
+
+proc gdb_exit { } {
+ catch default_gdb_exit
+}
+
+#
+# gdb_load -- load a file into the debugger.
+# return a -1 if anything goes wrong.
+#
+proc gdb_load { arg } {
+ return [gdb_file_cmd $arg]
+}
+
+proc gdb_continue { function } {
+ global decimal
+
+ return [gdb_test "continue" ".*Breakpoint $decimal, $function .*" "continue to $function"];
+}
+
+proc gdb_finish { } {
+ gdb_exit;
+}
#
# 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. */
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# Written by Jeffrey Wheat (cassidy@cygnus.com)
# Rewritten by Ian Lance Taylor (ian@cygnus.com)
return
}
-if { ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir$subdir/cdtest-foo.cc tmpdir/cdtest-foo.o]
- || ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir$subdir/cdtest-bar.cc tmpdir/cdtest-bar.o]
- || ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir$subdir/cdtest-main.cc tmpdir/cdtest-main.o] } {
+if { [which $CXX] == 0 } {
+ untested $test1
+ untested $test2
+ return
+}
+
+if { ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir/$subdir/cdtest-foo.cc tmpdir/cdtest-foo.o]
+ || ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir/$subdir/cdtest-bar.cc tmpdir/cdtest-bar.o]
+ || ![ld_compile "$CXX $CXXFLAGS -fgnu-linker" $srcdir/$subdir/cdtest-main.cc tmpdir/cdtest-main.o] } {
unresolved $test1
unresolved $test2
return
verbose "$exec_output" 1
fail $test1
} else {
- send_log "diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat\n"
- verbose "diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat"
- catch "exec diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat" exec_output
+ send_log "diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat\n"
+ verbose "diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat"
+ catch "exec diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat" exec_output
set exec_output [prune_system_crud $host_triplet $exec_output]
if [string match "" $exec_output] then {
verbose "$exec_output" 1
fail $test2
} else {
- send_log "diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat\n"
- verbose "diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat"
- catch "exec diff tmpdir/cdtest.out $srcdir$subdir/cdtest.dat" exec_output
+ send_log "diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat\n"
+ verbose "diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat"
+ catch "exec diff tmpdir/cdtest.out $srcdir/$subdir/cdtest.dat" exec_output
set exec_output [prune_system_crud $host_triplet $exec_output]
if [string match "" $exec_output] then {
# (by experimentation) to force the linker to relax twice--that is,
# the first relaxation pass will force another call to be out of
# range, requiring a second relaxation pass.
-if { ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/relax1.c tmpdir/relax1.o]
- || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/relax2.c tmpdir/relax2.o]
- || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/relax3.c tmpdir/relax3.o]
- || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/relax4.c tmpdir/relax4.o] } {
+if { ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/relax1.c tmpdir/relax1.o]
+ || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/relax2.c tmpdir/relax2.o]
+ || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/relax3.c tmpdir/relax3.o]
+ || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/relax4.c tmpdir/relax4.o] } {
unresolved $testname
return
}
-if ![ld_simple_link $ld tmpdir/relax "--relax -T $srcdir$subdir/relax.t tmpdir/relax1.o tmpdir/relax2.o tmpdir/relax3.o tmpdir/relax4.o"] {
+if ![ld_simple_link $ld tmpdir/relax "--relax -T $srcdir/$subdir/relax.t tmpdir/relax1.o tmpdir/relax2.o tmpdir/relax3.o tmpdir/relax4.o"] {
fail $testname
} else {
# Check that the relaxation produced the correct result. Check
# Compile the program which will run the test. This code must be
# compiled for the host, not the target.
-send_log "$CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir$subdir/run.c\n"
-verbose "$CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir$subdir/run.c"
-catch "exec $CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir$subdir/run.c" exec_output
+send_log "$CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir/$subdir/run.c\n"
+verbose "$CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir/$subdir/run.c"
+catch "exec $CC_FOR_HOST $CFLAGS_FOR_HOST -o tmpdir/run $srcdir/$subdir/run.c" exec_output
if ![string match "" $exec_output] {
send_log "$exec_output\n"
verbose "$exec_output"
}
# Compile and link the test.
-if { ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/runtesti.s tmpdir/runtesti.o]
- || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/runtest1.c tmpdir/runtest1.o]
- || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir$subdir/runtest2.c tmpdir/runtest2.o] } {
+if { ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/runtesti.s tmpdir/runtesti.o]
+ || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/runtest1.c tmpdir/runtest1.o]
+ || ![ld_compile "$CC $CFLAGS -membedded-pic" $srcdir/$subdir/runtest2.c tmpdir/runtest2.o] } {
unresolved $testname
return
}
--- /dev/null
+# Expect script for ld-sh tests
+# Copyright (C) 1995, 1996 Free Software Foundation
+#
+# This file 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.
+#
+# Written by Ian Lance Taylor (ian@cygnus.com)
+#
+
+# Test SH relaxing. This tests the compiler and assembler as well as
+# the linker.
+
+if ![istarget sh*-*-*] {
+ return
+}
+
+set testsimple "SH simple relaxing"
+
+if ![ld_assemble $as "-relax $srcdir/$subdir/sh1.s" tmpdir/sh1.o] {
+ unresolved $testsimple
+} else { if ![ld_simple_link $ld tmpdir/sh1 "-relax tmpdir/sh1.o"] {
+ fail $testsimple
+} else {
+ if ![ld_nm $nm tmpdir/sh1] {
+ unresolved $testsimple
+ } else {
+ if {![info exists nm_output(bar)] \
+ || ![info exists nm_output(foo)]} {
+ send_log "bad output from nm\n"
+ verbose "bad output from nm"
+ fail $testsimple
+ } else {
+ if {$nm_output(bar) != $nm_output(foo) + 4} {
+ send_log "foo == $nm_output(foo)\n"
+ verbose "foo == $nm_output(foo)"
+ send_log "bar == $nm_output(bar)\n"
+ verbose "bar == $nm_output(bar)"
+ fail $testsimple
+ } else {
+ pass $testsimple
+ }
+ }
+ }
+} }
+
+set testsrec "SH relaxing to S-records"
+
+if ![ld_simple_link $ld tmpdir/sh1.s1 "-relax -oformat srec tmpdir/sh1.o"] {
+ fail $testsrec
+} else {
+ # The file name is embedded in the S-records, so create both
+ # files with the same name.
+ catch "exec rm -f tmpdir/sh1.s2" exec_output
+ send_log "mv tmpdir/sh1.s1 tmpdir/sh1.s2\n"
+ verbose "mv tmpdir/sh1.s1 tmpdir/sh1.s2"
+ catch "exec mv tmpdir/sh1.s1 tmpdir/sh1.s2" exec_output
+ if ![string match "" $exec_output] {
+ send_log "$exec_output\n"
+ verbose "$exec_output"
+ unresolved $testsrec
+ } else {
+ send_log "$objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1"
+ verbose "$objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1"
+ catch "exec $objcopy -O srec tmpdir/sh1 tmpdir/sh1.s1" exec_output
+ if ![string match "" $exec_output] {
+ send_log "$exec_output\n"
+ verbose "$exec_output"
+ unresolved $testsrec
+ } else {
+ send_log "cmp tmpdir/sh1.s1 tmpdir/sh1.s2\n"
+ verbose "cmp tmpdir/sh1.s1 tmpdir/sh1.s2"
+ catch "exec cmp tmpdir/sh1.s1 tmpdir/sh1.s2" exec_output
+ set exec_output [prune_system_crud $host_triplet $exec_output]
+ if ![string match "" $exec_output] {
+ send_log "$exec_output\n"
+ verbose "$exec_output"
+ fail $testsrec
+ } else {
+ pass $testsrec
+ }
+ }
+ }
+}
+
+set testlink "SH relaxing"
+set testjsr "SH confirm relaxing"
+set testrun "SH relaxing execution"
+
+if { [which $CC] == 0 } {
+ untested $testlink
+ untested $testjsr
+ untested $testrun
+ return
+}
+
+if {![ld_assemble $as "-relax $srcdir/$subdir/start.s" tmpdir/start.o] \
+ || ![ld_compile $CC "-O -mrelax $srcdir/$subdir/sh2.c" tmpdir/sh2.o]} {
+ unresolved $testlink
+ unresolved $testjsr
+ unresolved $testrun
+ return
+}
+
+if ![ld_simple_link $ld tmpdir/sh2 "-relax tmpdir/start.o tmpdir/sh2.o"] {
+ fail $testlink
+ unresolved $testjsr
+ unresolved $testrun
+ return
+}
+
+pass $testlink
+
+send_log "$objdump -d tmpdir/sh2\n"
+verbose "$objdump -d tmpdir/sh2"
+catch "exec $objdump -d tmpdir/sh2" exec_output
+if [string match "*jsr*" $exec_output] {
+ fail $testjsr
+} else {
+ pass $testjsr
+}
+
+if { ![info exists SIM] || [which $SIM] == 0 } {
+ untested $testrun
+ return
+}
+
+set status [catch "exec $SIM tmpdir/sh2" exec_output]
+if { $status == 0 } {
+ pass $testrun
+} else {
+ fail $testrun
+}
catch "exec rm -f $object" exec_output
- verbose -log "$cc -I$srcdir$subdir -c $CFLAGS $source -o $object"
+ verbose -log "$cc -I$srcdir/$subdir -c $CFLAGS $source -o $object"
- catch "exec $cc -I$srcdir$subdir -c $CFLAGS $source -o $object" exec_output
+ catch "exec $cc -I$srcdir/$subdir -c $CFLAGS $source -o $object" exec_output
set exec_output [prune_system_crud $host_triplet $exec_output]
if [string match "" $exec_output] then {
if {![file exists $object]} then {
projects / binutils-gdb.git / commitdiff