espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-24 12:23:31 +08:00
Code Issues Packages Projects Releases Wiki Activity

mi_make_breakpoint: add "evaluated-by" option

Browse Source 
For some time now, GDB has permitted target-side evaluation of
breakpoint conditions.  On targets that support this feature, GDB
may output an "evaluated-by" field into the breakpoint reply.

This patch adds handling for this option, and outputs a default
pattern to optionally recognize (and ignore) this pattern in the
reply.

gdb/testsuite/ChangeLog

	* lib/mi-support.exp (mi_make_breakpoint): Add option/handling for
	"evaluated-by".
This commit is contained in:
Keith Seitz
2015-08-14 13:45:06 -07:00
parent c0fe2ae706
commit 6613eb10d1
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/testsuite/lib/mi-support.exp
View File

@ -2395,7 +2395,8 @@ proc mi_build_kv_pairs {attr_list {joiner ,}} {
# #
# All arguments for the breakpoint may be specified using the options # All arguments for the breakpoint may be specified using the options
# number, type, disp, enabled, addr, func, file, fullanme, line, # number, type, disp, enabled, addr, func, file, fullanme, line,
# thread-groups, cond, times, ignore, script, and original-location. # thread-groups, cond, evaluated-by, times, ignore, script,
# and original-location.
# #
# Only if -script and -ignore are given will they appear in the output. # Only if -script and -ignore are given will they appear in the output.
# Otherwise, this procedure will skip them using ".*". # Otherwise, this procedure will skip them using ".*".
@ -2410,7 +2411,7 @@ proc mi_make_breakpoint {args} {
parse_args {{number .*} {type .*} {disp .*} {enabled .*} {addr .*} parse_args {{number .*} {type .*} {disp .*} {enabled .*} {addr .*}
{func .*} {file .*} {fullname .*} {line .*} {func .*} {file .*} {fullname .*} {line .*}
{thread-groups \\\[.*\\\]} {times .*} {ignore 0} {thread-groups \\\[.*\\\]} {times .*} {ignore 0}
{script ""} {original-location .*} {cond ""}} {script ""} {original-location .*} {cond ""} {evaluated-by ""}}
set attr_list {} set attr_list {}
foreach attr [list number type disp enabled addr func file \ foreach attr [list number type disp enabled addr func file \
@ -2426,6 +2427,15 @@ proc mi_make_breakpoint {args} {
if {[string length $cond] > 0} { if {[string length $cond] > 0} {
append result "," append result ","
append result [mi_build_kv_pairs [list "cond" $cond]] append result [mi_build_kv_pairs [list "cond" $cond]]
# When running on a remote, GDB may output who is evaluating
# breakpoint conditions.
if {[string length ${evaluated-by}] > 0} {
append result [mi_build_kv_pairs \
[list "evaluated-by" ${evaluated-by}]]
} else {
append result {(,evaluated-by=".*")?}
}
} }
append result "," append result ","