diff options
Diffstat (limited to 'tcl/target/swj-dp.tcl')
-rw-r--r-- | tcl/target/swj-dp.tcl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/tcl/target/swj-dp.tcl b/tcl/target/swj-dp.tcl index 377b7b5f..fa44583a 100644 --- a/tcl/target/swj-dp.tcl +++ b/tcl/target/swj-dp.tcl @@ -18,8 +18,13 @@ # split out "chip" and "tag" so we can someday handle # them more uniformly irlen too...) +global using_jtag +set using_jtag 1 + proc swj_newdap {chip tag args} { -set tran [transport select] -if [string equal $tran "jtag"] { eval jtag newtap $chip $tag $args} -if [string equal $tran "swd"] { eval swd newdap $chip $tag $args } + global using_jtag + set tran [transport select] + if [string equal $tran "jtag"] { eval jtag newtap $chip $tag $args; set using_jtag 1 } + if [string equal $tran "swd"] { eval swd newdap $chip $tag $args; set using_jtag 0 } + if [string equal $tran "cmsis-dap"] { eval cmsis-dap newdap $chip $tag $args; set using_jtag 0 } } |