Remove all calls to strace.
+2012-01-16 Pedro Alves <palves@redhat.com>
+
+ Remove all calls to strace.
+
2012-01-14 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.dwarf2/dw2-namespaceless-anonymous.S: New file.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "array_bounds"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "array_subscript_addr"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "arrayparam"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "arrayptr"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
gdb_exit
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "atomic_enum"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
gdb_exit
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "call_pn"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "catch_ex"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "char_param"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "complete"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "cond_lang"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "dyn_loc"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "exprs"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "fixed_cmp"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# work properly: condition expression using a reference object as one of its
# operand.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "formatted_ref"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "frame_args"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "fun_addr"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "fun_in_declare"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "funcall_param"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "homonym"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "int_deref"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "interface"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "lang_switch"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "mod_from_name"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "nested"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "null_array"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "packed_tagged"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "print_chars"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "start"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "ptype_field"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "ptype_tagged_param"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "rec_return"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "ref_param"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "ref_tick_size"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "str_ref_cmp"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "sym_print_name"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "taft_type"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "tagged"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "tasks"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "tick_last_segv"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "type_coercion"
# Check that GDB is able to print unconstrained variables and discriminated
# records before their initialization.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "uninitialized_vars"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
set testdir "variant_record_packed_array"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "ada.exp"
if { [skip_ada_tests] } { return -1 }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "alpha*-*-*"] then {
verbose "Skipping alpha step tests."
# Tests for Powerpc AltiVec ABI
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# This file uses altivec-abi.c for input.
#
# Tests for Powerpc AltiVec register setting and fetching
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# Test the use of registers, especially AltiVec registers, for Powerpc.
# This file uses altivec-regs.c for input.
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
verbose "Skipping amd64 byte register tests."
# Test amd64 displaced stepping.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
verbose "Skipping x86_64 displaced stepping tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
verbose "Skipping amd64 dword register tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
verbose "Skipping amd64 word register tests."
# Test arm displaced stepping.
-if $tracelevel {
- strace $tracelevel
-}
-
if {![istarget "arm*-*-*"]} then {
verbose "Skipping arm displaced stepping tests."
return
# Tests for Powerpc e500 ABI
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# This file uses e500-abi.c for input.
#
#
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test PowerPC E500 prologue analyzer.
# Tests for Powerpc E500 register setting and fetching
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# Test the use of registers, especially E500 registers, for Powerpc.
# This file uses e500-regs.c for input.
# Tests for PR:1291. Ensure that backtrace works properly for stack
# frames greater than 256 bytes.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test SH backtraces with >256 byte frame stack. (PR:1291)
# command, which actually is behaving as currently defined. What apparently
# was expected was the behavior of the newer "advance" command.
-if $tracelevel {
- strace $tracelevel
-}
-
# Observe that the until command doesn't go all the way to sub2.
# Tests for PR:1558. Hits breakpoint at main after function called
# from main.
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "sh-*-*"] then {
verbose "Skipping SH breakpoint test."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
verbose "Skipping x86 AVX tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test stepping over permanent breakpoints on i386.
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
verbose "Skipping i386 byte register tests."
# Test i386 displaced stepping.
-if $tracelevel {
- strace $tracelevel
-}
-
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
verbose "Skipping x86 displaced stepping tests."
# Unwinding of DW_CFA_GNU_negative_offset_extended test program.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test i386 unwinder.
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test inserting breakpoints over permanent breakpoints on i386 and amd64.
if { ![istarget "i?86-*-*"] && ![istarget "x86_64-*-*"] } then {
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test i386 prologue analyzer.
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test that GDB can handle overlapping sizes of symbols.
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test that GDB can see the sizes of symbols.
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
verbose "Skipping x86 SSE tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test i386 unwinder.
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if {(![istarget "x86_64-*-*"] && ![istarget "i?86-*-*"]) || ![is_ilp32_target] } then {
verbose "Skipping i386 word register tests."
#
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test handling of nullified instructions for the pa target.
#
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test rs6000 prologue analyzer.
# Testcase for ppc decimal128 pseudo-registers.
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "powerpc64-*"] then {
verbose "Skipping powerpc Decimal128 pseudo-registers testcase."
return
# Tests for Powerpc Decimal Floating Point registers setting and fetching
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "powerpc*"] then {
verbose "Skipping powerpc decimal floating point register tests."
return
# Tests for Powerpc floating point register setting and fetching
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "powerpc*"] then {
verbose "Skipping powerpc floating point register tests."
return
#
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
# Test single stepping through atomic sequences beginning with
# a lwarx/ldarx instruction and ending with a stwcx/stdcx
# instruction.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { ![istarget i?86-*-linux*] && ![istarget x86_64-*-linux* ] } {
verbose "Skipping system register gcore tests."
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# Test the use of VSX registers, for Powerpc.
#
#
# This file was written by Kendra.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# Test debugging assembly level programs.
# This file uses asmsrc[12].s for input.
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# advance.exp -- Expect script to test 'advance' in gdb
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile advance
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board? If so, don't run these tests.
# note: this is necessary because we cannot use runto_main (which would
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board? If so, don't run these tests.
# note: this is necessary because we cannot use runto_main (which would
# This is a test for the gdb invocation option --args.
-if $tracelevel then {
- strace $tracelevel
-}
-
global GDBFLAGS
# with integer type variables
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# gdb can correctly print arrays with indexes for each element of the
# array.
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "arrayidx"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# with mixed types and with int type variables
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
-}
-
# On HP-UX 11.0, this test is causing a process running the program
# "attach" to be left around spinning. Until we figure out why, I am
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "auxv"
set srcfile ${testfile}.c
# This is a test that verifies that GDB is able to "run" when the name
# of the executable file contains a '!'.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "args"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/bang!
# This file is part of the gdb testsuite. It is intended to test that
# gdb could correctly handle floating point constant with a suffix.
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "bfp-test"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file is based on corefile.exp which was written by Fred
# Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# Are we on a target board? As of 2004-02-12, GDB didn't have a
# mechanism that would let it efficiently access a remote corefile.
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "bitfields"
set srcfile ${testfile}.c
# in bitfields.c, which considers only bit-fields that are <= 9 bits long.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "bitfields2"
set srcfile ${testfile}.c
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "call-ar-st"
set srcfile ${testfile}.c
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "call-rt-st"
set srcfile ${testfile}.c
# Test "return", "finish", and "call" of functions that a scalar (int,
# float, enum) and/or take a single scalar parameter.
-if $tracelevel then {
- strace $tracelevel
-}
-
# Some targets can't call functions, so don't even bother with this
# test.
# 2) Inferior is stopped at a signal. Upon resumption it should continue
# with that signal, regardless of whatever the hand-called function did.
-if $tracelevel then {
- strace $tracelevel
-}
-
if [target_info exists gdb,noinferiorio] {
verbose "Skipping call-signal-resume.exp because of no fileio capabilities."
continue
#debug strarg
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "call-strs"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "callexit"
set srcfile ${testfile}.c
# This file was written by Fred Fish. (fnf@cygnus.com)
# and modified by Bob Manson. (manson@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "callfuncs"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# Test GDB's character set support.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "charset"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [is_remote target] || ![isnative] } then {
continue
}
# Test that GDB cleans up properly after errors that result when a
# breakpoint is reset.
-if $tracelevel then {
- strace $tracelevel
-}
-
# IDT/SIM apparently doesn't have enough file descriptors to allow the
# problem checked by this test to occur.
# This file is part of the gdb testsuite
# Tests for type expressions using the new "@code" and "@data" modifiers.
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# code_elim.exp -- tests that GDB can handle executables where some data/code
# has been eliminated by the linker.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile1 code_elim1
set testfile2 code_elim2
set srcfile1 ${testfile1}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test special commands (if, while, etc)
#
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile complex
set srcfile ${testfile}.c
#
-if $tracelevel then {
- strace $tracelevel
-}
-
# 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.
# Purpose is to test conditional breakpoints.
# Modeled after "break.exp".
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Michael Snyder. (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# Test breakpoints at consecutive instruction addresses.
#
# const pointers to const vars
# with mixed types
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board
if ![isnative] then {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "cursal"
set srcfile ${testfile}.c
# This file is part of the gdb testsuite
# Tests for type expressions using const and volatile keywords.
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile1 "average"
set testfile2 "sum"
set testfile "dbx-test"
# This file was written by Elena Zannoni. (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
# The intent of this testcase is to verify that various aliases and
# shortcuts of the "delete" command never stop working.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile del
set srcfile ${testfile}.c
# Test running a program from the GDB prompt and then detaching it.
# NOTE: This test could be much more thorough.
-if $tracelevel then {
- strace $tracelevel
-}
-
# Only GNU/Linux is known to support this.
if { ! [istarget "*-*-linux*"] } {
# This file is part of the gdb testsuite. It contains test for evaluating
# simple decimal floating point (DFP) expression.
-if $tracelevel then {
- strace $tracelevel
-}
-
proc test_dfp_literals_accepted {} {
# Test various dfp values, covering 32-bit, 64-bit and 128-bit ones
# This file is part of the gdb testsuite. It is intended to test that
# gdb could correctly handle decimal floating point introduced in IEEE 754R.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "dfp-test"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# display.exp Test display commands
# Also do some printing stuff for coverage's sake.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile display
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Michael Snyder (msnyder@redhat.com)
# This is a test for the gdb command "dump".
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "dump"
# Crank up gdb.
gdb_start
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test the echo command
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
#
-if $tracelevel then {
- strace $tracelevel
-}
-
# 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.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
# The intent of this testcase is to verify that GDB does not keep
# a filesystem lock on the executable file once the executable
# is no longer running.
#
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
-}
-
# It's possible to have a program that contains two compilation units
# for the same source file name, that have code at different lines.
# For example, in this test, we compile expand-psymtabs.c twice with
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel {
- strace $tracelevel
-}
-
#
# test running programs
#
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "fileio"
set srcfile ${testfile}.c
# This tests the find command.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "find"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# re-use the program from the "return2" test.
if { [prepare_for_testing finish.exp finish return2.c] } {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
#
# Test floating-point related functionality.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "frame-args"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "funcargs"
set srcfile ${testfile}.c
# Test GDB's internal buffers safety for the GCORE command.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gcore-buffer-overflow"
set srcfile ${testfile}.c
# This file was written by Michael Snyder (msnyder@redhat.com)
# This is a test for the gdb command "generate-core-file".
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gcore"
set srcfile ${testfile}.c
# Test for PR gdb/1056.
# 2003-10-18 Michael Chastain <mec@shout.net>
-if $tracelevel then {
- strace $tracelevel
-}
-
# test SIGFPE (such as division by 0) inside gdb itself
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# Test GDB bug report 11530.
# This is a problem related unnamed unions.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gdb11530"
set binfile ${testfile}${EXEEXT}
# This is a problem related to CANNOT_STEP_HW_WATCHPOINTS macro.
# It affects Solaris native targets.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gdb11531"
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# a shared library (PR gdb/1555, was PR shlib/1280, shlib/1237).
# Tested on ppc-yellowdog-linux (Yellow Dog Linux 3.0 3.2.2-2a)
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
}
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gdbvars"
set srcfile ${testfile}.c
# Tests GDBs support for GNU vectors.
# http://gcc.gnu.org/onlinedocs/gcc/Vector-Extensions.html
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "gnu_vector"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# Test loading of line number information with absolute path in #line,
# PR symtab/9465.
-if $tracelevel then {
- strace $tracelevel
-}
-
# srcfile is in objdir because we need to machine generate it in order
# to get the correct path in the #line directive.
# Test loading of line number information with an absolute path with extra
# /'s in #line, PR symtab/9465.
-if $tracelevel then {
- strace $tracelevel
-}
-
# srcfile is in objdir because we need to machine generate it in order
# to get the correct path in the #line directive.
# Test loading of line number information with relative path in #line,
# PR symtab/9465.
-if $tracelevel then {
- strace $tracelevel
-}
-
# srcfile is in objdir because we need to machine generate it in order
# to get the correct path in the #line directive.
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# Define if you want to skip this test
# (could be very time-consuming on remote targets with slow connection).
# This test checks that the if .. else .. end construct works and may
# contain empty bodies without crashing.
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
# This file was written by Michael Snyder (msnyder@redhat.com)
# This is a test for the gdb command "info proc"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [is_remote target] } then {
continue
}
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile info-target
if { [prepare_for_testing ${testfile}.exp $testfile start.c] } {
# interp.exp Test interpreter-exec command
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "interp"
if { [prepare_for_testing ${testfile}.exp ${testfile} ${testfile}.c {debug}] } {
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile interrupt
set srcfile ${testfile}.c
# The same tests as in jit.exp, but loading JITer itself from a shared
# library.
-if $tracelevel {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
untested jit-so.exp
return -1
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
untested jit.exp
return -1
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
clear_xfail "*-*-*"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if [is_remote target] then {
return 0
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile langs
set binfile ${objdir}/${subdir}/${testfile}
# sorted in ascending order; GDB would get an internal error trying to
# read the above debugging info.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "lineinc"
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "list"
set binfile ${objdir}/${subdir}/${testfile}
# precedence with integer type variables
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# long_long.exp Test printing of 64-bit things in 32-bit gdb.
# Also test differnet kinds of formats.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
if [target_info exists no_long_long] {
return 0
}
# Test support for stepping over longjmp.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "longjmp"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set srcfile macscp1.c
set testfile "macscp"
-if $tracelevel then {
- strace $tracelevel
- }
-
set testfile "break"
set srcfile ${testfile}.c
set srcfile1 ${testfile}1.c
# Test the memory attribute commands.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "memattr"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile mips_pro
set srcfile ${testfile}.c
# with elementary types
#
-if $tracelevel then {
- strace $tracelevel
- }
-
# By default, the datastructures are allocated on the stack. For targets
# with very small stack, that will not work. In that case, just set
# storage to `-DSTORAGE=static' which changes the datastructures to be
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [is_remote target] || ![isnative] } then {
continue
}
# Test that things still (sort of) work when compiled without -g.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nodebug
set srcfile $srcdir/$subdir/$testfile.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "nofield"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "opaque"
set binfile ${objdir}/${subdir}/opaque
#
# This file was written by Michael Snyder (msnyder@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
# aliases. If the ISA doesn't provide any equivalent registers, then
# GDB will provide registers that map onto the frame's PC and FP.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file was created by Jeff Johnston. (jjohnstn@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# with integer type variables and pointers to integers
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_hw_watchpoint_tests]} {
return 0
}
# This file was written by Alexandre Oliva <aoliva@redhat.com>
-if $tracelevel then {
- strace $tracelevel
- }
-
if { ![isnative] || [is_remote host] || [skip_shlib_tests]} {
return
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "printcmds"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# are working properly. If multiple tests are added, make sure that
# you exit and restart GDB between tests.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile ptr-typedef
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Fred Fish. (fnf@cygnus.com)
# And rewritten by Michael Chastain (mec.gnu@mindspring.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# Start with a fresh gdb.
}
-if $tracelevel {
- strace $tracelevel
-}
-
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# This file was written by Jeff Law. (law@cs.utah.edu)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "recurse"
set srcfile ${testfile}.c
# and writing of registers in a real program, although some care
# would be required in the writing of the tests.
-if $tracelevel then {
- strace $tracelevel
- }
-
# These tests exercise IDT-specific MIPS registers for several
# different processor models.
# with integer type variables
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile relativedebug
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# relocate.exp -- Expect script to test loading symbols from unrelocated
# object files.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile relocate
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}.o
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
# test only on a remote target board
# This is a test for the gdb invocation option -l.
-if $tracelevel then {
- strace $tracelevel
-}
-
global GDBFLAGS
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set prototypes 1
# build the first test case
# This file was written by Jim Blandy <jimb@cygnus.com>, with
# fragments borrowed from return.exp.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "restore"
set srcfile ${testfile}.c
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "return2"
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile savedregs
set srcfile ${testfile}.c
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "scope"
set binfile ${objdir}/${subdir}/${testfile}
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "sep"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# ".debug-id/ab/cdef.debug" file.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile start
set srcfile ${testfile}.c
# This file was written by Michael Snyder (msnyder@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "setshow"
set srcfile ${testfile}.c
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
#prop lib shr1.sl
#prop lib shr2.sl
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
return 0
}
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# This file uses shreloc.c, shreloc1.c and shreloc2.c
#
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile sigaltstack
set srcfile ${testfile}.c
continue
}
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "sigbpt"
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile siginfo-addr
set srcfile ${testfile}.c
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile siginfo-obj
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile siginfo
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile signals
set srcfile ${testfile}.c
continue
}
-if $tracelevel {
- strace $tracelevel
-}
-
set testfile "signull"
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile sigrepeat
set srcfile ${testfile}.c
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile sigstep
set srcfile ${testfile}.c
continue
}
-if $tracelevel {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
- }
-
if {[skip_shlib_tests]} {
return 0
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
# are we on a target board
if ![isnative] then {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
# are we on a target board
if ![isnative] then {
# Test GDB's "source" command - reads in a GDB script.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "structs"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "stack-checking"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile start
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile step-break
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# The intent of this testcase is to assure that backtrace works while
# single-stepping the instructions that prepare to call a function.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile step-bt
set srcfile ${testfile}.c
# step-line.exp -- Expect script to test stepping in files with
# #line directives.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile step-line
set srcfile ${testfile}.c
set linefile ${testfile}.inp
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
# step-test.exp -- Expect script to test stepping in gdb
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile step-test
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
# Some targets can't call functions, so don't even bother with this
# test.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set prototypes 1
set testfile "structs2"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# Don't try this for remote targets.
if [is_remote target] then {
continue
# Check if environment variables are correctly passed to inferiors
#
-if $tracelevel then {
- strace $tracelevel
-}
-
# There's no support for passing environment variables in the remote protocol.
if { [is_remote target] } {
return 0
# Test that the source command's verbose mode works, the 'set trace-commands'
# command works, and that the nest depth is correct in various circumstances.
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile twice-tmp
set srcfile ${testfile}.c
# Test resolving of an opaque type from the loaded shared library.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile type-opaque-main
set libfile type-opaque-lib
set srcfile ${testfile}.c
# This file was created by Jeff Johnston. (jjohnstn@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# until.exp -- Expect script to test 'until' in gdb
-if $tracelevel then {
- strace $tracelevel
-}
-
set srcfile break.c
if { [prepare_for_testing until.exp "until" {break.c break1.c} {debug nowarnings}] } {
return -1
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if [target_info exists gdb,noinferiorio] {
verbose "Skipping unwindonsignal.exp because of no fileio capabilities."
continue
#quit
-if $tracelevel then {
- strace $tracelevel
-}
-
set prototypes 0
set testfile "varargs"
# ... etc. (you get the idea)
# Mostly with char and unsigned char.
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# watch commands.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
# This test verifies that a watchpoint is detected in the proper thread
# so the test is only meaningful on a system with hardware watchpoints.
if {[skip_hw_watchpoint_tests]} {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "watchpoint"
set srcfile ${testfile}.c
# This file was written by Pierre Muller. (muller@ics.u-strasbg.fr)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "watchpoints"
set srcfile ${testfile}.c
# with the EVAL_AVOID_SIDE_EFFECTS flag rather than EVAL_NORMAL
#
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
# This file was written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# Test G++ has compiled debuginfo without a C++ '&' reference where it should
# not be. GCC Bug 33537.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
-}
-
# Test returning bool.
if { [skip_cplus_tests] } { continue }
# This contains tests for breakpoints in C++.
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# This file was written by Sue Kimura (sue_kimura@hp.com)
# Rewritten by Michael Chastain (mec.gnu@mindspring.com)
-if $tracelevel {
- strace $tracelevel
-}
-
if { [skip_stl_tests] } { continue }
# On SPU this test fails because the executable exceeds local storage size.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
load_lib "cp-support.exp"
}
}
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile pr9594
{operation_1<T>::function}
# Start the test
-if {$tracelevel} {
- strace $tracelevel
-}
-
if {[skip_cplus_tests]} { continue }
# On SPU this test fails because the executable exceeds local storage size.
# This file was written by Fred Fish. (fnf@cygnus.com)
# Adapted for g++ 3.0 ABI by Michael Chastain. (chastain@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "cplusfuncs"
# Call to template instantiations.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "cttiadd"
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
### The demangling style we last sent to GDB.
set ws "\[\r\n\t \]+"
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
# Start program.
set ws "\[\r\n\t \]+"
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_stl_tests] } { continue }
# On SPU this test fails because the executable exceeds local storage size.
# work properly: condition expression using a reference object as one of its
# operand.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set ws "\[\r\n\t \]*"
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
#
# PR c++/9489.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
if { [skip_shlib_tests] } { continue }
# This test is largely based of gdb.base/callfuncs.exp.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
if [target_info exists gdb,nosignals] {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set nl "\[\r\n\]+"
set vhn "\\$\[0-9\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
load_lib "cp-support.exp"
set ws "\[\r\n\t \]+"
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# Currently, no source file is used.
-if $tracelevel then {
- strace $tracelevel
- }
-
# Test the help messages.
proc test_help {} {
# Test that breakpoints on C++ constructors work, despite the
# fact that gcc generates several versions of constructor function.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
# This test verifies that setting breakpoint on line in inline
# function will fire in all instantiations of that function.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
# This test verifies that setting breakpoint on line in template
# function will fire in all instantiations of that template.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_stl_tests] } { continue }
# On SPU this test fails because the executable exceeds local storage size.
set vhn "\\$\[0-9\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
# integrate FPARAM symbols in HP debug info into the local var list
# for the function or method's block.)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "misc"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile namespace-nested-import
set srcfile ${testfile}.cc
# Note: As of 2000-06-03, they passed under g++ - djb
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "nextoverthrow"
# Stress test the lookup of declarations
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nsdecl
set srcfile ${testfile}.cc
# Test printing from multiple namespace
# imported into the same scope.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nsimport
set srcfile ${testfile}.cc
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nsrecurs
set srcfile ${testfile}.cc
# Stress test namespace lookup
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nsstress
set srcfile ${testfile}.cc
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile nsusing
set srcfile ${testfile}.cc
# Tests for overloaded member functions.
-if $tracelevel then {
- strace $tracelevel
-}
-
set ws "\[\r\n\t \]+"
set nl "\[\r\n\]+"
global timeout
set timeout 15
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# other ways this test could fail to do its job. If you need to make
# revisions, please be very careful.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
gdb_exit
# written by Paul N. Hilfinger (Hilfinger@adacore.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# written by Elena Zannoni (ezannoni@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# (involving templates, in particular) where this problem triggers
# because GDB and GCC have different ideas what a class is called.
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_cplus_tests] } { continue }
#
# Test that when multiple variables have the same
# name the one from the correct scope is printed.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile shadow
set srcfile ${testfile}.cc
# This file is part of the gdb testsuite.
-if {$tracelevel} {
- strace $tracelevel
-}
-
if {[skip_cplus_tests]} {
continue
}
set ws "\[\r\n\t \]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "templates"
# This file is part of the gdb testsuite
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_stl_tests] } { continue }
#
# source file "userdef.cc"
#
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_stl_tests] } { continue }
# On SPU this test fails because the executable exceeds local storage size.
set nl "\[\r\n\]+"
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
load_lib "cp-support.exp"
# This file was written by Jeff Law. (law@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "mn10300*-*-*"] {
verbose "Tests ignored for all but mn10300 based targets."
return
# This file was written by Kazu Hirata. (kazu@hxi.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Jeff Law. (law@cs.utah.edu)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "hppa*-*-*"] {
verbose "Tests ignored for all but hppa based targets."
return
# This file was written by Jeff Law. (law@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "mn10300*-*-*"] {
verbose "Tests ignored for all but mn10300 based targets."
return
# This file was written by Jeff Law. (law@cs.utah.edu)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "sh3*-*-*"] {
verbose "Tests ignored for all but sh3 based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file was written by Michael Snyder (msnyder@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
if ![istarget "h8300*-*-*"] {
verbose "Tests ignored for all but h8300s based targets."
return
# This file is part of the gdb testsuite. It contains test for printing
# the elements of an array which is passed as pointer to a subroutine.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_fortran_tests] } { return -1 }
set testfile "array-element"
# This file is part of the gdb testsuite. It contains tests for type-printing
# and value-printing Fortran derived types.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_fortran_tests] } { return -1 }
set testfile "derived-type"
# This file was adapted from old Chill tests by Stan Shebs
# (shebs@cygnus.com).
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "fortran.exp"
if { [skip_fortran_tests] } { continue }
# This file is part of the gdb testsuite. It contains tests for evaluating
# Fortran subarray expression.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_fortran_tests] } { return -1 }
set testfile "subarray"
# This file was adapted from old Chill tests by Stan Shebs
# (shebs@cygnus.com).
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "fortran.exp"
if { [skip_fortran_tests] } { continue }
# derived from xfullpath.exp (written by Joel Brobecker), derived from
# selftest.exp (written by Rob Savoye).
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board
if { [is_remote target] || ![isnative] } then {
# This file was written by Joel Brobecker (brobecker@gnat.com), derived
# from xfullpath.exp.
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board
if { [is_remote target] || ![isnative] } then {
# This file was written by Rob Savoye. (rob@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board
if { [is_remote target] || ![isnative] } then {
# This file was written by Joel Brobecker. (brobecker@gnat.com), derived
# from selftest.exp, written by Rob Savoye.
-if $tracelevel then {
- strace $tracelevel
-}
-
# are we on a target board
if { [is_remote target] || ![isnative] } then {
#
#log_user 1
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } then { continue }
set testfile optimize
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test special commands
#
# inferior function calls to evaluate array literals. But many people
# jump to other, incorrect conclusions about this.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } then { continue }
# This file was written by Satish Pai <pai@apollo.hp.com>
# 1997-09-24
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_hp_tests] } then { continue }
# pxdb.exp Test that gdb calls pxdb on an application
# built without it.
#
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } then { continue }
# use this to debug:
#log_user 1
-if $tracelevel {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } { continue }
if ![istarget "hppa*-*-*"] {
# use this to debug:
#log_user 1
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_hp_tests] } then { continue }
set testfile "reg"
# This file was written by Satish Pai <pai@apollo.hp.com>
# 1997-09-24
-if $tracelevel then {
- strace $tracelevel
- }
-
#
# test running programs
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_hp_tests] } then { continue }
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_hp_tests] } then { continue }
#
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
- }
-
if { [skip_hp_tests] } then { continue }
global message
# along with this program. If not, see <http://www.gnu.org/licenses/>. */
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } then { continue }
set testfile1 "average"
#
# Source file: bs14602.c
-if $tracelevel {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } { continue }
#
#
#
-if $tracelevel {
- strace $tracelevel
-}
-
if { [skip_hp_tests] } { continue }
# This file was based on jmisc.exp which in turn was written by
# Anthony Green. (green@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
if { [skip_java_tests] } { continue }
# This file was written by Anthony Green. (green@redhat.com)
#
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
if { [skip_java_tests] } { continue }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
set testfile "jnpe"
# This file was written by Jeff Johnston. (jjohnstn@redhat.com)
#
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
if { [skip_java_tests] } { continue }
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
proc test_comparisons {} {
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "java.exp"
if { [skip_java_tests] } { continue }
load_lib mi-support.exp
set MIFLAGS "-i=mi"
-if $tracelevel then {
- strace $tracelevel
-}
-
#
# test running programs
#
# the elements of an unbounded array using the Modula-2 language mode of
# gdb.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "unbounded1"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Adam Fedor (fedor@gnu.org)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "basicclass"
set srcfile ${testfile}.m
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Adam Fedor (fedor@gnu.org)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "nondebug"
set srcfile ${testfile}.m
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Adam Fedor (fedor@gnu.org)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "objcdecode"
set srcfile ${testfile}.m
set binfile ${objdir}/${subdir}/${testfile}
# Test printing of various values.
# NOTE: The tests here intentionally do not require an objc compiler.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib "objc.exp"
proc test_float_accepted {} {
#
# Tests OpenCL function calling conventions.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib opencl.exp
if { [skip_opencl_tests] } {
#
# Tests GDBs support for OpenCL type conversions and casts.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib opencl.exp
if { [skip_opencl_tests] } {
#
# Tests OpenCL data types.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib opencl.exp
if { [skip_opencl_tests] } {
#
# Tests GDBs support for OpenCL operators.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib opencl.exp
if { [skip_opencl_tests] } {
#
# Tests component access of OpenCL vectors.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib opencl.exp
if { [skip_opencl_tests] } {
#
# This file is part of the gdb testsuite.
-if $tracelevel then {
- strace $tracelevel
-}
-
# Test displaying call clobbered registers in optimized binaries.
# GDB should not show incorrect values.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
set testfile "floats"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
set testfile "gdb11492"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
set testfile "hello"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
set testfile "integers"
# Test printing of various values.
# NOTE: The tests here intentionally do not require a pascal compiler.
-if $tracelevel {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
proc test_float_accepted {} {
# (shebs@cygnus.com).
# Adapted to pascal by Pierre Muller
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib "pascal.exp"
proc test_integer_literal_types_accepted {} {
# This file is part of the GDB testsuite.
# It tests the types.py module.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "lib-types"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-block"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-breakpoint"
# This file is part of the GDB testsuite. It tests the mechanism
# for defining new GDB commands in Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
# Start with a fresh gdb.
return 0
}
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set libfile "py-events-shlib"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[is_remote target]} {
# RuntimeError: Could not find event thread
kfail "python/12966" "Signal Thread 3"
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[is_remote target]} {
# RuntimeError: Could not find event thread
kfail "python/12966" "Run to breakpoint 1"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
untested py-finish-breakpoint.exp
return 0
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-finish-breakpoint2"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-frame"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing convenience functions to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
# Start with a fresh gdb.
# This file is part of the GDB testsuite. It tests the mechanism
# exposing inferiors to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-inferior"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing inferior threads to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-infthread"
# This file is part of the GDB testsuite. It tests automagic loading of
# -gdb.py scripts.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "py-objfile-script"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file is part of the GDB testsuite. It tests the program space
# support in Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-objfile"
# This file is part of the GDB testsuite.
# It tests gdb.parameter and gdb.Parameter.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
# Start with a fresh gdb.
# This file is part of the GDB testsuite. It tests Python-based
# pretty-printing for the CLI.
-if $tracelevel then {
- strace $tracelevel
-}
-
if [is_remote host] {
untested "py-pp-maint.exp can only be run locally"
return -1
# This file is part of the GDB testsuite. It tests Python-based
# pretty-printing for the CLI.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-prettyprint"
# This file is part of the GDB testsuite. It tests the program space
# support in Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "py-progspace"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file is part of the GDB testsuite. It tests the mechanism
# for defining the prompt in Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "py-prompt"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "py-section-script"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-symbol"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-symbol"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
if { [skip_cplus_tests] } { continue }
set testfile "py-template"
# This file is part of the GDB testsuite. It tests the mechanism
# of exposing types to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-type"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "py-value"
# This file is part of the GDB testsuite. It tests the mechanism
# exposing values to Python.
-if $tracelevel then {
- strace $tracelevel
-}
-
load_lib gdb-python.exp
set testfile "python"
return
}
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "i?86-*linux*"] then {
verbose "Skipping i386 reverse tests."
return
}
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "i?86-*linux*"] then {
verbose "Skipping i386 reverse tests."
return
}
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "*86*-*linux*"] then {
verbose "Skipping i386 reverse tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "i?86-*linux*"] then {
verbose "Skipping i387 reverse float tests."
# This file is part of the gdb testsuite.
-if $tracelevel {
- strace $tracelevel
-}
-
if ![istarget "i?86-*linux*"] then {
verbose "Skipping i387 reverse float tests."
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@gnu.org
-if $tracelevel {
- strace $tracelevel
-}
-
# If the test directory was not created by configure then skip
# this test.
if ![file isdirectory ${objdir}/${subdir}] then {
# Test GDB stabs problem with qualified parameter of forward types.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "gdb11479"
# Test that GDB properly ignores invalid stabs.
# Also test that GDB can debug a .o file, and that it doesn't mind
# a file that's more minimal than what a compiler normally puts out.
-if $tracelevel then {
- strace $tracelevel
-}
-
# If the test directory was not created by configure then skip
# this test.
if ![file isdirectory ${objdir}/${subdir}] then {
# GDB reported a SIGTRAP signal in a random thread when hitting
# a breakpoint.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "bp_in_thread"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Michael Snyder (msnyder@redhat.com)
# This is a test for the gdb command "generate-core-file".
-if $tracelevel then {
- strace $tracelevel
-}
-
# Single-threaded test case
set testfile "gcore-thread"
set srcfile pthreads.c
set NR_THREADS 4
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "hand-call-in-threads"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
set NR_THREADS 4
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "interrupted-hand-call"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# [7]+ Killed $D6/gdb/gdb -nw killed
# $
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "killed"
set srcfile ${testfile}.c
### killing and restarting
### quitting gracefully
-if $tracelevel then {
- strace $tracelevel
-}
-
# This only works with Linux configurations.
if ![istarget *-*-linux-gnu*] then {
# This file was written by Jeff Johnston. (jjohnstn@redhat.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "manythreads"
set srcfile ${testfile}.c
# It tests miscellaneous actions with multiple threads, including
# handling for thread exit.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "print-threads"
set srcfile ${testfile}.c
# This file verifies that GDB is able to compute a backtrace for a thread
# being blocked on a call to pthread_cond_wait().
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "pthread_cond_wait"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# This file was written by Fred Fish. (fnf@cygnus.com)
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "pthreads"
set srcfile ${testfile}.c
#
# This test covers the various forms of "set scheduler-locking".
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "schedlock"
set srcfile ${testfile}.c
# Based on manythreads written by Jeff Johnston, contributed by Red
# Hat.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "staticthreads"
set srcfile ${testfile}.c
# catch the fact it continued rather than stepped)
-if $tracelevel then {
- strace $tracelevel
-}
-
set program_exited 0
proc set_bp { where } {
#
-if $tracelevel then {
- strace $tracelevel
-}
-
set program_exited 0
# A simple and crude test to see that we can step two threads independently
# TODO: we should also test explicitly changing threads with the "thread"
# command.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "switch-threads"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# Please email any bugs, comments, and/or additions to this file to:
# bug-gdb@gnu.org
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "linux-dp"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# It tests that the correct breakpoint is reported when we hit a
# thread-specific breakpoint inserted for several threads.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "thread-specific"
set srcfile ${testfile}.c
set NR_THREADS 4
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "interrupted-hand-call"
set srcfile ${testfile}.c
set binfile ${objdir}/${subdir}/${testfile}
# - delete all breakpoints
# - exit gdb.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "thread_check"
set srcfile ${testfile}.c
return
}
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "thread_events"
set srcfile ${testfile}.c
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if $tracelevel {
- strace $tracelevel
-}
-
# This test verifies that a macro using backtrace can be applied to all threads
# and will continue for each thread even though an error may occur in
# tls-shared.exp -- Expect script to test thread local storage in gdb, with
# shared libraries.
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile tls-main
set libfile tls-shared
set srcfile ${testfile}.c
# Check that GDB can support multiple watchpoints across threads.
-if $tracelevel {
- strace $tracelevel
-}
-
# This test verifies that a watchpoint is detected in the proper thread
# so the test is only meaningful on a system with hardware watchpoints.
set NR_THREADS 4
set X_INCR_COUNT 10
-if $tracelevel {
- strace $tracelevel
-}
-
# This test verifies that a watchpoint is detected in the proper thread
# so the test is only meaningful on a system with hardware watchpoints.
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
}
load_lib "trace-support.exp"
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "circ"
set srcfile ${testfile}.c
load_lib "trace-support.exp"
-if $tracelevel then {
- strace $tracelevel
-}
-
set testfile "collection"
set srcfile ${testfile}.c
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp"
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
}
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
if {[skip_shlib_tests]} {
return 0
}
continue
}
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp"
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
load_lib "trace-support.exp";
-if $tracelevel then {
- strace $tracelevel
-}
-
gdb_exit
gdb_start
projects / binutils-gdb.git / commitdiff