diff options
Diffstat (limited to 'gdb/testsuite/gdb.hp/xdb2.exp')
-rw-r--r-- | gdb/testsuite/gdb.hp/xdb2.exp | 105 |
1 files changed, 0 insertions, 105 deletions
diff --git a/gdb/testsuite/gdb.hp/xdb2.exp b/gdb/testsuite/gdb.hp/xdb2.exp deleted file mode 100644 index 9bcdf58..0000000 --- a/gdb/testsuite/gdb.hp/xdb2.exp +++ /dev/null @@ -1,105 +0,0 @@ -# Copyright (C) 1992, 1994, 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: -# bug-gdb@prep.ai.mit.edu - -# This file was written by Fred Fish. (fnf@cygnus.com) - -if $tracelevel then { - strace $tracelevel - } - -if { [skip_hp_tests] } then { continue } - -global message - -# -# test running programs -# -set prms_id 0 -set bug_id 0 - -set testfile "xdb" -set binfile ${objdir}/${subdir}/${testfile} - -if { [gdb_compile "${srcdir}/${subdir}/xdb0.c" "${binfile}0.o" object {debug}] != "" } { - perror "Couldn't compile ${testfile}0.c to object" - return -1 -} - -if { [gdb_compile "${srcdir}/${subdir}/xdb1.c" "${binfile}1.o" object {debug}] != "" } { - perror "Couldn't compile ${testfile}1.c to object" - return -1 -} - -if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}] != "" } { - perror "Couldn't link ${testfile}." - return -1 -} - -if [get_compiler_info ${binfile}] { - return -1; -} - -if { $gcc_compiled } then { continue } - -global GDBFLAGS -set saved_gdbflags $GDBFLAGS -set GDBFLAGS "$GDBFLAGS --xdb" - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} -gdb_test "break main" "" -gdb_test "run" "" -gdb_test "go +2" "Breakpoint.*at.*file.*xdb0\.c, line 12\.\r\nContinuing at.*\r\nmain \\(\\) at.*xdb0\.c:12\r\n12\[ \t\]+foo \\(x\\+\\+\\);" -gdb_test "go -2" "Note: breakpoint.*also set at pc.*\.\r\nBreakpoint.*at.*file.*xdb0\.c, line 10\.\r\nContinuing at.*\.\r\n\r\nBreakpoint.*, main \\(\\) at.*xdb0\.c:10.*" -gdb_test "go 16" "Breakpoint.*at.*file.*xdb0\.c, line 16\.\r\nContinuing at.*\.\r\nmain \\(\\) at.*xdb0\.c:16\r\n16\[ \t\]+foo \\(x\\+\\+\\);" - -send_gdb "go bar\n" - gdb_expect { - -re ".*Line 5 is not in .main.. Jump anyway.*y or n. $" { - send_gdb "y\n" - gdb_expect { - -re "$gdb_prompt $"\ - {pass "go bar"} - timeout {fail "(timeout) go bar"} - } - } - -re "Continuing at.*\.\r\nbar \\(x=0\\) at.*xdb1\.c:5" {} - timeout { perror "(timeout) go bar" ; return } - } - -# Verify that GDB responds gracefully to a "go" command without -# an argument. -# -gdb_test "go" "Usage: go <location>" - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir -gdb_load ${binfile} - -gdb_test "break bar" "" -gdb_test "run" "" -gdb_test "backtrace full" ".*bar \\(x=0\\) at.*xdb1\.c:5\r\nNo locals\.\r\n.1.* in foo \\(x=1\\) at.*xdb0\.h:8\r\nNo locals\.\r\n.2.* in main \\(\\) at.*xdb0\.c:11\r\n.*x = 1" -gdb_test "bt 1 full" ".*bar \\(x=0\\) at.*xdb1\.c:5\r\nNo locals\.\r\n\\(More stack frames follow\.\.\.\\)" -gdb_test "bt full 2" ".*bar \\(x=0\\) at.*xdb1\.c:5\r\nNo locals\.\r\n.1.* in foo \\(x=1\\) at.*xdb0\.h:8\r\nNo locals\.\r\n\\(More stack frames follow\.\.\.\\)" - -set GDBFLAGS $saved_gdbflags -return 0 |