gdb/testsuite/
* config/monitor.exp (gdb_target_cmd): Remove semicolon after 'return'. (gdb_target_monitor, gdb_load): Likewise. * config/sid.exp (gdb_load): Likewise. * config/slite.exp (gdb_load): Likewise. * config/vx.exp (gdb_start, spawn_vxgdb): Likewise. * gdb.ada/arrayidx.exp, gdb.ada/null_array.exp: Likewise. * gdb.arch/mips-octeon-bbit.exp (single_step): Likewise. (single_step_until): Likewise. * gdb.arch/powerpc-d128-regs.exp: Likewise. * gdb.arch/system-gcore.exp: Likewise. * gdb.base/bigcore.exp (extract_heap): Likewise. * gdb.base/break-on-linker-gcd-function.exp: Likewise. * gdb.base/call-ar-st.exp: Likewise. * gdb.base/call-rt-st.exp: Likewise. * gdb.base/call-sc.exp, gdb.base/call-strs.exp: Likewise. * gdb.base/callfuncs.exp, gdb.base/completion.exp: Likewise. * gdb.base/condbreak.exp, gdb.base/constvars.exp: Likewise. * gdb.base/corefile.exp: Likewise. * gdb.base/dbx.exp (gdb_file_cmd): Likewise. * gdb.base/exprs.exp, gdb.base/fileio.exp: Likewise. * gdb.base/fixsection.exp: Likewise. * gdb.base/funcargs.exp: Likewise. * gdb.base/gcore-buffer-overflow.exp: Likewise. * gdb.base/gcore-relro.exp: Likewise. * gdb.base/gcore.exp, gdb.base/gdb11530.exp: Likewise. * gdb.base/gdb11531.exp, gdb.base/gnu-ifunc.exp: Likewise. * gdb.base/info-os.exp, gdb.base/info-proc.exp: Likewise. * gdb.base/interp.exp, gdb.base/langs.exp:: Likewise. * gdb.base/list.exp: Likewise. (set_listsize): Likewise. * gdb.base/logical.exp, gdb.base/mips_pro.exp: Likewise. * gdb.base/miscexprs.exp, gdb.base/nodebug.exp: Likewise. * gdb.base/opaque.exp, gdb.base/pointers.exp: Likewise. * gdb.base/psymtab.exp, gdb.base/ptype.exp: Likewise. * gdb.base/relational.exp, gdb.base/scope.exp: Likewise. * gdb.base/setvar.exp: Likewise. (test_set): Likewise. * gdb.base/signals.exp, gdb.base/sizeof.exp: Likewise. * gdb.base/solib-overlap.exp: Likewise. * gdb.base/store.exp, gdb.base/structs.exp: Likewise. * gdb.base/structs2.exp, gdb.base/volatile.exp: Likewise. * gdb.base/watchpoint.exp (initialize): Likewise. (test_simple_watchpoint): Likewise. (test_disabling_watchpoints): Likewise. (test_watchpoint_triggered_in_syscall): Likewise. * gdb.base/whatis.exp, gdb.cp/ambiguous.exp: Likewise. * gdb.cp/casts.exp, gdb.cp/ctti.exp: Likewise. * gdb.cp/namespace.exp, gdb.cp/nsdecl.exp: Likewise. * gdb.cp/psmang.exp, gdb.dwarf2/dw2-ranges.exp: Likewise. * gdb.hp/gdb.aCC/optimize.exp: Likewise. * gdb.hp/gdb.aCC/watch-cmd.exp: Likewise. * gdb.hp/gdb.base-hp/callfwmall.exp: Likewise. * gdb.hp/gdb.base-hp/pxdb.exp: Likewise. * gdb.hp/gdb.compat/xdb1.exp: Likewise. * gdb.hp/gdb.compat/xdb2.exp: Likewise. * gdb.hp/gdb.compat/xdb3.exp: Likewise. * gdb.hp/gdb.defects/bs14602.exp: Likewise. * gdb.hp/gdb.defects/solib-d.exp: Likewise. * gdb.mi/gdb792.exp: Likewise. * gdb.mi/mi-inheritance-syntax-error.exp: Likewise. * gdb.mi/mi-logging.exp, gdb.mi/mi-var-cp.exp : Likewise. * gdb.mi/mi-var-rtti.exp, gdb.python/py-type.exp: Likewise. * gdb.threads/gcore-thread.exp: Likewise. (load_core): Likewise. * gdb.threads/pthreads.exp (all_threads_running): Likewise. (test_startup, check_control_c): Likewise. * gdb.threads/sigstep-threads.exp: Likewise. * gdb.threads/thread_check.exp: Likewise. * gdb.trace/backtrace.exp, gdb.trace/change-loc.exp: Likewise. * gdb.trace/circ.exp (run_trace_experiment): Likewise. (set_a_tracepoint, trace_buffer_normal): Likewise. (gdb_trace_circular_tests): Likewise. * gdb.trace/collection.exp: Likewise. * gdb.trace/disconnected-tracing.exp: Likewise. * gdb.trace/infotrace.exp: Likewise. * gdb.trace/mi-traceframe-changed.exp: Likewise. * gdb.trace/mi-tracepoint-changed.exp: Likewise. * gdb.trace/mi-tsv-changed.exp (test_create_delete_modify_tsv): Likewise. * gdb.trace/packetlen.exp, gdb.trace/passc-dyn.exp: Likewise. * gdb.trace/pending.exp, gdb.trace/report.exp: Likewise. * gdb.trace/stap-trace.exp: Likewise. * gdb.trace/status-stop.exp,gdb.trace/strace.exp: Likewise. * gdb.trace/tfind.exp, gdb.trace/trace-break.exp: Likewise. * gdb.trace/trace-buffer-size.exp: Likewise. * gdb.trace/tspeed.exp, gdb.trace/tsv.exp: Likewise. * gdb.trace/unavailable.exp: Likewise. * gdb.trace/while-dyn.exp: Likewise. * lib/fortran.exp (set_lang_fortran): Likewise. * lib/gdb.exp (default_gdb_version, gdb_start_cmd): Likewise. (gdb_breakpoint, gdb_reinitialize_dir): Likewise. (default_gdb_start, get_compiler_info): Likewise. (gdb_compile, gdb_compile_objc, gdb_reload, gdb_init): Likewise. (get_debug_format, setup_xfail_format): Likewise. (rerun_to_main, gdb_skip_float_test): Likewise. (build_id_debug_filename_get, get_remotetimeout): Likewise. * lib/java.exp (set_lang_java): Likewise. * lib/mi-support.exp (default_mi_gdb_start): Likewise. (mi_gdb_reinitialize_dir, mi_gdb_target_cmd): Likewise. (mi_gdb_file_cmd, mi_gdb_test): Likewise. (mi_run_cmd_full, mi_expect_interrupt): Likewise. * lib/objc.exp (set_lang_objc): Likewise. * lib/pascal.exp (set_lang_pascal): Likewise. * lib/prompt.exp (default_prompt_gdb_start): Likewise. * lib/trace-support.exp (gdb_trace_setactions, gdb_tfind_test): Likewise. (gdb_readexpr, gdb_gettpnum, gdb_find_recursion_test_baseline): Likewise.
This commit is contained in:
parent
eeb56fa757
commit
ae59b1da21
@ -1,3 +1,112 @@
|
||||
2013-03-14 Yao Qi <yao@codesourcery.com>
|
||||
|
||||
* config/monitor.exp (gdb_target_cmd): Remove semicolon after
|
||||
'return'.
|
||||
(gdb_target_monitor, gdb_load): Likewise.
|
||||
* config/sid.exp (gdb_load): Likewise.
|
||||
* config/slite.exp (gdb_load): Likewise.
|
||||
* config/vx.exp (gdb_start, spawn_vxgdb): Likewise.
|
||||
* gdb.ada/arrayidx.exp, gdb.ada/null_array.exp: Likewise.
|
||||
* gdb.arch/mips-octeon-bbit.exp (single_step): Likewise.
|
||||
(single_step_until): Likewise.
|
||||
* gdb.arch/powerpc-d128-regs.exp: Likewise.
|
||||
* gdb.arch/system-gcore.exp: Likewise.
|
||||
* gdb.base/bigcore.exp (extract_heap): Likewise.
|
||||
* gdb.base/break-on-linker-gcd-function.exp: Likewise.
|
||||
* gdb.base/call-ar-st.exp: Likewise.
|
||||
* gdb.base/call-rt-st.exp: Likewise.
|
||||
* gdb.base/call-sc.exp, gdb.base/call-strs.exp: Likewise.
|
||||
* gdb.base/callfuncs.exp, gdb.base/completion.exp: Likewise.
|
||||
* gdb.base/condbreak.exp, gdb.base/constvars.exp: Likewise.
|
||||
* gdb.base/corefile.exp: Likewise.
|
||||
* gdb.base/dbx.exp (gdb_file_cmd): Likewise.
|
||||
* gdb.base/exprs.exp, gdb.base/fileio.exp: Likewise.
|
||||
* gdb.base/fixsection.exp: Likewise.
|
||||
* gdb.base/funcargs.exp: Likewise.
|
||||
* gdb.base/gcore-buffer-overflow.exp: Likewise.
|
||||
* gdb.base/gcore-relro.exp: Likewise.
|
||||
* gdb.base/gcore.exp, gdb.base/gdb11530.exp: Likewise.
|
||||
* gdb.base/gdb11531.exp, gdb.base/gnu-ifunc.exp: Likewise.
|
||||
* gdb.base/info-os.exp, gdb.base/info-proc.exp: Likewise.
|
||||
* gdb.base/interp.exp, gdb.base/langs.exp:: Likewise.
|
||||
* gdb.base/list.exp: Likewise.
|
||||
(set_listsize): Likewise.
|
||||
* gdb.base/logical.exp, gdb.base/mips_pro.exp: Likewise.
|
||||
* gdb.base/miscexprs.exp, gdb.base/nodebug.exp: Likewise.
|
||||
* gdb.base/opaque.exp, gdb.base/pointers.exp: Likewise.
|
||||
* gdb.base/psymtab.exp, gdb.base/ptype.exp: Likewise.
|
||||
* gdb.base/relational.exp, gdb.base/scope.exp: Likewise.
|
||||
* gdb.base/setvar.exp: Likewise.
|
||||
(test_set): Likewise.
|
||||
* gdb.base/signals.exp, gdb.base/sizeof.exp: Likewise.
|
||||
* gdb.base/solib-overlap.exp: Likewise.
|
||||
* gdb.base/store.exp, gdb.base/structs.exp: Likewise.
|
||||
* gdb.base/structs2.exp, gdb.base/volatile.exp: Likewise.
|
||||
* gdb.base/watchpoint.exp (initialize): Likewise.
|
||||
(test_simple_watchpoint): Likewise.
|
||||
(test_disabling_watchpoints): Likewise.
|
||||
(test_watchpoint_triggered_in_syscall): Likewise.
|
||||
* gdb.base/whatis.exp, gdb.cp/ambiguous.exp: Likewise.
|
||||
* gdb.cp/casts.exp, gdb.cp/ctti.exp: Likewise.
|
||||
* gdb.cp/namespace.exp, gdb.cp/nsdecl.exp: Likewise.
|
||||
* gdb.cp/psmang.exp, gdb.dwarf2/dw2-ranges.exp: Likewise.
|
||||
* gdb.hp/gdb.aCC/optimize.exp: Likewise.
|
||||
* gdb.hp/gdb.aCC/watch-cmd.exp: Likewise.
|
||||
* gdb.hp/gdb.base-hp/callfwmall.exp: Likewise.
|
||||
* gdb.hp/gdb.base-hp/pxdb.exp: Likewise.
|
||||
* gdb.hp/gdb.compat/xdb1.exp: Likewise.
|
||||
* gdb.hp/gdb.compat/xdb2.exp: Likewise.
|
||||
* gdb.hp/gdb.compat/xdb3.exp: Likewise.
|
||||
* gdb.hp/gdb.defects/bs14602.exp: Likewise.
|
||||
* gdb.hp/gdb.defects/solib-d.exp: Likewise.
|
||||
* gdb.mi/gdb792.exp: Likewise.
|
||||
* gdb.mi/mi-inheritance-syntax-error.exp: Likewise.
|
||||
* gdb.mi/mi-logging.exp, gdb.mi/mi-var-cp.exp : Likewise.
|
||||
* gdb.mi/mi-var-rtti.exp, gdb.python/py-type.exp: Likewise.
|
||||
* gdb.threads/gcore-thread.exp: Likewise.
|
||||
(load_core): Likewise.
|
||||
* gdb.threads/pthreads.exp (all_threads_running): Likewise.
|
||||
(test_startup, check_control_c): Likewise.
|
||||
* gdb.threads/sigstep-threads.exp: Likewise.
|
||||
* gdb.threads/thread_check.exp: Likewise.
|
||||
* gdb.trace/backtrace.exp, gdb.trace/change-loc.exp: Likewise.
|
||||
* gdb.trace/circ.exp (run_trace_experiment): Likewise.
|
||||
(set_a_tracepoint, trace_buffer_normal): Likewise.
|
||||
(gdb_trace_circular_tests): Likewise.
|
||||
* gdb.trace/collection.exp: Likewise.
|
||||
* gdb.trace/disconnected-tracing.exp: Likewise.
|
||||
* gdb.trace/infotrace.exp: Likewise.
|
||||
* gdb.trace/mi-traceframe-changed.exp: Likewise.
|
||||
* gdb.trace/mi-tracepoint-changed.exp: Likewise.
|
||||
* gdb.trace/mi-tsv-changed.exp (test_create_delete_modify_tsv): Likewise.
|
||||
* gdb.trace/packetlen.exp, gdb.trace/passc-dyn.exp: Likewise.
|
||||
* gdb.trace/pending.exp, gdb.trace/report.exp: Likewise.
|
||||
* gdb.trace/stap-trace.exp: Likewise.
|
||||
* gdb.trace/status-stop.exp,gdb.trace/strace.exp: Likewise.
|
||||
* gdb.trace/tfind.exp, gdb.trace/trace-break.exp: Likewise.
|
||||
* gdb.trace/trace-buffer-size.exp: Likewise.
|
||||
* gdb.trace/tspeed.exp, gdb.trace/tsv.exp: Likewise.
|
||||
* gdb.trace/unavailable.exp: Likewise.
|
||||
* gdb.trace/while-dyn.exp: Likewise.
|
||||
* lib/fortran.exp (set_lang_fortran): Likewise.
|
||||
* lib/gdb.exp (default_gdb_version, gdb_start_cmd): Likewise.
|
||||
(gdb_breakpoint, gdb_reinitialize_dir): Likewise.
|
||||
(default_gdb_start, get_compiler_info): Likewise.
|
||||
(gdb_compile, gdb_compile_objc, gdb_reload, gdb_init): Likewise.
|
||||
(get_debug_format, setup_xfail_format): Likewise.
|
||||
(rerun_to_main, gdb_skip_float_test): Likewise.
|
||||
(build_id_debug_filename_get, get_remotetimeout): Likewise.
|
||||
* lib/java.exp (set_lang_java): Likewise.
|
||||
* lib/mi-support.exp (default_mi_gdb_start): Likewise.
|
||||
(mi_gdb_reinitialize_dir, mi_gdb_target_cmd): Likewise.
|
||||
(mi_gdb_file_cmd, mi_gdb_test): Likewise.
|
||||
(mi_run_cmd_full, mi_expect_interrupt): Likewise.
|
||||
* lib/objc.exp (set_lang_objc): Likewise.
|
||||
* lib/pascal.exp (set_lang_pascal): Likewise.
|
||||
* lib/prompt.exp (default_prompt_gdb_start): Likewise.
|
||||
* lib/trace-support.exp (gdb_trace_setactions, gdb_tfind_test): Likewise.
|
||||
(gdb_readexpr, gdb_gettpnum, gdb_find_recursion_test_baseline): Likewise.
|
||||
|
||||
2013-03-14 Sergio Durigan Junior <sergiodj@redhat.com>
|
||||
|
||||
PR c++/15203
|
||||
|
@ -36,19 +36,19 @@ proc gdb_target_cmd { targetname serialport } {
|
||||
}
|
||||
-re "Remote MIPS debugging.*$gdb_prompt" {
|
||||
verbose "Set target to $targetname";
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re "Remote debugging using .*$serialport.*$gdb_prompt" {
|
||||
verbose "Set target to $targetname";
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re "Remote target $targetname connected to.*$gdb_prompt" {
|
||||
verbose "Set target to $targetname";
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re "Connected to.*$gdb_prompt" {
|
||||
verbose "Set target to $targetname";
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re "Ending remote.*$gdb_prompt" { }
|
||||
-re "Connection refused.*$gdb_prompt" {
|
||||
@ -83,7 +83,7 @@ proc gdb_target_monitor { exec_file } {
|
||||
set targetname "[target_info gdb_protocol]"
|
||||
} else {
|
||||
perror "No protocol specified for [target_info name].";
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
if [target_info exists baud] {
|
||||
gdb_test "set remotebaud [target_info baud]" "" ""
|
||||
@ -106,9 +106,9 @@ proc gdb_target_monitor { exec_file } {
|
||||
}
|
||||
|
||||
for {set j 1} {$j <= 2} {incr j} {
|
||||
if [gdb_file_cmd $exec_file] { return -1; }
|
||||
if [gdb_file_cmd $exec_file] { return -1 }
|
||||
|
||||
if ![gdb_target_cmd $targetname $serialport] { return 0; }
|
||||
if ![gdb_target_cmd $targetname $serialport] { return 0 }
|
||||
|
||||
gdb_target_exec;
|
||||
|
||||
@ -118,7 +118,7 @@ proc gdb_target_monitor { exec_file } {
|
||||
}
|
||||
|
||||
perror "Couldn't set target for $targetname, port is $serialport.";
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
proc gdb_target_exec { } {
|
||||
@ -171,10 +171,10 @@ proc gdb_load { arg } {
|
||||
remote_pop_conn host;
|
||||
}
|
||||
if { $state == "pass" } {
|
||||
if [gdb_target_monitor $arg] { return -1; }
|
||||
if [gdb_target_monitor $arg] { return -1 }
|
||||
gdb_test "list main" ".*" ""
|
||||
verbose "Loaded $arg into $GDB\n";
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
} else {
|
||||
|
||||
@ -254,7 +254,7 @@ proc gdb_load { arg } {
|
||||
}
|
||||
|
||||
if { $load_ok == 1 } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
}
|
||||
|
||||
@ -268,5 +268,5 @@ proc gdb_load { arg } {
|
||||
}
|
||||
}
|
||||
perror "Couldn't load file into GDB.";
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
@ -213,5 +213,5 @@ proc gdb_load { arg } {
|
||||
}
|
||||
set timeout $prev_timeout
|
||||
verbose "Timeout is now $timeout seconds" 2
|
||||
return $retval;
|
||||
return $retval
|
||||
}
|
||||
|
@ -60,7 +60,7 @@ proc gdb_load { arg } {
|
||||
} else {
|
||||
if ![target_info exists netport] {
|
||||
perror "Need either netport or gdb_serial entry for [target_info name].";
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
set targetname [target_info netport];
|
||||
set command "target $protocol udp [target_info netport]\n";
|
||||
@ -105,7 +105,7 @@ proc gdb_load { arg } {
|
||||
set arg [remote_download host $arg];
|
||||
if { $arg == "" } {
|
||||
error "download failed"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
send_gdb "load $arg $offset\n"
|
||||
|
@ -68,10 +68,10 @@ proc gdb_start { } {
|
||||
|
||||
set state [spawn_vxgdb];
|
||||
if { $state == "pass" } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
if { $state == "fail" } {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
remote_reboot target;
|
||||
@ -97,7 +97,7 @@ proc spawn_vxgdb { } {
|
||||
-re "Done\..*$gdb_prompt $" {
|
||||
verbose "Set target to [target_info hostname]" 1
|
||||
set timeout 10;
|
||||
return "pass";
|
||||
return "pass"
|
||||
}
|
||||
-re "net_connect: RPC: (Program not registered|.*Timed out).*$" {
|
||||
warning "Couldn't set GDB to target [target_info netport]."
|
||||
@ -106,7 +106,7 @@ proc spawn_vxgdb { } {
|
||||
warning "Couldn't set target for vxworks."
|
||||
}
|
||||
}
|
||||
return "retry";
|
||||
return "retry"
|
||||
}
|
||||
|
||||
proc gdb_exit { } {
|
||||
|
@ -24,7 +24,7 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable {debug}] != ""} {
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
set old_gcc [expr [test_compiler_info {gcc-[0-3]-*}] \
|
||||
|| [test_compiler_info {gcc-4-[0-6]-*}]]
|
||||
|
@ -27,7 +27,7 @@ set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
|
||||
runto "foo.adb:$bp_location"
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[test_compiler_info {gcc-[0-3]-*}]
|
||||
|
@ -41,7 +41,7 @@ proc single_step {} {
|
||||
return 1
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
proc single_step_until { match } {
|
||||
@ -58,7 +58,7 @@ proc single_step_until { match } {
|
||||
}
|
||||
set insn [current_insn]
|
||||
}
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
proc test_bbit { name taken } {
|
||||
|
@ -47,7 +47,7 @@ if { ![runto main] } then {
|
||||
}
|
||||
|
||||
if [gdb_test "show arch" ".*currently powerpc:common.*" "Checking for PPC arch"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_test "next" ""
|
||||
|
@ -41,7 +41,7 @@ gdb_expect {
|
||||
-re "Undefined command: .gcore.*$gdb_prompt $" {
|
||||
# gcore command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support gcore on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
-re "Save a core file .*$gdb_prompt $" {
|
||||
pass "help gcore"
|
||||
|
@ -103,7 +103,7 @@ proc extract_heap { dir } {
|
||||
fail "$test (timeout)"
|
||||
}
|
||||
}
|
||||
return $heap;
|
||||
return $heap
|
||||
}
|
||||
set next_heap [extract_heap next]
|
||||
set prev_heap [extract_heap prev]
|
||||
|
@ -30,7 +30,7 @@ set srcfile ${testfile}.cc
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
set additional_flags {-ffunction-sections -Wl,--gc-sections}
|
||||
|
@ -23,7 +23,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
# Test depends on printf, which the sparclet stub doesn't support.
|
||||
if { [istarget "sparclet-*-*"] } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
||||
@ -36,7 +36,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Some targets can't call functions, so don't even bother with this
|
||||
|
@ -28,7 +28,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
# Test depends on printf, which the sparclet stub doesn't support.
|
||||
if { [istarget "sparclet-*-*"] } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
|
||||
@ -42,7 +42,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Some targets can't do function calls, so don't even bother with this
|
||||
|
@ -36,7 +36,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
# compiler used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Compile a variant of scalars.c using TYPE to specify the type of the
|
||||
|
@ -29,7 +29,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
# Test depends on printf, which the sparclet stub doesn't support.
|
||||
if { [istarget "sparclet-*-*"] } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
||||
|
@ -34,7 +34,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $com
|
||||
# used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {$hp_aCC_compiler} {
|
||||
|
@ -71,7 +71,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -42,7 +42,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
@ -165,7 +165,7 @@ gdb_test "continue" "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.
|
||||
# stop location, but avoids clutter when possible.
|
||||
#
|
||||
# Suppose you have a function written completely on one source line, like:
|
||||
# int foo (int x) { return 0; }
|
||||
# int foo (int x) { return 0 }
|
||||
# Setting a breakpoint at `foo' actually places the breakpoint after
|
||||
# foo's prologue.
|
||||
#
|
||||
|
@ -34,7 +34,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable debug ] != "" } {
|
||||
|
@ -32,7 +32,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
set corefile [core_find $binfile {coremmap.data}]
|
||||
|
@ -184,7 +184,7 @@ proc gdb_file_cmd {arg} {
|
||||
set arg [remote_download host $arg];
|
||||
if { $arg == "" } {
|
||||
error "download failed"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -28,7 +28,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -34,7 +34,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
remote_exec build {sh -xc test\ -r\ dir2.fileio.test\ &&\ chmod\ -f\ +w\ dir2.fileio.test}
|
||||
|
@ -49,7 +49,7 @@ gdb_load_shlibs ${lib_sl}
|
||||
|
||||
if ![runto_main] then {
|
||||
fail "Can't run to main"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $com
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -40,7 +40,7 @@ gdb_test_multiple "help gcore" "help gcore" {
|
||||
-re "Undefined command: .gcore.*$gdb_prompt $" {
|
||||
# gcore command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support gcore on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
-re "Save a core file .*$gdb_prompt $" {
|
||||
pass "help gcore"
|
||||
|
@ -44,7 +44,7 @@ gdb_test_multiple $test $test {
|
||||
-re "Undefined command: .gcore.*\r\n$gdb_prompt $" {
|
||||
# gcore command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support gcore on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
-re "Save a core file .*\r\n$gdb_prompt $" {
|
||||
pass $test
|
||||
|
@ -38,7 +38,7 @@ gdb_test_multiple "help gcore" "help gcore" {
|
||||
-re "Undefined command: .gcore.*$gdb_prompt $" {
|
||||
# gcore command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support gcore on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
-re "Save a core file .*$gdb_prompt $" {
|
||||
pass "help gcore"
|
||||
|
@ -25,15 +25,15 @@ set binfile ${testfile}${EXEEXT}
|
||||
# to gcc compiler.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if { ![test_compiler_info gcc*] } {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
if { [prepare_for_testing $testfile.exp $testfile $testfile.c {debug}] } {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
|
||||
|
@ -23,7 +23,7 @@
|
||||
set testfile "gdb11531"
|
||||
|
||||
if { [prepare_for_testing $testfile.exp $testfile $testfile.c {debug}] } {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Disable hardware watchpoints if necessary.
|
||||
|
@ -65,7 +65,7 @@ gdb_load_shlibs ${lib_so}
|
||||
|
||||
if ![runto_main] then {
|
||||
fail "Can't run to main"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
# The "if" condition is artifical to test regression of a former patch.
|
||||
|
@ -36,7 +36,7 @@ if { [prepare_for_testing ${testfile}.exp $testfile $srcfile {debug additional_f
|
||||
|
||||
if ![runto_main] then {
|
||||
fail "cannot run to main"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Get PID of test program.
|
||||
|
@ -54,7 +54,7 @@ gdb_test_multiple "info proc" "info proc without a process" {
|
||||
-re "Not supported on this target.*$gdb_prompt $" {
|
||||
# info proc command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support info proc on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -86,7 +86,7 @@ gdb_test_multiple $cmd $cmd {
|
||||
|
||||
if ![runto_main] then {
|
||||
fail "run to main"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_test "list" ".*\[0-9\].*main \\(int argc.*" "can list sources"
|
||||
|
@ -51,7 +51,7 @@ set timeout 10
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -43,7 +43,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
@ -59,14 +59,14 @@ proc set_listsize { arg } {
|
||||
|
||||
incr set_listsize_count;
|
||||
if [gdb_test "set listsize $arg" ".*" "setting listsize to $arg #$set_listsize_count"] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
if { $arg < 0 } {
|
||||
set arg "unlimited";
|
||||
}
|
||||
|
||||
if [gdb_test "show listsize" "Number of source lines.* is ${arg}.*" "show listsize $arg #$set_listsize_count"] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
return 1
|
||||
}
|
||||
|
@ -35,7 +35,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -21,7 +21,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
|
||||
|
@ -47,7 +47,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [lis
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -21,7 +21,7 @@ set srcfile $srcdir/$subdir/$testfile.c
|
||||
set binfile $objdir/$subdir/$testfile
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if [test_compiler_info "xlc-*"] {
|
||||
|
@ -42,7 +42,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Start with a fresh gdb.
|
||||
|
@ -35,7 +35,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -47,7 +47,7 @@ if { [gdb_compile "${testfile}1.o ${testfile}2.o" ${binfile} executable {debug}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -40,7 +40,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -30,7 +30,7 @@ if { [prepare_for_testing relational.exp relational int-type.c {debug nowarnings
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -38,7 +38,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Test locating various things when stopped just inside main, after
|
||||
|
@ -35,7 +35,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
@ -95,11 +95,11 @@ proc test_set { args } {
|
||||
verbose "doing $arg $match"
|
||||
if [gdb_test "$arg" "$match" "$mess"] {
|
||||
fail "$message -- $match";
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -30,7 +30,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {$hp_cc_compiler} {
|
||||
|
@ -33,7 +33,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -37,7 +37,7 @@ if [is_remote target] {
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Library file.
|
||||
|
@ -23,7 +23,7 @@ if { [prepare_for_testing $testfile.exp $executable $srcfile] } {
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -36,7 +36,7 @@ set anychar_re {-?[0-9]{1,3} '(.|\\([0-7]{3}|[a-z]|\\|'))'}
|
||||
# compiler used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Compile a variant of structs.c using TYPES to specify the type of
|
||||
|
@ -21,7 +21,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# build the first test case
|
||||
|
@ -42,7 +42,7 @@ if { [prepare_for_testing volatile.exp volatile constvars.c] } {
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -55,23 +55,23 @@ proc initialize {} {
|
||||
global srcfile
|
||||
|
||||
if [gdb_test "break marker1" "Breakpoint 1 at $hex: file .*$srcfile, line $decimal.*" "set breakpoint at marker1" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
if [gdb_test "break marker2" "Breakpoint 2 at $hex: file .*$srcfile, line $decimal.*" "set breakpoint at marker2" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
if [gdb_test "info break" "1\[ \]*breakpoint.*marker1.*\r\n2\[ \]*breakpoint.*marker2.*" "info break in watchpoint.exp" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
gdb_test "watch ival3" ".*\[Ww\]atchpoint 3: ival3.*" "set watchpoint on ival3"
|
||||
|
||||
if [gdb_test "info watch" "3\[ \]*.*watchpoint.*ival3" "watchpoint found in watchpoint/breakpoint table" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
@ -80,7 +80,7 @@ proc initialize {} {
|
||||
# we get to the first marker function.
|
||||
|
||||
if [gdb_test "disable 3" "disable 3\[\r\n\]+" "disable watchpoint" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
@ -99,7 +99,7 @@ proc test_simple_watchpoint {} {
|
||||
# Ensure that the watchpoint is disabled when we startup.
|
||||
|
||||
if [gdb_test "disable 3" "^disable 3\[\r\n\]+" "disable watchpoint in test_simple_watchpoint" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
# Run until we get to the first marker function.
|
||||
@ -120,7 +120,7 @@ proc test_simple_watchpoint {} {
|
||||
# After reaching the marker function, enable the watchpoint.
|
||||
|
||||
if [gdb_test "enable 3" "^enable 3\[\r\n\]+" "enable watchpoint" ] {
|
||||
return ;
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@ -187,7 +187,7 @@ Continuing.*\[Ww\]atchpoint.*ival3.*Old value = -1.*New value = 0.*ival3 = count
|
||||
# Disable the watchpoint so we run at full speed until we exit.
|
||||
|
||||
if [gdb_test "disable 3" "^disable 3\[\r\n\]+" "watchpoint disabled" ] {
|
||||
return ;
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@ -212,7 +212,7 @@ proc test_disabling_watchpoints {} {
|
||||
# Ensure that the watchpoint is disabled when we startup.
|
||||
|
||||
if [gdb_test "disable 3" "^disable 3\[\r\n\]+" "disable watchpoint in test_disabling_watchpoints" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
@ -234,7 +234,7 @@ proc test_disabling_watchpoints {} {
|
||||
# After reaching the marker function, enable the watchpoint.
|
||||
|
||||
if [gdb_test "enable 3" "^enable 3\[\r\n\]+" "watchpoint enabled" ] {
|
||||
return ;
|
||||
return
|
||||
}
|
||||
|
||||
|
||||
@ -249,7 +249,7 @@ proc test_disabling_watchpoints {} {
|
||||
# Disable the watchpoint but leave breakpoints
|
||||
|
||||
if [gdb_test "disable 3" "^disable 3\[\r\n\]+" "disable watchpoint #2 in test_disabling_watchpoints" ] {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
|
||||
@ -371,7 +371,7 @@ proc test_watchpoint_triggered_in_syscall {} {
|
||||
}
|
||||
default {
|
||||
fail "continue to read";
|
||||
return ;
|
||||
return
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -36,7 +36,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable $exe
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Start with a fresh gdb.
|
||||
|
@ -30,7 +30,7 @@ if { [skip_cplus_tests] } { continue }
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if { [test_compiler_info gcc-*] } then { continue }
|
||||
|
@ -30,7 +30,7 @@ if { [skip_cplus_tests] } { continue }
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} {
|
||||
|
@ -26,7 +26,7 @@ if { [skip_cplus_tests] } { continue }
|
||||
standard_testfile cttiadd.cc cttiadd1.cc cttiadd2.cc cttiadd3.cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[prepare_for_testing $testfile.exp $testfile \
|
||||
|
@ -30,7 +30,7 @@ if { [skip_cplus_tests] } { continue }
|
||||
standard_testfile .cc namespace1.cc
|
||||
|
||||
if [get_compiler_info c++] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
set xfail_class_types 0
|
||||
|
@ -19,7 +19,7 @@
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} {
|
||||
|
@ -181,7 +181,7 @@ if { [skip_cplus_tests] } { continue }
|
||||
standard_testfile psmang1.cc psmang2.cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[prepare_for_testing $testfile.exp $testfile \
|
||||
|
@ -25,7 +25,7 @@ if {![dwarf2_support]} {
|
||||
|
||||
# The .c files use __attribute__.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
if !$gcc_compiled {
|
||||
verbose "Skipping DW_AT_ranges test."
|
||||
|
@ -31,7 +31,7 @@ set srcfile ${testfile}.c
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
|
||||
|
@ -29,7 +29,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
if { $gcc_compiled } then { continue }
|
||||
|
||||
|
@ -97,7 +97,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
# used to compile the test case.
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {$hp_aCC_compiler} {
|
||||
|
@ -29,7 +29,7 @@ set objfile ${objdir}/${subdir}/${testfile}.o
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if { $gcc_compiled } then { continue }
|
||||
|
@ -30,7 +30,7 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
if { $gcc_compiled } then { continue }
|
||||
|
||||
|
@ -42,7 +42,7 @@ if { [gdb_compile "${binfile}0.o ${binfile}1.o" ${binfile} executable {debug}]
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if { $gcc_compiled } then { continue }
|
||||
|
@ -39,7 +39,7 @@ if { [gdb_compile "${binfile1}.o ${binfile2}.o" ${binfile} executable {debug}]
|
||||
}
|
||||
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
if { $gcc_compiled } then { continue }
|
||||
|
||||
|
@ -18,7 +18,7 @@ set binfile ${objdir}/${subdir}/${testfile}
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# set up appropriate compile option to recognize long double
|
||||
|
@ -71,7 +71,7 @@ set libfile2 ${objdir}/${subdir}/${testfile}2.sl
|
||||
# Create and source the file that provides information about the compiler
|
||||
# used to compile the test case.
|
||||
if [get_compiler_info] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# set up appropriate compile option to recognize long double
|
||||
|
@ -30,7 +30,7 @@ if [mi_gdb_start] {
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable {debug c++}] != ""} {
|
||||
|
@ -26,7 +26,7 @@ if [mi_gdb_start] {
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable {debug c++}] != ""} {
|
||||
|
@ -26,7 +26,7 @@ set opts {debug}
|
||||
|
||||
if [build_executable $testfile.exp $testfile $srcfile $opts] {
|
||||
untested mi-logging.exp
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[mi_run_to_main] < 0} {
|
||||
|
@ -26,7 +26,7 @@ if [mi_gdb_start] {
|
||||
standard_testfile .cc
|
||||
|
||||
if [get_compiler_info "c++"] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if {[gdb_compile $srcdir/$subdir/$srcfile $binfile executable {debug c++}] != ""} {
|
||||
|
@ -27,7 +27,7 @@ standard_testfile .cc
|
||||
set opts {debug c++}
|
||||
|
||||
if [build_executable $testfile.exp $testfile $srcfile $opts] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
mi_gdb_load ${binfile}
|
||||
|
@ -21,7 +21,7 @@ load_lib gdb-python.exp
|
||||
standard_testfile
|
||||
|
||||
if [get_compiler_info c++] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Build inferior to language specification.
|
||||
|
@ -59,7 +59,7 @@ gdb_test_multiple "help gcore" "help gcore" {
|
||||
-re "Undefined command: .gcore.*$gdb_prompt $" {
|
||||
# gcore command not supported -- nothing to test here.
|
||||
unsupported "gdb does not support gcore on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
-re "Save a core file .*$gdb_prompt $" {
|
||||
pass "help gcore"
|
||||
@ -77,7 +77,7 @@ gdb_test_multiple "info threads" "threads are supported" {
|
||||
}
|
||||
-re "${nl}$gdb_prompt $" {
|
||||
unsupported "gdb does not support threads on this target"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
}
|
||||
|
||||
@ -137,12 +137,12 @@ proc load_core { corefile } {
|
||||
-re " is not a core dump:.*\r\n$gdb_prompt $" {
|
||||
fail "re-load generated corefile (bad file format)"
|
||||
# No use proceeding from here.
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re ": No such file or directory.*\r\n$gdb_prompt $" {
|
||||
fail "re-load generated corefile (file not found)"
|
||||
# No use proceeding from here.
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
-re "Couldn't find .* registers in core file.*\r\n$gdb_prompt $" {
|
||||
fail "re-load generated corefile (incomplete note section)"
|
||||
|
@ -79,7 +79,7 @@ proc all_threads_running {} {
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
# Check that we stopped when we actually expected to stop, by
|
||||
@ -139,7 +139,7 @@ proc test_startup {} {
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
# Extract the thread id number of main thread from "info threads" output.
|
||||
@ -209,7 +209,7 @@ proc check_control_c {} {
|
||||
}
|
||||
timeout {
|
||||
fail "$description (timeout)"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
}
|
||||
gdb_test "bt" ".*"
|
||||
@ -218,7 +218,7 @@ proc check_control_c {} {
|
||||
if [all_threads_running] then {
|
||||
pass "All threads running after continuing from ^C stop"
|
||||
}
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
proc check_backtraces {} {
|
||||
|
@ -24,7 +24,7 @@ if { [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executa
|
||||
clean_restart $executable
|
||||
|
||||
if ![runto_main] {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# `noprint' would not test the full logic of GDB.
|
||||
|
@ -43,7 +43,7 @@ clean_restart ${binfile}
|
||||
|
||||
if ![runto_main] then {
|
||||
fail "Can't run to main"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
|
||||
|
@ -35,7 +35,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
|
||||
}
|
||||
|
||||
@ -105,7 +105,7 @@ all tests in this module will fail."
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -55,7 +55,7 @@ if ![runto_main] {
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
if [is_amd64_regs_target] {
|
||||
|
@ -41,14 +41,14 @@ proc run_trace_experiment { pass } {
|
||||
|
||||
if [gdb_test "tstart" \
|
||||
"\[\r\n\]*" \
|
||||
"start trace experiment, pass $pass"] then { return 1; }
|
||||
"start trace experiment, pass $pass"] then { return 1 }
|
||||
if [gdb_test "continue" \
|
||||
"Continuing.*Breakpoint \[0-9\]+, end.*" \
|
||||
"run to end, pass $pass"] then { return 1; }
|
||||
"run to end, pass $pass"] then { return 1 }
|
||||
if [gdb_test "tstop" \
|
||||
"\[\r\n\]*" \
|
||||
"stop trace experiment, pass $pass"] then { return 1; }
|
||||
return 0;
|
||||
"stop trace experiment, pass $pass"] then { return 1 }
|
||||
return 0
|
||||
}
|
||||
|
||||
# return 0 for success, 1 for failure
|
||||
@ -56,30 +56,30 @@ proc set_a_tracepoint { func } {
|
||||
if [gdb_test "trace $func" \
|
||||
"Tracepoint \[0-9\]+ at .*" \
|
||||
"set tracepoint at $func"] then {
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
if [gdb_trace_setactions "set actions for $func" \
|
||||
"" \
|
||||
"collect testload" "^$"] then {
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
# return 0 for success, 1 for failure
|
||||
proc setup_tracepoints { } {
|
||||
gdb_delete_tracepoints
|
||||
if [set_a_tracepoint func0] then { return 1; }
|
||||
if [set_a_tracepoint func1] then { return 1; }
|
||||
if [set_a_tracepoint func2] then { return 1; }
|
||||
if [set_a_tracepoint func3] then { return 1; }
|
||||
if [set_a_tracepoint func4] then { return 1; }
|
||||
if [set_a_tracepoint func5] then { return 1; }
|
||||
if [set_a_tracepoint func6] then { return 1; }
|
||||
if [set_a_tracepoint func7] then { return 1; }
|
||||
if [set_a_tracepoint func8] then { return 1; }
|
||||
if [set_a_tracepoint func9] then { return 1; }
|
||||
return 0;
|
||||
if [set_a_tracepoint func0] then { return 1 }
|
||||
if [set_a_tracepoint func1] then { return 1 }
|
||||
if [set_a_tracepoint func2] then { return 1 }
|
||||
if [set_a_tracepoint func3] then { return 1 }
|
||||
if [set_a_tracepoint func4] then { return 1 }
|
||||
if [set_a_tracepoint func5] then { return 1 }
|
||||
if [set_a_tracepoint func6] then { return 1 }
|
||||
if [set_a_tracepoint func7] then { return 1 }
|
||||
if [set_a_tracepoint func8] then { return 1 }
|
||||
if [set_a_tracepoint func9] then { return 1 }
|
||||
return 0
|
||||
}
|
||||
|
||||
# return 0 for success, 1 for failure
|
||||
@ -98,7 +98,7 @@ proc trace_buffer_normal { } {
|
||||
}
|
||||
if { !$ok } {
|
||||
unsupported $test
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
set ok 0
|
||||
@ -113,62 +113,62 @@ proc trace_buffer_normal { } {
|
||||
}
|
||||
if { !$ok } {
|
||||
unsupported $test
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
# return 0 for success, 1 for failure
|
||||
proc gdb_trace_circular_tests { } {
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
if [trace_buffer_normal] then { return 1; }
|
||||
if [trace_buffer_normal] then { return 1 }
|
||||
|
||||
gdb_test "break begin" ".*" ""
|
||||
gdb_test "break end" ".*" ""
|
||||
gdb_test "tstop" ".*" ""
|
||||
gdb_test "tfind none" ".*" ""
|
||||
|
||||
if [setup_tracepoints] then { return 1; }
|
||||
if [setup_tracepoints] then { return 1 }
|
||||
|
||||
# First, run the trace experiment with default attributes:
|
||||
# Make sure it behaves as expected.
|
||||
if [run_trace_experiment 1] then { return 1; }
|
||||
if [run_trace_experiment 1] then { return 1 }
|
||||
if [gdb_test "tfind start" \
|
||||
"#0 func0 .*" \
|
||||
"find frame zero, pass 1"] then { return 1; }
|
||||
"find frame zero, pass 1"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind 9" \
|
||||
"#0 func9 .*" \
|
||||
"find frame nine, pass 1"] then { return 1; }
|
||||
"find frame nine, pass 1"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind none" \
|
||||
"#0 end .*" \
|
||||
"quit trace debugging, pass 1"] then { return 1; }
|
||||
"quit trace debugging, pass 1"] then { return 1 }
|
||||
|
||||
# Then, shrink the trace buffer so that it will not hold
|
||||
# all ten trace frames. Verify that frame zero is still
|
||||
# collected, but frame nine is not.
|
||||
if [gdb_test "maint packet QTBuffer:size:200" \
|
||||
"received: .OK." "shrink the target trace buffer"] then {
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
if [run_trace_experiment 2] then { return 1; }
|
||||
if [run_trace_experiment 2] then { return 1 }
|
||||
if [gdb_test "tfind start" \
|
||||
"#0 func0 .*" \
|
||||
"find frame zero, pass 2"] then { return 1; }
|
||||
"find frame zero, pass 2"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind 9" \
|
||||
".* failed to find .*" \
|
||||
"fail to find frame nine, pass 2"] then { return 1; }
|
||||
"fail to find frame nine, pass 2"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind none" \
|
||||
"#0 end .*" \
|
||||
"quit trace debugging, pass 2"] then { return 1; }
|
||||
"quit trace debugging, pass 2"] then { return 1 }
|
||||
|
||||
# Finally, make the buffer circular. Now when it runs out of
|
||||
# space, it should wrap around and overwrite the earliest frames.
|
||||
@ -178,22 +178,22 @@ proc gdb_trace_circular_tests { } {
|
||||
# 3) frame nine will be available (unlike on pass 2).
|
||||
if [gdb_test "maint packet QTBuffer:circular:1" \
|
||||
"received: .OK." "make the target trace buffer circular"] then {
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
if [run_trace_experiment 3] then { return 1; }
|
||||
if [run_trace_experiment 3] then { return 1 }
|
||||
if [gdb_test "tfind start" \
|
||||
"#0 func\[1-9\] .*" \
|
||||
"first frame is NOT frame zero, pass 3"] then { return 1; }
|
||||
"first frame is NOT frame zero, pass 3"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind 9" \
|
||||
"#0 func9 .*" \
|
||||
"find frame nine, pass 3"] then { return 1; }
|
||||
"find frame nine, pass 3"] then { return 1 }
|
||||
|
||||
if [gdb_test "tfind none" \
|
||||
"#0 end .*" \
|
||||
"quit trace debugging, pass 3"] then { return 1; }
|
||||
"quit trace debugging, pass 3"] then { return 1 }
|
||||
|
||||
return 0;
|
||||
return 0
|
||||
}
|
||||
|
||||
gdb_test_no_output "set circular-trace-buffer on" \
|
||||
|
@ -776,7 +776,7 @@ runto_main
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
# Body of test encased in a proc so we can return prematurely.
|
||||
|
@ -40,7 +40,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Disconnect in tracing.
|
||||
|
@ -99,7 +99,7 @@ gdb_test "" "Breakpoint ${decimal}, main.*"
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
gdb_test "break end" "Breakpoint \[0-9\] at .*"
|
||||
|
@ -94,7 +94,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -250,7 +250,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -70,7 +70,7 @@ proc test_create_delete_modify_tsv { } {with_test_prefix "create delete modify"
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
gdb_exit
|
||||
if [mi_gdb_start] {
|
||||
@ -235,7 +235,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
gdb_exit
|
||||
|
@ -35,7 +35,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
|
||||
}
|
||||
|
||||
|
@ -34,7 +34,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
|
||||
}
|
||||
|
||||
|
@ -53,7 +53,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Verify pending tracepoint is resolved to running to main.
|
||||
|
@ -35,7 +35,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
|
||||
}
|
||||
|
||||
@ -110,7 +110,7 @@ all tests in this module will fail."
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
#
|
||||
|
@ -117,7 +117,7 @@ if { ![runto_main] } {
|
||||
|
||||
if { ![gdb_target_supports_trace] } {
|
||||
# Test cannot run on this target.
|
||||
return 1;
|
||||
return 1
|
||||
}
|
||||
|
||||
gdb_collect_probe_arg "probe args without semaphore" "-probe-stap user" "23"
|
||||
|
@ -32,7 +32,7 @@ if ![runto_main] {
|
||||
|
||||
if ![gdb_target_supports_trace] {
|
||||
unsupported "target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# Verify that the sequence of commands "tstart tstop tstart" works well.
|
||||
|
@ -242,7 +242,7 @@ with_test_prefix "trace_same_addr $type" {
|
||||
if [string equal $type "ftrace"] {
|
||||
# The instruction may be not long enough to set a fast
|
||||
# tracepoint. Skip the rest of this test.
|
||||
return -1;
|
||||
return -1
|
||||
} else {
|
||||
fail $test
|
||||
}
|
||||
@ -257,7 +257,7 @@ with_test_prefix "trace_same_addr $type" {
|
||||
if [string equal $type "ftrace"] {
|
||||
# The instruction may be not long enough to set a fast
|
||||
# tracepoint. Skip the rest of this test.
|
||||
return -1;
|
||||
return -1
|
||||
} else {
|
||||
fail $test
|
||||
}
|
||||
@ -365,7 +365,7 @@ if { ![gdb_target_supports_trace] } then {
|
||||
# the socket file.
|
||||
gdb_test "detach" "Detaching .*, process .*"
|
||||
unsupported "Current target does not support trace"
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
strace_probe_marker
|
||||
|
@ -64,7 +64,7 @@ gdb_reinitialize_dir $srcdir/$subdir
|
||||
|
||||
if { ![gdb_target_supports_trace] } then {
|
||||
unsupported "Current target does not support trace"
|
||||
return 1;
|
||||
return 1
|
||||
|
||||
}
|
||||
|
||||
@ -121,7 +121,7 @@ gdb_test_multiple "tstart" "6.1: tstart" {
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# test tstatus (when trace on)
|
||||
@ -152,7 +152,7 @@ gdb_test_multiple "tstop" "7.1: tstop" {
|
||||
}
|
||||
|
||||
if { $return_me == 1 } then {
|
||||
return -1;
|
||||
return -1
|
||||
}
|
||||
|
||||
# test tstatus (when trace off)
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user