mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-12 12:16:04 +08:00
4b48d43901
breakpoint table handling. This is a patch in five parts (all committed
here in one commit).
----- 1/5: parse_args
parse_args is a very useful utility function which allows you to do
getopt-y kinds of things in Tcl.
Example:
proc myproc {foo args} {
parse_args {{bar} {baz "abc"} {qux}}
# ...
}
myproc ABC -bar -baz DEF peanut butter
will define the following variables in myproc:
foo (=ABC), bar (=1), baz (=DEF), and qux (=0)
args will be the list {peanut butter}
----- 2/5: mi_build_kv_pairs
build_kv_pairs simply does what it says: given the input list
and an option join string, it combines list elements into kv-pairs
for MI handling. It knows how to handle tuples and other special
MI types.
Example:
mi_build_kv_pairs {a b c d e f g \[.*\]}
returns a=\"b\",c=\"d\",e=\"f\",g=\[.*\]
----- 3/5: mi_make_breakpoint
This function builds breakpoint regexps, such as
"bkpt={number=\".*\", [snip]}".
Note that ONLY the options given to mi_make_breakpoint/mi_create_breakpoint
will actually be tested. So if -number is omitted, the regexp will allow
anything [number=\".*\"]
Examples:
mi_make_breakpoint -number 3
mi_create_breakpoint "myfile.c:21" -file myfile.c -line 21
----- 4/5: mi_make_breakpoint_table
This function builds MI breakpoint table regexps.
Example:
set bps {}
lappend bps [mi_make_breakpoint -number 1 -func "main" \
-file ".*/myfile.c" -line 42
lappend bps [mi_make_breakpoint -number 2 -func "marker" \
-file ".*myfile.c" -line 21
gdb_test "-break-info" "\\^done,[mi_make_breakpoint_table $bps]" \
"breakpoint list"
----- 5/5: Update all callers
Self-explanatory
testsuite/ChangeLog
2014-04-23 Keith Seitz <keiths@redhat.com>
* lib/mi-support.exp (mi_list_breakpoints): Delete.
(mi_make_breakpoint_table): New procedure.
(mi_create_breakpoint): Use mi_make_breakpoint
and return the result.
(mi_make_breakpoint): New procedure.
(mi_build_kv_pairs): New procedure.
* gdb.mi/mi-break.exp: Remove unused globals,
update mi_create_breakpoint usage, and use mi_make_breakpoint_table.
All callers updated.
* gdb.mi/mi-dprintf.exp: Use variable to track command
number.
Update all callers of mi_create_breakpoint and use
mi_make_breakpoint_table.
Remove any unused global variables.
* gdb.mi/mi-nonstop.exp: Likewise.
* gdb.mi/mi-nsintrall.exp: Likewise.
* gdb.mi/mi-nsmoribund.exp: Likewise.
* gdb.mi/mi-nsthrexec.exp: Likewise.
* gdb.mi/mi-reverse.exp: Likewise.
* gdb.mi/mi-simplerun.exp: Likewise.
* gdb.mi/mi-stepn.exp: Likewise.
* gdb.mi/mi-syn-frame.exp: Likewise.
* gdb.mi/mi-until.exp: Likewise.
* gdb.mi/mi-var-cp.exp: Likewise.
* gdb.mi/mi-var-display.exp: Likewise.
* gdb.mi/mi2-amd64-entry-value.exp: Likewise.
* gdb.mi/mi2-var-child.exp: Likewise.
* gdb.mi/mi-vla-c99.exp: Likewise.
* lib/mi-support.exp: Likewise.
From Ian Lance Taylor <iant@cygnus.com>:
* lib/gdb.exp (parse_args): New procedure.
|
||
|---|---|---|
| .. | ||
| array.f | ||
| basics.c | ||
| ChangeLog-1999-2003 | ||
| dw2-ref-missing-frame-func.c | ||
| dw2-ref-missing-frame-main.c | ||
| dw2-ref-missing-frame.exp | ||
| dw2-ref-missing-frame.S | ||
| gdb669.exp | ||
| gdb680.exp | ||
| gdb701.c | ||
| gdb701.exp | ||
| gdb792.cc | ||
| gdb792.exp | ||
| gdb2549.exp | ||
| Makefile.in | ||
| mi2-amd64-entry-value.c | ||
| mi2-amd64-entry-value.exp | ||
| mi2-amd64-entry-value.s | ||
| mi2-prompt.exp | ||
| mi2-var-child.exp | ||
| mi-async.exp | ||
| mi-basics.exp | ||
| mi-break.exp | ||
| mi-breakpoint-changed.exp | ||
| mi-catch-load-so.c | ||
| mi-catch-load.c | ||
| mi-catch-load.exp | ||
| mi-cli.exp | ||
| mi-cmd-param-changed.exp | ||
| mi-console.c | ||
| mi-console.exp | ||
| mi-disassemble.exp | ||
| mi-dprintf.c | ||
| mi-dprintf.exp | ||
| mi-eval.exp | ||
| mi-file-transfer.exp | ||
| mi-file.exp | ||
| mi-fill-memory.exp | ||
| mi-fullname-deleted.exp | ||
| mi-hack-cli.exp | ||
| mi-i-cmd.exp | ||
| mi-info-os.exp | ||
| mi-inheritance-syntax-error.cc | ||
| mi-inheritance-syntax-error.exp | ||
| mi-language.exp | ||
| mi-logging.exp | ||
| mi-memory-changed.exp | ||
| mi-nonstop-exit.exp | ||
| mi-nonstop.exp | ||
| mi-ns-stale-regcache.exp | ||
| mi-nsintrall.exp | ||
| mi-nsmoribund.exp | ||
| mi-nsthrexec.exp | ||
| mi-pending.c | ||
| mi-pending.exp | ||
| mi-pendshr.c | ||
| mi-pthreads.exp | ||
| mi-read-memory.c | ||
| mi-read-memory.exp | ||
| mi-record-changed.exp | ||
| mi-reg-undefined.c | ||
| mi-reg-undefined.exp | ||
| mi-reg-undefined.S | ||
| mi-regs.exp | ||
| mi-return.exp | ||
| mi-reverse.exp | ||
| mi-simplerun.exp | ||
| mi-solib.exp | ||
| mi-stack.c | ||
| mi-stack.exp | ||
| mi-start.c | ||
| mi-start.exp | ||
| mi-stepi.exp | ||
| mi-stepn.c | ||
| mi-stepn.exp | ||
| mi-syn-frame.c | ||
| mi-syn-frame.exp | ||
| mi-undefined-cmd.exp | ||
| mi-until.exp | ||
| mi-var-block.exp | ||
| mi-var-child-f.exp | ||
| mi-var-child.c | ||
| mi-var-child.exp | ||
| mi-var-cmd.exp | ||
| mi-var-cp.cc | ||
| mi-var-cp.exp | ||
| mi-var-create-rtti.c | ||
| mi-var-create-rtti.exp | ||
| mi-var-display.exp | ||
| mi-var-invalidate.exp | ||
| mi-var-rtti.cc | ||
| mi-var-rtti.exp | ||
| mi-vla-c99.exp | ||
| mi-watch-nonstop.exp | ||
| mi-watch.exp | ||
| non-stop-exit.c | ||
| non-stop.c | ||
| ns-stale-regcache.c | ||
| nsintrall.c | ||
| nsmoribund.c | ||
| nsthrexec.c | ||
| pending.c | ||
| pendshr1.c | ||
| pendshr2.c | ||
| pr11022.c | ||
| pr11022.exp | ||
| pthreads.c | ||
| solib-lib.c | ||
| solib-main.c | ||
| testcmds | ||
| until.c | ||
| var-cmd.c | ||
| vla.c | ||
| watch-nonstop.c | ||