diff options
| author | Spencer Oliver <spen@spen-soft.co.uk> | 2012-05-10 22:36:23 +0100 |
|---|---|---|
| committer | Spencer Oliver <spen@spen-soft.co.uk> | 2012-05-21 16:20:07 +0000 |
| commit | 1dd462a6d613a48d518e925738b680b124055e61 (patch) | |
| tree | fc7148509bcfbd3b335d8ff952115966ba770cae /src/target/startup.tcl | |
| parent | 25b855d2d2eaa68787799c97b654167ddec04f85 (diff) | |
target: enable TARGET_EVENT_EXAMINE_* events
Change-Id: I33efc0994b7bfe0faa2f4e8457fcc3c8e43d3571
Signed-off-by: Spencer Oliver <spen@spen-soft.co.uk>
Reviewed-on: http://openocd.zylin.com/635
Reviewed-by: Freddie Chopin <freddie.chopin@gmail.com>
Tested-by: jenkins
Reviewed-by: Bill Traynor <wmat@alphatroop.com>
Diffstat (limited to 'src/target/startup.tcl')
| -rw-r--r-- | src/target/startup.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/target/startup.tcl b/src/target/startup.tcl index 02cefb09..90f947df 100644 --- a/src/target/startup.tcl +++ b/src/target/startup.tcl @@ -64,7 +64,11 @@ proc ocd_process_reset_inner { MODE } { # Examine all targets on enabled taps. foreach t $targets { if {[jtag tapisenabled [$t cget -chain-position]]} { - $t arp_examine + $t invoke-event examine-start + set err [catch "$t arp_examine"] + if { $err == 0 } { + $t invoke-event examine-end + } } } @@ -152,8 +156,8 @@ proc armv4_5 params { arm $params } -# Target/chain configuration scripts can either execute commands directly -# or define a procedure which is executed once all configuration +# Target/chain configuration scripts can either execute commands directly +# or define a procedure which is executed once all configuration # scripts have completed. # # By default(classic) the config scripts will set up the target configuration |