diff options
Diffstat (limited to 'gdb/testsuite/gdb.hp/pxdb.exp')
| -rw-r--r-- | gdb/testsuite/gdb.hp/pxdb.exp | 115 |
1 files changed, 0 insertions, 115 deletions
diff --git a/gdb/testsuite/gdb.hp/pxdb.exp b/gdb/testsuite/gdb.hp/pxdb.exp deleted file mode 100644 index ef34557..0000000 --- a/gdb/testsuite/gdb.hp/pxdb.exp +++ /dev/null @@ -1,115 +0,0 @@ -# Copyright (C) 1998 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 is part of the gdb testsuite - - -# pxdb.exp Test that gdb calls pxdb on an application -# built without it. -# -if $tracelevel then { - strace $tracelevel -} - -set prms_id 0 -set bug_id 0 - -if { [skip_hp_tests] } then { continue } - -set testfile pxdb -set srcfile ${testfile}.c -set objfile ${objdir}/${subdir}/${testfile}.o -set binfile ${objdir}/${subdir}/${testfile} - -if [get_compiler_info ${binfile} "c++"] { - return -1; -} - -if { $gcc_compiled } then { continue } - -# To build a non-pxdb-ed file, use -# -# <compile to .o file> -# export LD_PXDB /dev/null -# ld -o hello_no_pxdb hello.o /opt/langtools/lib/end.o /usr/ccs/lib/crt0.o -lc -# - -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." -} - -# -# use this to debug: -#log_user 1 - - -# Following should get the error message: -# -# ld: (Warning) Can't exec pxdb using path: /dev/null -# - -set cmdline "ksh -c \"LD_PXDB=/dev/null ld -o ${binfile} ${objfile} /usr/ccs/lib/crt0.o /opt/langtools/lib/end.o -lc\"" - -remote_exec build "rm ${binfile}" -remote_exec build $cmdline - -gdb_exit -gdb_start -gdb_reinitialize_dir $srcdir/$subdir - -# We expect to see this: -# -# "warning: File not processed by pxdb--about to process now. -# " -# ". -# "Procedures: 7 -# "Files: 2 -# "Reading symbols from ~/c_code.dir/hello_no_pxdb...done. -# "(gdb) -# -send_gdb "file ${binfile}\n" -gdb_expect { - - -re ".*warning: File not processed by pxdb.*Procedures: \[0-9\]+.*done.*$gdb_prompt $"\ - { pass "PXDB call" } - - -re "$gdb_prompt $" { fail "Didn't call pxdb" } - - timeout { fail "call pxdb (timeout)" } -} - -# Make sure the new data makes sense -# -if { ![runto callee] } then { return } - -send_gdb "print x\n" -gdb_expect { - -re ".*= 1.*$gdb_prompt $" { pass "Good data after pxdb call" } - -re ".*$gdb_prompt $" { fail "No data after pxdb call" } - timeout { fail "(timeout)" } -} - -gdb_exit -return 0 - - - - - |