mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-23 19:50:13 +08:00
gdb/doc/
2012-02-13 Pedro Alves <palves@redhat.com> * gdb.texinfo (MIPS boards): Refer to mips-elf instead of mips-idt-ecoff. gdb/testsuite/ 2012-02-13 Pedro Alves <palves@redhat.com> * config/mips-idt.exp: Delete. * gdb.base/a2-run.exp: Remove mips-idt xfails. * gdb.base/bitfields.exp: Remove mips-idt restarts. * gdb.base/break.exp: Remove mips-idt references. * gdb.base/chng-syms.exp: Ditto. * gdb.base/default.exp: Ditto. * gdb.base/funcargs.exp (funcargs_reload): Delete. (top level): Don't call it. * gdb.base/opaque.exp: Remove mips-idt restarts. * gdb.base/ptype.exp: Remove mips-idt xfails. * gdb.base/scope.exp: Remove mips-idt restarts. * gdb.base/sepdebug.exp: Remove mips-idt references. * gdb.base/watchpoint.exp (maybe_clean_restart) (maybe_reinitialize): Delete. (test_disabling_watchpoints, test_disabling_watchpoints) (test_watchpoint_triggered_in_syscall) (test_watchpoint_and_breakpoint, test_inaccessible_watchpoint): Don't call them.
This commit is contained in:
@ -1,3 +1,8 @@
|
|||||||
|
2012-02-13 Pedro Alves <palves@redhat.com>
|
||||||
|
|
||||||
|
* gdb.texinfo (MIPS boards): Refer to mips-elf instead of
|
||||||
|
mips-idt-ecoff.
|
||||||
|
|
||||||
2012-02-09 Yao Qi <yao@codesourcery.com>
|
2012-02-09 Yao Qi <yao@codesourcery.com>
|
||||||
|
|
||||||
* gdb.texinfo (Symbols In Python): Add missing `@end defvar'.
|
* gdb.texinfo (Symbols In Python): Add missing `@end defvar'.
|
||||||
|
@ -19190,7 +19190,7 @@ Show MicroBlaze-specific debugging level.
|
|||||||
@cindex MIPS boards
|
@cindex MIPS boards
|
||||||
@value{GDBN} can use the MIPS remote debugging protocol to talk to a
|
@value{GDBN} can use the MIPS remote debugging protocol to talk to a
|
||||||
MIPS board attached to a serial line. This is available when
|
MIPS board attached to a serial line. This is available when
|
||||||
you configure @value{GDBN} with @samp{--target=mips-idt-ecoff}.
|
you configure @value{GDBN} with @samp{--target=mips-elf}.
|
||||||
|
|
||||||
@need 1000
|
@need 1000
|
||||||
Use these @value{GDBN} commands to specify the connection to your target board:
|
Use these @value{GDBN} commands to specify the connection to your target board:
|
||||||
@ -19295,7 +19295,7 @@ waiting for an acknowledgment of a packet with the @code{set
|
|||||||
retransmit-timeout @var{seconds}} command. The default is 3 seconds.
|
retransmit-timeout @var{seconds}} command. The default is 3 seconds.
|
||||||
You can inspect both values with @code{show timeout} and @code{show
|
You can inspect both values with @code{show timeout} and @code{show
|
||||||
retransmit-timeout}. (These commands are @emph{only} available when
|
retransmit-timeout}. (These commands are @emph{only} available when
|
||||||
@value{GDBN} is configured for @samp{--target=mips-idt-ecoff}.)
|
@value{GDBN} is configured for @samp{--target=mips-elf}.)
|
||||||
|
|
||||||
The timeout set by @code{set timeout} does not apply when @value{GDBN}
|
The timeout set by @code{set timeout} does not apply when @value{GDBN}
|
||||||
is waiting for your program to stop. In that case, @value{GDBN} waits
|
is waiting for your program to stop. In that case, @value{GDBN} waits
|
||||||
|
@ -1,3 +1,24 @@
|
|||||||
|
2012-02-13 Pedro Alves <palves@redhat.com>
|
||||||
|
|
||||||
|
* config/mips-idt.exp: Delete.
|
||||||
|
* gdb.base/a2-run.exp: Remove mips-idt xfails.
|
||||||
|
* gdb.base/bitfields.exp: Remove mips-idt restarts.
|
||||||
|
* gdb.base/break.exp: Remove mips-idt references.
|
||||||
|
* gdb.base/chng-syms.exp: Ditto.
|
||||||
|
* gdb.base/default.exp: Ditto.
|
||||||
|
* gdb.base/funcargs.exp (funcargs_reload): Delete.
|
||||||
|
(top level): Don't call it.
|
||||||
|
* gdb.base/opaque.exp: Remove mips-idt restarts.
|
||||||
|
* gdb.base/ptype.exp: Remove mips-idt xfails.
|
||||||
|
* gdb.base/scope.exp: Remove mips-idt restarts.
|
||||||
|
* gdb.base/sepdebug.exp: Remove mips-idt references.
|
||||||
|
* gdb.base/watchpoint.exp (maybe_clean_restart)
|
||||||
|
(maybe_reinitialize): Delete.
|
||||||
|
(test_disabling_watchpoints, test_disabling_watchpoints)
|
||||||
|
(test_watchpoint_triggered_in_syscall)
|
||||||
|
(test_watchpoint_and_breakpoint, test_inaccessible_watchpoint):
|
||||||
|
Don't call them.
|
||||||
|
|
||||||
2012-02-12 Jan Kratochvil <jan.kratochvil@redhat.com>
|
2012-02-12 Jan Kratochvil <jan.kratochvil@redhat.com>
|
||||||
|
|
||||||
* gdb.server/server-exec-info.exp: New file.
|
* gdb.server/server-exec-info.exp: New file.
|
||||||
|
@ -107,7 +107,7 @@ if [istarget "*-*-vxworks*"] then {
|
|||||||
verbose "Timeout is now $timeout seconds" 2
|
verbose "Timeout is now $timeout seconds" 2
|
||||||
gdb_expect -re "$gdb_prompt $" {}
|
gdb_expect -re "$gdb_prompt $" {}
|
||||||
} else {
|
} else {
|
||||||
setup_xfail "mips-idt-*" "arm-*-coff"
|
setup_xfail "arm-*-coff"
|
||||||
gdb_run_cmd 5
|
gdb_run_cmd 5
|
||||||
gdb_expect {
|
gdb_expect {
|
||||||
-re ".*120.*$gdb_prompt $"\
|
-re ".*120.*$gdb_prompt $"\
|
||||||
@ -118,7 +118,6 @@ if [istarget "*-*-vxworks*"] then {
|
|||||||
}
|
}
|
||||||
|
|
||||||
# Run again with same arguments.
|
# Run again with same arguments.
|
||||||
setup_xfail "mips-idt-*"
|
|
||||||
gdb_run_cmd
|
gdb_run_cmd
|
||||||
|
|
||||||
if [istarget "*-*-vxworks*"] then {
|
if [istarget "*-*-vxworks*"] then {
|
||||||
@ -185,7 +184,6 @@ if [istarget "*-*-vxworks*"] then {
|
|||||||
}
|
}
|
||||||
|
|
||||||
# Use "set args" command to specify an argument and run again.
|
# Use "set args" command to specify an argument and run again.
|
||||||
setup_xfail "mips-idt-*"
|
|
||||||
if [istarget "*-*-vxworks*"] then {
|
if [istarget "*-*-vxworks*"] then {
|
||||||
gdb_test_no_output "set args vxmain \"6\""
|
gdb_test_no_output "set args vxmain \"6\""
|
||||||
} else {
|
} else {
|
||||||
|
@ -253,29 +253,7 @@ gdb_load ${binfile}
|
|||||||
gdb_test_no_output "set print sevenbit-strings"
|
gdb_test_no_output "set print sevenbit-strings"
|
||||||
|
|
||||||
bitfield_uniqueness
|
bitfield_uniqueness
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
bitfield_containment
|
bitfield_containment
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
bitfield_unsignedness
|
bitfield_unsignedness
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
bitfield_signedness
|
bitfield_signedness
|
||||||
|
|
||||||
bitfield_at_offset
|
bitfield_at_offset
|
||||||
|
@ -355,9 +355,6 @@ gdb_test "disable \$1foo" \
|
|||||||
# handle arguments.
|
# handle arguments.
|
||||||
# Huh? There doesn't *appear* to be anything that passes arguments
|
# Huh? There doesn't *appear* to be anything that passes arguments
|
||||||
# below.
|
# below.
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# run until the breakpoint at main is hit. For non-stubs-using targets.
|
# run until the breakpoint at main is hit. For non-stubs-using targets.
|
||||||
|
@ -18,13 +18,6 @@
|
|||||||
# Test that GDB cleans up properly after errors that result when a
|
# Test that GDB cleans up properly after errors that result when a
|
||||||
# breakpoint is reset.
|
# breakpoint is reset.
|
||||||
|
|
||||||
|
|
||||||
# IDT/SIM apparently doesn't have enough file descriptors to allow the
|
|
||||||
# problem checked by this test to occur.
|
|
||||||
if [istarget "mips-idt-*"] {
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
set testfile "chng-syms"
|
set testfile "chng-syms"
|
||||||
set srcfile ${testfile}.c
|
set srcfile ${testfile}.c
|
||||||
set binfile ${objdir}/${subdir}/${testfile}
|
set binfile ${objdir}/${subdir}/${testfile}
|
||||||
|
@ -39,7 +39,6 @@ gdb_test "append binary memory" "Missing filename\."
|
|||||||
gdb_test "append binary value" "Missing filename\."
|
gdb_test "append binary value" "Missing filename\."
|
||||||
|
|
||||||
if !$use_gdb_stub {
|
if !$use_gdb_stub {
|
||||||
setup_xfail "mips-idt-*"
|
|
||||||
gdb_test_multiple "attach" "attach" {
|
gdb_test_multiple "attach" "attach" {
|
||||||
-re "Argument required .(process-id|program) to attach.*$gdb_prompt $"\
|
-re "Argument required .(process-id|program) to attach.*$gdb_prompt $"\
|
||||||
{ pass "attach" }
|
{ pass "attach" }
|
||||||
@ -61,7 +60,6 @@ if !$use_gdb_stub {
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
setup_xfail "mips-idt-*"
|
|
||||||
gdb_test "backtrace" "No stack."
|
gdb_test "backtrace" "No stack."
|
||||||
|
|
||||||
# ba and bac are no longer unique command prefixes. So these tests
|
# ba and bac are no longer unique command prefixes. So these tests
|
||||||
@ -69,18 +67,14 @@ if !$use_gdb_stub {
|
|||||||
# GDB needs to be fixed to map unique alias here for ba bac.
|
# GDB needs to be fixed to map unique alias here for ba bac.
|
||||||
#
|
#
|
||||||
foreach i "bt ba bac" {
|
foreach i "bt ba bac" {
|
||||||
setup_xfail "mips-idt-*"
|
|
||||||
gdb_test $i "No stack." "backtrace \"$i\" abbreviation"
|
gdb_test $i "No stack." "backtrace \"$i\" abbreviation"
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
warning "Skipping backtrace and break tests because of GDB stub."
|
warning "Skipping backtrace and break tests because of GDB stub."
|
||||||
}
|
}
|
||||||
|
|
||||||
# This works on the MIPS IDT board, but confuses future tests.
|
gdb_test "continue" "The program is not being run." "continue"
|
||||||
if ![istarget "mips-idt-*"] then {
|
gdb_test "c" "The program is not being run." "continue \"c\" abbreviation"
|
||||||
gdb_test "continue" "The program is not being run." "continue"
|
|
||||||
gdb_test "c" "The program is not being run." "continue \"c\" abbreviation"
|
|
||||||
}
|
|
||||||
|
|
||||||
#test call
|
#test call
|
||||||
gdb_test "call" "The history is empty..*" "call"
|
gdb_test "call" "The history is empty..*" "call"
|
||||||
|
@ -965,21 +965,6 @@ proc recursive_structs_by_value {} {
|
|||||||
gdb_stop_suppressing_tests;
|
gdb_stop_suppressing_tests;
|
||||||
}
|
}
|
||||||
|
|
||||||
proc funcargs_reload { } {
|
|
||||||
global objdir
|
|
||||||
global subdir
|
|
||||||
global binfile
|
|
||||||
global srcdir
|
|
||||||
|
|
||||||
if [istarget "mips-idt-*"] {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# Test for accessing local stack variables in functions which call alloca
|
# Test for accessing local stack variables in functions which call alloca
|
||||||
#
|
#
|
||||||
@ -1234,46 +1219,31 @@ gdb_test_multiple "show endian" "getting target endian" {
|
|||||||
gdb_test_no_output "set print frame-arguments all"
|
gdb_test_no_output "set print frame-arguments all"
|
||||||
|
|
||||||
integral_args
|
integral_args
|
||||||
funcargs_reload
|
|
||||||
unsigned_integral_args
|
unsigned_integral_args
|
||||||
funcargs_reload
|
|
||||||
if {![target_info exists gdb,skip_float_tests]} {
|
if {![target_info exists gdb,skip_float_tests]} {
|
||||||
float_and_integral_args
|
float_and_integral_args
|
||||||
}
|
}
|
||||||
|
|
||||||
# Test _Complex type here if supported.
|
# Test _Complex type here if supported.
|
||||||
if [support_complex_tests] {
|
if [support_complex_tests] {
|
||||||
funcargs_reload
|
|
||||||
complex_args
|
complex_args
|
||||||
|
|
||||||
funcargs_reload
|
|
||||||
complex_integral_args
|
complex_integral_args
|
||||||
|
|
||||||
if {![target_info exists gdb,skip_float_tests]} {
|
if {![target_info exists gdb,skip_float_tests]} {
|
||||||
funcargs_reload
|
|
||||||
complex_float_integral_args
|
complex_float_integral_args
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
funcargs_reload
|
|
||||||
pointer_args
|
pointer_args
|
||||||
funcargs_reload
|
|
||||||
structs_by_reference
|
structs_by_reference
|
||||||
funcargs_reload
|
|
||||||
structs_by_value
|
structs_by_value
|
||||||
funcargs_reload
|
|
||||||
discard_and_shuffle
|
discard_and_shuffle
|
||||||
funcargs_reload
|
|
||||||
shuffle_round_robin
|
shuffle_round_robin
|
||||||
funcargs_reload
|
|
||||||
recursive_structs_by_value
|
recursive_structs_by_value
|
||||||
funcargs_reload
|
|
||||||
localvars_after_alloca
|
localvars_after_alloca
|
||||||
funcargs_reload
|
|
||||||
call_after_alloca
|
call_after_alloca
|
||||||
funcargs_reload
|
|
||||||
localvars_in_indirect_call
|
localvars_in_indirect_call
|
||||||
funcargs_reload
|
|
||||||
test_stepping_over_trampolines
|
test_stepping_over_trampolines
|
||||||
|
|
||||||
set timeout $prev_timeout
|
set timeout $prev_timeout
|
||||||
|
@ -134,11 +134,6 @@ gdb_test "ptype struct foo" \
|
|||||||
# have learned during the static tests.
|
# have learned during the static tests.
|
||||||
#
|
#
|
||||||
|
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
}
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
gdb_reinitialize_dir $srcdir/$subdir
|
||||||
gdb_load ${binfile}
|
gdb_load ${binfile}
|
||||||
|
|
||||||
@ -189,11 +184,6 @@ gdb_test "ptype struct foo" \
|
|||||||
# Now reload the symbols again so we forget about anything we might
|
# Now reload the symbols again so we forget about anything we might
|
||||||
# have learned reading the symbols during the previous tests.
|
# have learned reading the symbols during the previous tests.
|
||||||
|
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
}
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
gdb_reinitialize_dir $srcdir/$subdir
|
||||||
gdb_load ${binfile}
|
gdb_load ${binfile}
|
||||||
|
|
||||||
|
@ -169,7 +169,7 @@ gdb_test "ptype red" "type = enum \{red, green, blue\}.*" "ptype unnamed enumera
|
|||||||
# acts like whatis for basic types. If it is thought to be necessary to
|
# acts like whatis for basic types. If it is thought to be necessary to
|
||||||
# test both whatis and ptype for all the types, the tests should be
|
# test both whatis and ptype for all the types, the tests should be
|
||||||
# merged into whatis.exp, or else maintenance will be a royal pain -kingdon
|
# merged into whatis.exp, or else maintenance will be a royal pain -kingdon
|
||||||
#setup_xfail "mips-idt-*" "mips-sgi-*"
|
#setup_xfail "mips-sgi-*"
|
||||||
#send "ptype v_char\n"
|
#send "ptype v_char\n"
|
||||||
#gdb_expect {
|
#gdb_expect {
|
||||||
# -re "type = char.*$gdb_prompt $" { pass "ptype char" }
|
# -re "type = char.*$gdb_prompt $" { pass "ptype char" }
|
||||||
@ -273,7 +273,7 @@ gdb_test "ptype v_int" "type = int.*" "ptype int"
|
|||||||
#
|
#
|
||||||
# test ptype command with arrays
|
# test ptype command with arrays
|
||||||
#
|
#
|
||||||
#setup_xfail "mips-idt-*" "mips-sgi-*"
|
#setup_xfail "mips-sgi-*"
|
||||||
#send "ptype v_char_array\n"
|
#send "ptype v_char_array\n"
|
||||||
#gdb_expect {
|
#gdb_expect {
|
||||||
# -re "type = char .2..*$gdb_prompt $" { pass "ptype char array" }
|
# -re "type = char .2..*$gdb_prompt $" { pass "ptype char array" }
|
||||||
@ -374,7 +374,7 @@ gdb_test "ptype t_char_array" "type = (|unsigned )char \\\[0?\\\]"
|
|||||||
##
|
##
|
||||||
## test ptype command with pointers
|
## test ptype command with pointers
|
||||||
##
|
##
|
||||||
#setup_xfail "mips-idt-*" "mips-sgi-*"
|
#setup_xfail "mips-sgi-*"
|
||||||
#send "ptype v_char_pointer\n"
|
#send "ptype v_char_pointer\n"
|
||||||
#gdb_expect {
|
#gdb_expect {
|
||||||
# -re "type = char \*.*$gdb_prompt $" { pass "ptype char pointer" }
|
# -re "type = char \*.*$gdb_prompt $" { pass "ptype char pointer" }
|
||||||
|
@ -552,37 +552,9 @@ gdb_test "print 'scope0.c'::filelocal" "= 1" \
|
|||||||
"print 'scope0.c'::filelocal before run"
|
"print 'scope0.c'::filelocal before run"
|
||||||
|
|
||||||
if [runto_main] then { test_at_main }
|
if [runto_main] then { test_at_main }
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
if [runto foo] then { test_at_foo }
|
if [runto foo] then { test_at_foo }
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
if [runto bar] then { test_at_bar }
|
if [runto bar] then { test_at_bar }
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
if [runto localscopes] then { test_at_localscopes }
|
if [runto localscopes] then { test_at_localscopes }
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
# Restart because IDT/SIM runs out of file descriptors.
|
|
||||||
gdb_exit
|
|
||||||
gdb_start
|
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
|
||||||
gdb_load ${binfile}
|
|
||||||
}
|
|
||||||
if [runto autovars] then { test_at_autovars }
|
if [runto autovars] then { test_at_autovars }
|
||||||
|
|
||||||
if [istarget "*-*-vxworks*"] {
|
if [istarget "*-*-vxworks*"] {
|
||||||
|
@ -175,9 +175,6 @@ gdb_test "info break" \
|
|||||||
# handle arguments.
|
# handle arguments.
|
||||||
# Huh? There doesn't *appear* to be anything that passes arguments
|
# Huh? There doesn't *appear* to be anything that passes arguments
|
||||||
# below.
|
# below.
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# run until the breakpoint at main is hit. For non-stubs-using targets.
|
# run until the breakpoint at main is hit. For non-stubs-using targets.
|
||||||
|
@ -92,40 +92,6 @@ proc initialize {} {
|
|||||||
return 1
|
return 1
|
||||||
}
|
}
|
||||||
|
|
||||||
proc maybe_clean_restart { } {
|
|
||||||
# The IDT/sim monitor only has 8 (!) open files, of which it uses
|
|
||||||
# 4 (!). So we have to make sure one program exits before
|
|
||||||
# starting another one.
|
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
global testfile
|
|
||||||
global no_hw
|
|
||||||
|
|
||||||
clean_restart $testfile
|
|
||||||
|
|
||||||
if {$no_hw} {
|
|
||||||
gdb_test_no_output "set can-use-hw-watchpoints 0" ""
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
proc maybe_reinitialize { } {
|
|
||||||
# The IDT/sim monitor only has 8 (!) open files, of which it uses
|
|
||||||
# 4 (!). So we have to make sure one program exits before
|
|
||||||
# starting another one.
|
|
||||||
if [istarget "mips-idt-*"] then {
|
|
||||||
global testfile
|
|
||||||
global no_hw
|
|
||||||
|
|
||||||
clean_restart $testfile
|
|
||||||
|
|
||||||
if {$no_hw} {
|
|
||||||
gdb_test_no_output "set can-use-hw-watchpoints 0" ""
|
|
||||||
}
|
|
||||||
|
|
||||||
initialize
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# Test simple watchpoint.
|
# Test simple watchpoint.
|
||||||
#
|
#
|
||||||
@ -246,8 +212,6 @@ proc test_disabling_watchpoints {} {
|
|||||||
global decimal
|
global decimal
|
||||||
global hex
|
global hex
|
||||||
|
|
||||||
maybe_reinitialize
|
|
||||||
|
|
||||||
gdb_test "info watch" "\[0-9]+\[ \]*.*watchpoint.*ival3.*" "watchpoints found in watchpoint/breakpoint table"
|
gdb_test "info watch" "\[0-9]+\[ \]*.*watchpoint.*ival3.*" "watchpoints found in watchpoint/breakpoint table"
|
||||||
|
|
||||||
# Ensure that the watchpoint is disabled when we startup.
|
# Ensure that the watchpoint is disabled when we startup.
|
||||||
@ -312,8 +276,6 @@ proc test_disabling_watchpoints {} {
|
|||||||
proc test_stepping {} {
|
proc test_stepping {} {
|
||||||
global gdb_prompt
|
global gdb_prompt
|
||||||
|
|
||||||
maybe_clean_restart
|
|
||||||
|
|
||||||
if [runto marker1] then {
|
if [runto marker1] then {
|
||||||
gdb_test "watch ival2" ".*\[Ww\]atchpoint \[0-9\]*: ival2"
|
gdb_test "watch ival2" ".*\[Ww\]atchpoint \[0-9\]*: ival2"
|
||||||
|
|
||||||
@ -473,8 +435,6 @@ proc test_watchpoint_triggered_in_syscall {} {
|
|||||||
proc test_complex_watchpoint {} {
|
proc test_complex_watchpoint {} {
|
||||||
global gdb_prompt
|
global gdb_prompt
|
||||||
|
|
||||||
maybe_clean_restart
|
|
||||||
|
|
||||||
if [runto marker4] then {
|
if [runto marker4] then {
|
||||||
gdb_test "watch ptr1->val" ".*\[Ww\]atchpoint \[0-9\]*: ptr1->val"
|
gdb_test "watch ptr1->val" ".*\[Ww\]atchpoint \[0-9\]*: ptr1->val"
|
||||||
gdb_test "break marker5" ".*Breakpoint.*"
|
gdb_test "break marker5" ".*Breakpoint.*"
|
||||||
@ -577,8 +537,6 @@ proc test_complex_watchpoint {} {
|
|||||||
proc test_watchpoint_and_breakpoint {} {
|
proc test_watchpoint_and_breakpoint {} {
|
||||||
global gdb_prompt
|
global gdb_prompt
|
||||||
|
|
||||||
maybe_clean_restart
|
|
||||||
|
|
||||||
# This is a test for PR gdb/38, which involves setting a
|
# This is a test for PR gdb/38, which involves setting a
|
||||||
# watchpoint right after you've reached a breakpoint.
|
# watchpoint right after you've reached a breakpoint.
|
||||||
|
|
||||||
@ -708,8 +666,6 @@ proc test_wide_location_2 {} {
|
|||||||
proc test_inaccessible_watchpoint {} {
|
proc test_inaccessible_watchpoint {} {
|
||||||
global gdb_prompt
|
global gdb_prompt
|
||||||
|
|
||||||
maybe_clean_restart
|
|
||||||
|
|
||||||
# This is a test for watchpoints on currently inaccessible (but later
|
# This is a test for watchpoints on currently inaccessible (but later
|
||||||
# valid) memory.
|
# valid) memory.
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user