|| [gdb_compile "${srcdir}/${subdir}/${srcfile2}" $objfuncfile object {}] != ""
|| [gdb_compile "${srcdir}/${subdir}/${srcfile3}" $objmainfile object {debug}] != ""
|| [gdb_compile "$objfuncfile $objsfile $objmainfile" $binfile executable {}] != "" } {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
mi_clean_restart $::testfile
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile \
executable {debug additional_flags=-std=gnu99}] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_gdb_start]} {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
mi_clean_restart ${::testfile}
if { [gdb_compile_shlib $libsrc1 $lib_sl1 $lib_opts] != ""
|| [gdb_compile_shlib $libsrc2 $lib_sl2 $lib_opts] != ""} {
untested "failed to compile shared library"
- return -1
+ return
}
set MIFLAGS "-i=mi"
set exec_opts [list debug shlib=$lib_sl1 shlib_load]
if { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != "" } {
untested "failed to compile"
- return -1
+ return
}
proc test_insert_delete_modify { } {
standard_testfile .cc
if {[gdb_compile "$srcdir/$subdir/$srcfile" $binfile executable {debug c++}] != "" } {
- return -1
+ return
}
# Generate the regexp pattern used to match the breakpoint description emitted
standard_testfile .c
if {[gdb_compile "$srcdir/$subdir/$srcfile" $binfile executable {debug}] != "" } {
- return -1
+ return
}
# Generate the regexp pattern used to match the breakpoint description emitted
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug c++}] != "" } {
untested "failed to compile"
- return -1
+ return
}
mi_clean_restart $::testfile
if {[mi_runto_main] < 0} {
- return -1
+ return
}
set libstdcxx_probe_tests_supported [expr {![mi_skip_libstdcxx_probe_tests]}]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug shlib_load}] != "" } {
untested "failed to compile"
- return -1
+ return
}
set testfile2 mi-catch-load-so
set binfile2_dlopen [shlib_target_file ${testfile2}.so]
if { [gdb_compile_shlib "${srcdir}/${subdir}/${srcfile2}" ${binfile2} {debug}] != "" } {
untested "failed to compile shared library"
- return -1
+ return
}
gdb_download_shlib $binfile2
if {[build_executable $testfile.exp $testfile ${srcfile} "debug pthreads"] == -1} {
untested "failed to compile"
- return -1
+ return
}
set main_break_line [gdb_get_line_number "main break line"]
standard_testfile
if {[build_executable ${testfile}.exp ${binfile} ${srcfile}]} {
- return -1
+ return
}
# Create a breakpoint with a condition that invokes an inferior
standard_testfile .cc
if {[build_executable ${testfile}.exp ${binfile} ${srcfile} {debug c++}]} {
- return -1
+ return
}
# Create a breakpoint with a condition that invokes an inferior
if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
untested "failed to compile"
- return -1
+ return
}
set corefile [core_find $binfile {}]
if {[gdb_compile_shlib $libsrc1 $lib_sl1 $lib_opts] != ""} {
untested "failed to compile shared library"
- return -1
+ return
}
if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != ""} {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if {[build_executable $testfile.exp $testfile $srcfile $flags] == -1} {
untested "failed to compile"
- return -1
+ return
}
set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
proc test_list_thread_groups { } {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart]} {
if {[build_executable "failed to prepare" ${testfile} \
[list $srcfile2 $srcfile] {debug f90}]} {
- return -1
+ return
}
mi_clean_restart $::testfile
# not match" test when using Clang (it can never fail).
if { [regsub {/[^/]+$} $srcfileabs {/\0} srcfileabs] != 1 } {
xfail "cannot double the last slash separator"
- return -1
+ return
}
if { [regsub {^(/[^/]+)/} $srcfileabs {\1subst/} srcfileabssubst] != 1
|| [regsub {^(/[^/]+)/.*$} $srcfileabs {\1} initdir] != 1 } {
xfail "missing root subdirectory"
- return -1
+ return
}
# Generate a regular expression which to match $srcfileabs with
if { [gdb_compile "$srcfileabs" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
file delete -- $srcfileabs
# This test is Linux-only.
if {![istarget *-*-linux*]} {
unsupported "mi-info-os.exp"
- return -1
+ return
}
# Support for XML-output is needed to run this test.
if {[build_executable "Failed to build $testfile" $testfile $srcfile \
debug]} {
- return -1;
+ return;
}
if {[mi_clean_restart $::testfile]} {
# running any program, so we want to avoid "run". Using
# mi_gdb_target_load directly instead achieves this.
if {[mi_gdb_target_load] < 0} {
- return -1
+ return
}
# Try the argument-less form that lists all the types in a table.
if {[build_executable $testfile.exp $testfile \
[list $srcfile $srcfile2] debug]} {
untested $testfile.exp
- return -1
+ return
}
mi_clean_restart $::testfile
set exefile $testfile
if {[build_executable "failed to prepare" $exefile $srcfile {debug c++}]} {
- return -1
+ return
}
mi_clean_restart $::testfile
if {[build_executable $testfile.exp $testfile $srcfile $opts]} {
untested "failed to compile"
- return -1
+ return
}
mi_clean_restart $::testfile
if {[mi_runto_main] < 0} {
- return -1
+ return
}
set milogfile [standard_output_file "milog.txt"]
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable {debug nowarnings}] != "" } {
untested "failed to compile"
- return -1
+ return
}
load_lib mi-support.exp
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
set options [list debug]
if {[gdb_compile "$srcdir/$subdir/$srcfile" \
$binfile executable $options] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
if { [gdb_compile_shlib $libsrc1 $lib_sl1 $lib_opts] != ""
|| [gdb_compile_shlib $libsrc2 $lib_sl2 $lib_opts] != ""} {
untested "failed to compile shared library"
- return -1
+ return
}
if { [gdb_compile_pthreads $srcdir/$subdir/$srcfile $binfile executable $exec_opts] != ""} {
untested "failed to compile"
- return -1
+ return
}
# Start with a fresh gdb.
set options [list debug]
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
require allow_python_tests
if {[build_executable $testfile.exp $testfile $srcfile] == -1} {
- return -1
+ return
}
set remote_python_file [gdb_remote_download host \
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
executable {debug nowarnings}] != "" } {
untested "failed to compile"
- return -1
+ return
}
load_lib mi-support.exp
if {![mi_runto stop_frame]} {
perror "Failed to stop in stop_frame"
- return -1
+ return
}
mi_gdb_test "111-stack-list-frames" \
set opts {debug}
if {[build_executable ${testfile}.exp ${testfile} ${srcfile} $opts]} {
- return -1
+ return
}
mi_clean_restart $::testfile
if {[mi_runto_main] < 0} {
- return -1
+ return
}
mi_create_breakpoint do_nothing \
if {[build_executable "failed to prepare" ${testfile} \
[list $srcfile $srcfile2] {debug}]} {
- return -1
+ return
}
mi_clean_restart $::testfile
if { [build_executable "failed to prepare" $testfile $srcfile \
{debug pthreads}] } {
- return -1
+ return
}
foreach_mi_ui_mode mode {
standard_testfile
if {[build_executable ${testfile}.exp ${binfile} ${srcfile}]} {
- return -1
+ return
}
proc make_loc {num} {
standard_testfile
if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable {debug}] != "" } {
- return -1
+ return
}
# This tests the resolution of PR 20039.
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if {[gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" \
executable {debug f90}] != ""} {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
mi_prepare_inline_tests $srcfile
if { [mi_run_inline_test child_deletion] < 0 } {
- return -1
+ return
}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
set opts {debug}
if {[build_executable $testfile.exp $testfile $srcfile $opts]} {
- return -1
+ return
}
mi_clean_restart $::testfile
if {[mi_runto_main] < 0} {
- return -1
+ return
}
# Test creating a register-based variable. We pick
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if { [gdb_compile_shlib $srcdir/$subdir/$srcfile2 $shlib_path {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
set shlib_path_target [gdb_download_shlib $shlib_path]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $opts] != "" } {
untested "failed to compile"
- return -1
+ return
}
proc do_test { separate_debuginfo } {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
# Just change the output binary.
set binfile_bis [standard_output_file mi-var-invalidate_bis]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile_bis}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
set testfile2 "basics"
set binfile2 [standard_output_file ${testfile2}]
if { [gdb_compile "${srcdir}/${subdir}/${srcfile2}" "${binfile2}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
set opts {debug c++}
if {[build_executable $testfile.exp $testfile $srcfile $opts]} {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
standard_testfile watch-nonstop.c
if {[gdb_compile "$srcdir/$subdir/$srcfile" $binfile executable {debug}] != "" } {
- return -1
+ return
}
save_vars { GDBFLAGS } {
}
if {[build_executable ${testfile}.exp ${binfile} ${srcfile} $opts]} {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
untested "failed to compile"
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
standard_testfile
if { [build_executable "failed to prepare" $testfile $srcfile] } {
- return -1
+ return
}
# Helper proc to create a breakpoint location regexp. NUM is the
if {[build_executable $testfile.exp $testfile ${srcfile} "debug"] == -1} {
untested "failed to compile"
- return -1
+ return
}
# The test driver. SYNC_COMMAND specifies which command is used to
lappend opts additional_flags=-std=c++11
if {[build_executable "failed to prepare" $testfile $srcfile $opts]} {
- return -1
+ return
}
if {[mi_clean_restart $::testfile]} {
set compile_options "debug pthreads"
if {[build_executable $testfile.exp $testfile ${srcfile} ${compile_options}] == -1} {
untested "failed to compile"
- return -1
+ return
}
set main_break_line [gdb_get_line_number "main break line"]
projects / thirdparty / binutils-gdb.git / commitdiff
