@@ -20,11 +20,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Verify that "advance <location>" works. (This is really just syntactic
# sugar for "tbreak <location>; continue".)
#
@@ -36,11 +36,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set L1_bploc [gdb_get_line_number "set L1 breakpoint here" $srcfile]
set L2_bploc [gdb_get_line_number "set L2 breakpoint here" $srcfile]
@@ -29,11 +29,11 @@ gdb_test_multiple $test $test {
set arch $expect_out(1,string)
pass $test
}
}
if {![runto_main]} {
- return 0
+ return
}
set test "sanity check info shared"
gdb_test_multiple "info shared" $test {
-re "From\[ \t\]+To(\\s+NS)?\[ \t\]+Syms Read\[ \t\]+Shared Object Library\r\n0x.*\r\n$gdb_prompt $" {
pass $test
@@ -44,11 +44,11 @@ gdb_test_multiple "info shared" $test {
}
gdb_exit
if {$arch == ""} {
untested "no architecture set"
- return 0
+ return
}
# Start the program running and then wait for a bit, to be sure
# that it can be attached to.
@@ -51,11 +51,11 @@ if { $topmost != "exec" } {
}
# Check which target this board connects to. If testing with a native
# target board, this should cause the native target to auto connect.
if {![runto_main]} {
- return 0
+ return
}
# Returns true if the native target is pushed on the target stack.
# TEST is used as test message.
@@ -51,11 +51,11 @@ if {$core_works} {
set core_works 0
}
}
if {![runto_main]} {
- return 0
+ return
}
set print_core_line [gdb_get_line_number "ABORT;"]
gdb_test "tbreak $print_core_line"
gdb_test continue ".*ABORT;.*"
@@ -20,11 +20,11 @@ standard_testfile
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Run to the breakpoint at return.
gdb_breakpoint [gdb_get_line_number "Break here."]
gdb_continue_to_breakpoint "Break here."
@@ -18,11 +18,11 @@ standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile}] } {
return
}
if {![runto callee]} {
- return 0
+ return
}
set test "up"
gdb_test_multiple $test $test {
-re "\r\n(${::decimal})\[ \t\]+callee \\(\\);\r\n$gdb_prompt $" {
@@ -39,11 +39,11 @@ gdb_test_multiple $test $test {
}
}
if {$notcurrent == $current} {
untested "target arch has an instruction after call as part of the caller line"
- return 0
+ return
}
set test "break"
gdb_test_multiple $test $test {
-re "\r\nBreakpoint ${::decimal} at .*, line $current\\.\r\n$gdb_prompt $" {
@@ -43,11 +43,11 @@ proc get_dummy_frame_number { } {
}
return ""
}
if { ![runto_main] } {
- return 0
+ return
}
gdb_test "break stop_one" "Breakpoint \[0-9\]* at .*"
gdb_test "continue" "Continuing.*Breakpoint \[0-9\]*, stop_one.*" \
"continue to breakpoint at stop_one"
@@ -55,11 +55,11 @@ gdb_test "continue" "Continuing.*Breakpoint \[0-9\]*, stop_one.*" \
# Call function (causing the program to get a signal), and see if gdb handles
# it properly.
if {[gdb_test "call gen_signal ()" \
"\[\r\n\]*The program being debugged was signaled.*" \
"inferior function call signaled"] != 0} {
- return 0
+ return
}
set frame_number [get_dummy_frame_number]
if { "$frame_number" == "" } {
fail "dummy stack frame number"
@@ -22,11 +22,11 @@ standard_testfile .c
if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
return
}
if { ![runto_main] } {
- return 0
+ return
}
# Verify set may-call-functions behavior.
gdb_test_no_output "set may-call-functions off"
gdb_test "call callexit()" \
@@ -44,11 +44,11 @@ standard_testfile main.c
if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
return
}
if {![runto_main]} {
- return 0
+ return
}
set bp_num [get_first_maint_bp_num]
set bp_addr [gdb_get_bp_addr $bp_num]
@@ -78,11 +78,11 @@ gdb_test_multiple $command $test {
}
}
# Now get past startup code.
if {![runto_main]} {
- return 0
+ return
}
with_test_prefix "after run to main" {
# Assume all targets' startup code changes some loaded variable.
gdb_test "compare-sections" \
@@ -18,11 +18,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set marker " Break Here. "
gdb_breakpoint [gdb_get_line_number $marker]
gdb_continue_to_breakpoint "breakpt" ".*[string_to_regexp $marker].*"
@@ -28,11 +28,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set test_host "set breakpoint condition-evaluation host"
set test_auto "set breakpoint condition-evaluation auto"
set test_target "set breakpoint condition-evaluation target"
@@ -21,11 +21,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_test "break foo if zero()" "Breakpoint .*"
gdb_test "break bar" "Breakpoint .*"
@@ -23,11 +23,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Make sure the target doesn't hide the breakpoint hits (that don't
# cause a user visible stop) from GDB.
gdb_test_no_output "set breakpoint condition-evaluation host"
@@ -42,11 +42,11 @@ if { $binfile_len <= 80 } {
# Generate a core file, this time the inferior has no additional
# arguments.
set corefile [core_find $binfile {}]
if {$corefile == ""} {
untested "unable to create corefile"
- return 0
+ return
}
set corefile_1 "$binfile.1.core"
remote_exec build "mv $corefile $corefile_1"
# Load the core file and confirm that the full executable name is
@@ -71,11 +71,11 @@ gdb_test_multiple "core-file $corefile_1" "load core file no args" {
# Generate a core file, this time pass some arguments to the inferior.
set args "aaaaa bbbbb ccccc ddddd e\\\\ e\\\\ e\\\\ e\\\\ e"
set corefile [core_find $binfile {} $args]
if {$corefile == ""} {
untested "unable to create corefile"
- return 0
+ return
}
set corefile_2 "$binfile.2.core"
remote_exec build "mv $corefile $corefile_2"
# Load the core file and confirm that the full executable name and
@@ -30,11 +30,11 @@ if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
# required for GDB to find mmap'd data in the "accessing read-only
# mmapped data in core file" test.
set corefile [core_find $binfile {}]
if {$corefile == ""} {
untested "unable to create or find corefile"
- return 0
+ return
}
# Start GDB with COREFILE passed as a command line argument. COREOPT
# is prefixed before COREFILE and is the command line flag to specify
# the corefile, i.e. one of '--core=', '-core=', '-c '.
@@ -39,11 +39,11 @@ if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
}
set corefile [core_find $binfile {}]
if {$corefile == ""} {
untested "unable to create or find corefile"
- return 0
+ return
}
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}
@@ -34,11 +34,11 @@ lappend opts additional_flags=-gctf
lappend opts ldflags=-Wl,--ctf-variables
lappend opts nowarnings
if { [build_executable "failed to prepare" ${testfile} \
[list $srcfile] $opts] } {
- return 0
+ return
}
clean_restart
gdb_test_no_output "set always-read-ctf on"
gdb_load $binfile
@@ -28,11 +28,11 @@ lappend opts additional_flags=-gctf
lappend opts ldflags=-Wl,--ctf-variables
lappend opts nowarnings
if { [prepare_for_testing "failed to prepare" ${testfile} \
[list $srcfile] $opts] } {
- return 0
+ return
}
clean_restart
gdb_test_no_output "set always-read-ctf on"
gdb_load $binfile
@@ -24,9 +24,9 @@ if {[prepare_for_testing "failed to prepare" $testfile $sources]} {
gdb_test "maint expand-symtabs"
gdb_test "p a" { = \{1, 2\}} "no running process: p a"
if {![runto_main]} {
- return 0
+ return
}
gdb_test "p a" { = \{1, 2\}} "running process: p a"
@@ -27,11 +27,11 @@
if {![istarget *-*-linux*]
&& ![istarget *-*-gnu*]
&& ![istarget *-*-elf*]
&& ![istarget arm*-*-eabi*]
&& ![istarget powerpc-*-eabi*]} {
- return 0
+ return
}
standard_testfile .S
set srcmainfile start.c
set executable ${testfile}
@@ -66,11 +66,11 @@ gdb_test_multiple "disassemble eh2" "" {
pass $gdb_test_name
}
}
if { $address == -1 } {
- return 0
+ return
}
clean_restart $testfile
gdb_assert [gdb_breakpoint "*$address" no-message] "set breakpoint on address"
@@ -21,11 +21,11 @@ if {[build_executable ${testfile}.exp $testfile] == -1} {
set test "eu-strip"
set status [remote_exec build "eu-strip -f ${binfile}.debug $binfile"]
if {[lindex $status 0] != 0} {
untested "failed to compile"
- return 0
+ return
}
clean_restart $testfile
if {![runto_main]} {
@@ -23,11 +23,11 @@ standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile}] } {
return
}
if {![runto setup_done]} {
- return 0
+ return
}
set any "\[^\r\n\]*"
set ws "\[ \t\]\+"
set number "\[0-9]\+"
@@ -20,10 +20,10 @@
if { [prepare_for_testing "failed to prepare" "func-ptr" {func-ptr.c} {debug}] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
# This would put gdb into an infinite loop.
gdb_test "print pbar->baz" "Attempt to extract .*"
@@ -21,11 +21,11 @@
standard_testfile
# Unnamed union is a GNU extension, thus we restrict the test
# to gcc compiler.
if { ![test_compiler_info gcc*] } {
- return 0
+ return
}
if { [prepare_for_testing "failed to prepare" $testfile $testfile.c {debug}] } {
return
}
@@ -38,11 +38,11 @@ if { [prepare_for_testing "prepare" $testfile $execsrc\
}
gdb_load_shlib $libobj
if {![runto_main]} {
- return 0
+ return
}
# PR/1555 (was shlib 1280)
set name "Step into shared lib function"
gdb_test_multiple "s" $name \
@@ -31,9 +31,9 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_test "info locals" "\r\nb = .*"
@@ -83,11 +83,11 @@ proc check_info_shared { test expect1 expect2 } {
check_info_shared "info sharedlibrary before running" 0 0
# Start the inferior, and check neither of the libraries are loaded at
# the start.
if {![runto_main]} {
- return 0
+ return
}
check_info_shared "info sharedlibrary #1" 0 0
# Set up breakpoints.
gdb_breakpoint "stop"
@@ -26,11 +26,11 @@ standard_testfile
if { [prepare_for_testing "failed to prepare" ${testfile}] } {
return
}
if {![runto setup_done]} {
- return 0
+ return
}
set any "\[^\r\n\]*"
set ws "\[ \t\]\+"
set number "\[0-9]\+"
@@ -56,11 +56,11 @@ require allow_python_tests
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set pyfile [gdb_remote_download host ${srcdir}/${subdir}/${testfile}.py]
# Run to the breakpoint where we will carry out the test.
@@ -34,11 +34,11 @@ if {[build_executable $testfile.exp $testfile $srcfile $options] == -1} {
gdb_start
if {![file exists $binfile]} {
- return 0
+ return
} else {
gdb_reinitialize_dir $srcdir/$subdir
gdb_load $binfile
# Hope this is unix :-)
gdb_test "shell stty intr '^C'" ".*" \
@@ -18,11 +18,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set supported 0
gdb_test_multiple "l main:L1" "" {
-wrap -re "No label \"L1\" defined in function \"main\"\." {
@@ -44,11 +44,11 @@ remote_file host delete $srcfile
# Now start GDB, run to main and try to list the source.
clean_restart $testfile
if {![runto_main]} {
- return 0
+ return
}
gdb_test "list" "1\[ \t\]+in\[ \t\]+$srcfile"
gdb_test "info source" \
@@ -203,11 +203,11 @@ gdb_test_multiple "info source" "test macro information" {
warning "couldn't check macro support (no valid response)."
}
}
if {$macro_support == 0} {
unsupported "skipping test because debug information does not include macro information."
- return 0
+ return
}
list_and_check_macro main WHERE {macscp1.c {before macscp1_3}}
list_and_check_macro macscp2_2 WHERE {macscp2.h macscp1.c {before macscp2_2}}
list_and_check_macro macscp3_2 WHERE {macscp3.h macscp1.c {before macscp3_2}}
@@ -332,11 +332,11 @@ proc maybe_kfail { func test_name } {
}
}
# Start the program running.
if {! [runto_main]} {
- return 0
+ return
}
# Set a breakpoint on each of the functions.
foreach func_entry $funcs {
set func [lindex $func_entry 0]
@@ -22,11 +22,11 @@ if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} \
{debug nopie}]} {
return
}
if {![runto normal_func]} {
- return 0
+ return
}
# Make a pattern to match 'maint info blocks' output. ARGS is the
# list of function names we expect to see. If the function name
# starts with 'inline_func' then we expect to see an inline block,
@@ -32,11 +32,11 @@ if {[build_executable "failed to prepare" $testfile $srcfile debug]} {
# Generate core file.
set corefile [core_find $binfile]
if {$corefile == ""} {
untested "unable to create or find corefile"
- return 0
+ return
}
# Limit is in kb, so this is 4MB.
set stack_limit 4096
@@ -18,11 +18,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Run "show max-value-size" and return the interesting bit of the
# result. This is either the maximum size in bytes, or the string
# "unlimited".
@@ -43,11 +43,11 @@ gdb_load ${binfile}
#
# set it up at a breakpoint so we can play with the variable values
#
if {![runto_main]} {
- return 0
+ return
}
# couple of convenience variables
set fptrcast [string_to_regexp "{int (int)}"]
set iptrcast [string_to_regexp "(int *)"]
@@ -20,11 +20,11 @@ standard_testfile .c
if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_test "break [gdb_get_line_number "break here"]" \
".*Breakpoint.* at .*" \
"set breakpoint"
@@ -79,11 +79,11 @@ if { $found == 0 } {
remote_file build delete [file join $coredir coremmap.data]
remote_exec build "rmdir $coredir"
if { $found == 0 } {
warning "can't generate a core file - prelink tests suppressed - check ulimit -c"
- return 0
+ return
}
# Relink $libfile to a different address.
if {![prelink_yes $prelink_args]} {
return
@@ -41,11 +41,11 @@ require allow_python_tests
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
set pyfile [gdb_remote_download host ${srcdir}/${subdir}/${testfile}.py]
gdb_test_no_output "source ${pyfile}" "load python file"
@@ -22,11 +22,11 @@ standard_testfile
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
if {[allow_python_tests]} {
# The $_as_string convenience function is implemented in Python.
gdb_test {printf "%s\n", $_as_string("aabbcc")} "\"aabbcc\""
@@ -1211,11 +1211,11 @@ if { [test_compiler_info "armcc-*"] } {
gdb_test "p ctable1\[120\]" "120 'x'" "p ctable1\[120\] #1"
gdb_load ${binfile}
if {![runto_main]} {
- return 0
+ return
}
# With a running target, printf convenience vars should of course work.
test_printf_convenience_var "with target"
@@ -24,11 +24,11 @@ standard_testfile .c
# Test only works on LP64 targets. That's how we guarantee that the
# expected holes will be present in the struct.
if { ![is_lp64_target] } {
untested "test work only on lp64 targets"
- return 0
+ return
}
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return
}
@@ -22,11 +22,11 @@ standard_testfile .cc
# Test only works on LP64 targets. That's how we guarantee that the
# expected holes will be present in the struct.
if { ![is_lp64_target] } {
untested "test work only on lp64 targets"
- return 0
+ return
}
if { [prepare_for_testing "failed to prepare" $testfile $srcfile \
{ debug c++ }] } {
return
@@ -22,11 +22,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
set invalid_register_re "Invalid register \[^\r\n\]*"
# Fetch all reggroups from 'maint print reggroups'.
@@ -119,11 +119,11 @@ if { [gdb_compile ${srcfile_main} ${binfile_main} executable $main_flags] != ""
clean_restart
gdb_load $binfile_main
if {![runto_main]} {
- return 0
+ return
}
# Running the command 'info sharedlibrary' should output a path to
# the pretend/fake RTLD along with the address range. Check that
# this path is present and, if so, extract the address range.
@@ -33,11 +33,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
return
}
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
proc process_saved_regs { current inner outer } {
global gdb_prompt
global expect_out
@@ -17,11 +17,11 @@
if { [prepare_for_testing "failed to prepare" "set-noassign" start.c {debug nowarnings}] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Verify that set command without assignment emits a warning.
#
gdb_test "set language ada" ".*"
@@ -67,11 +67,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile $exec_opts] != 0} {
gdb_load_shlib $lib1_sl
gdb_load_shlib $lib2_sl
# Load up the shared objects
if {![runto_main]} {
- return 0
+ return
}
#
# Check debugging symbol relocations
#
@@ -36,11 +36,11 @@ gdb_test "handle SIGALRM print pass nostop"
gdb_test "handle SIGVTALRM print pass nostop"
gdb_test "handle SIGPROF print pass nostop"
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Stop in handle, when at the inner most level
gdb_test "break catcher if level == INNER"
gdb_test "continue" ".* catcher .*" "continue to catch"
@@ -40,11 +40,11 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
#
# Run to `main' where we begin our tests.
#
if {![runto_main]} {
- return 0
+ return
}
# If we can examine what's at memory address 0, it is possible that we
# could also execute it. This could probably make us run away,
# executing random code, which could have all sorts of ill effects,
@@ -30,11 +30,11 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
gdb_test "display/i \$pc"
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Run to the signal.
gdb_test "continue" ".*Program received signal SIGSEGV.*" "continue to signal"
@@ -32,11 +32,11 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Run to the signal.
gdb_test "continue" ".*Program received signal SIGSEGV.*" \
"continue to signal, 1st"
@@ -92,11 +92,11 @@ with_test_prefix "validate siginfo fields" {
# Again, but this time, patch si_addr and check that the inferior sees
# the changed value.
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Run to the signal.
gdb_test "continue" ".*Program received signal SIGSEGV.*" \
"continue to signal, 2nd"
@@ -26,11 +26,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile {debug pthreads}] != 0 }
return
}
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Run to the signal.
gdb_test "continue" "Thread .* received signal SIGSEGV.*" "continue to signal"
@@ -34,11 +34,11 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
gdb_test "display/i \$pc"
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Pass all the alarms straight through (but verbosely)
# gdb_test "handle SIGALRM print pass nostop"
# gdb_test "handle SIGVTALRM print pass nostop"
@@ -39,11 +39,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
#
# Run to `main' where we begin our tests.
#
if {![runto_main]} {
- return 0
+ return
}
# If we can examine what's at memory address 0, it is possible that we
# could also execute it. This could probably make us run away,
# executing random code, which could have all sorts of ill effects,
@@ -28,11 +28,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile] != 0 } {
return
}
# Advance to main
if {![runto_main]} {
- return 0
+ return
}
# Run to the signal handler wait loop.
set infinite_loop [gdb_get_line_number {infinite loop}]
gdb_test "advance $infinite_loop" ".*" "advance to infinite loop"
@@ -18,11 +18,11 @@
require allow_shlib_tests
set gdbserver_reconnect_p 1
if { [info proc gdb_reconnect] == "" } {
unsupported "requires gdbserver reconnect"
- return 0
+ return
}
set testfile solib-disc
set libfile so-disc-shr
set srcfile ${testfile}.c
@@ -48,11 +48,11 @@ if { [prepare_for_testing "prepare" $testfile $execsrc $exec_opts] != 0 } {
}
gdb_load_shlib $libobj
if {![runto_main]} {
- return 0
+ return
}
gdb_test_no_output "set stop-on-solib-events 1"
gdb_test "continue" "Stopped due to shared library event.*" "continue to load"
@@ -69,11 +69,11 @@ gdb_test_multiple "print/x \$pc" $msg {
gdb_test "disconnect" "Ending remote debugging\\." "disconnect after load"
if { [gdb_reconnect] == 0 } {
pass "reconnect after load"
} else {
fail "reconnect after load"
- return 0
+ return
}
gdb_test "print/x \$pc" "${::valnum_re} = $saved_pc" "check \$pc after load"
@@ -91,9 +91,9 @@ gdb_test_multiple "print/x \$pc" $msg {
gdb_test "disconnect" "Ending remote debugging\\." "disconnect after unload"
if { [gdb_reconnect] == 0 } {
pass "reconnect after unload"
} else {
fail "reconnect after unload"
- return 0
+ return
}
gdb_test "print/x \$pc" "${::valnum_re} = $saved_pc" "check \$pc after unload"
@@ -21,16 +21,16 @@ require allow_shlib_tests
# These targets have shared libraries, but weak symbols are not meaningful.
if {([istarget *-*-mingw*]
|| [istarget *-*-cygwin*]
|| [istarget *-*-pe*])} {
- return 0
+ return
}
# This test uses GCC-specific syntax.
if {![test_compiler_info "gcc-*"]} {
- return 0
+ return
}
proc do_test { lib1opts lib2opts lib1first } {
global srcdir subdir
@@ -22,11 +22,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_test "source ${srcdir}/${subdir}/source-execution.gdb" \
"func2.*func3.*" \
"source source-execution.gdb"
@@ -40,11 +40,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
delete_breakpoints
# With the all-stop RSP, we can't talk to the target while it's
@@ -23,11 +23,11 @@ set executable ${testfile}
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_breakpoint [gdb_get_line_number "set foo break here"]
gdb_continue_to_breakpoint "first breakpoint" ".* set foo break here .*"
@@ -20,11 +20,11 @@ if { [prepare_for_testing "prepare" $testfile $srcfile \
[list debug additional_flags=-fstack-check nowarnings]] != 0 } {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Test that the debugger is able to unwind to "main" at the next breakpoint
# hit. The frame number of "main" should be passed into MAIN_FRAME_NUMBER."
@@ -22,11 +22,11 @@
# protection.
if { !([test_compiler_info "gcc-*"] || [test_compiler_info "clang-*"])
|| [test_compiler_info {gcc-[0-3]-*}]
|| [test_compiler_info {gcc-4-0-*}]
|| [test_compiler_info {clang-[0-4]=*}] } {
- return 0
+ return
}
standard_testfile
set protector_options { "-fno-stack-protector" "-fstack-protector" \
@@ -18,11 +18,11 @@ standard_testfile .c
if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug}] } {
return
}
if {![runto_main]} {
- return 0
+ return
}
gdb_test "f" \
".*bkpt = 0.*" \
"structs2 sanity check"
@@ -37,11 +37,11 @@ set target_size TARGET_UNKNOWN
if {[is_lp64_target]} {
set target_size TARGET_LP64
} elseif {[is_ilp32_target]} {
set target_size TARGET_ILP32
} else {
- return 0
+ return
}
set main_basename sym-file-main
set loader_basename sym-file-loader
set lib_basename sym-file-lib
@@ -26,11 +26,11 @@ set srcfilelink [standard_output_file $linksrc]
remote_file host delete $srcfilelink
set status [remote_exec host \
"ln -sf $srcdir/$subdir/$srcfile $srcfilelink"]
if {[lindex $status 0] != 0} {
unsupported "$test (host does not support symbolic links)"
- return 0
+ return
}
if {[prepare_for_testing $testfile $testfile $srcfilelink]} {
return
}
@@ -24,11 +24,11 @@ if { [prepare_for_testing "failed to prepare" term term.c] } {
gdb_test "info terminal" \
"No saved terminal information.*" \
"test info terminal pre-execution"
if {![runto break_here]} {
- return 0
+ return
}
# Read the inferior's terminal settings, saved in the T global variable.
proc read_term_settings_from_inferior {} {
@@ -36,11 +36,11 @@ if { [prepare_for_testing "prepare" $testfile $execsrc \
}
gdb_load_shlib ${libobj}
if {![runto_main]} {
- return 0
+ return
}
# DWARF3: An incomplete structure, union or class type is represented by
# a structure, union or class entry that does not have a byte size attribute
@@ -21,11 +21,11 @@ standard_testfile advance.c
if {[prepare_for_testing "failed to prepare" $testfile $srcfile nodebug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Without debug information, the program stops at the next
# instruction, which is still in main.
gdb_test "until" "in main .*" "until 1"
@@ -24,11 +24,11 @@ set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
set bp_location19 [gdb_get_line_number "set breakpoint 19 here"]
set bp_location20 [gdb_get_line_number "set breakpoint 20 here"]
set bp_location21 [gdb_get_line_number "set breakpoint 21 here"]
if {![runto_main]} {
- return 0
+ return
}
# Verify that "until <location>" works. (This is really just syntactic
# sugar for "tbreak <location>; continue".)
#
@@ -28,11 +28,11 @@ if {[prepare_for_testing_full "failed to prepare" \
$srcfile $srcfile_flags $srcfile2 $srcfile2_flags]]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# Return a two element list, the first element is the stack-pointer
# value (from the $sp register), and the second element is the frame
# base address (from the 'info frame' output).
@@ -25,11 +25,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if { ![runto_main] } {
- return 0
+ return
}
gdb_test "break stop_here" "Breakpoint \[0-9\]* at .*"
gdb_test "continue" "Continuing.*Breakpoint \[0-9\]*, stop_here.*" \
"continue to breakpoint at stop_here"
@@ -66,11 +66,11 @@ if {[gdb_test "call gen_signal ()" \
"while in a function called from GDB\\. GDB has restored the context" \
"to what it was before the call\\. To change this behavior use" \
"\"set unwind-on-signal off\"\\. Evaluation of the expression containing" \
"the function \\(gen_signal\\) will be abandoned\\."] \
"unwindonsignal, inferior function call signaled"] != 0} {
- return 0
+ return
}
# Verify the stack got unwound.
gdb_test "bt" \
"#0 *\[x0-9a-f in\]*stop_here \\(.*\\) at .*#1 *\[x0-9a-f in\]*main \\(.*\\) at .*" \
@@ -37,11 +37,11 @@ standard_testfile
if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return
}
if {![runto_main]} {
- return 0
+ return
}
# The line we'll be stepping.
set srcline [gdb_get_line_number "stepi line"]