4db24acb93
This adds init_board procedure that behaves exactly the same as init_targets - it can be overriden by "next level" scripts. This procedure is executed after init_targets, allowing common stuff (jtag chain, memory, flash, ...) to be configured in target script (via init_target) and leaving rest (like additional memory, reset configuration, reset-init handlers, ...) to be done in init_board. This makes init_targets scheme more complete and easier to use - current board scripts will not need new init_targets, because everything can be "packed" in init_boards. Moreover it solves the problem of variables being set in init_targets (executed after init), which were not accessible by "linear" scripts (parsed before init). All that has to be done is to enclose all code in board config file in init_board procedure. Change-Id: I0736b1ff9873a687966407d62b58ccf29a8e597b Signed-off-by: Freddie Chopin <freddie.chopin@gmail.com> Reviewed-on: http://openocd.zylin.com/427 Reviewed-by: Chris Morgan <chmorgan@gmail.com> Tested-by: jenkins Reviewed-by: Peter Stuge <peter@stuge.se>
166 lines
4.1 KiB
Tcl
166 lines
4.1 KiB
Tcl
# Defines basic Tcl procs for OpenOCD target module
|
|
|
|
proc new_target_name { } {
|
|
return [target number [expr [target count] - 1 ]]
|
|
}
|
|
|
|
global in_process_reset
|
|
set in_process_reset 0
|
|
|
|
# Catch reset recursion
|
|
proc ocd_process_reset { MODE } {
|
|
global in_process_reset
|
|
if {$in_process_reset} {
|
|
set in_process_reset 0
|
|
return -code error "'reset' can not be invoked recursively"
|
|
}
|
|
|
|
set in_process_reset 1
|
|
set success [expr [catch {ocd_process_reset_inner $MODE} result]==0]
|
|
set in_process_reset 0
|
|
|
|
if {$success} {
|
|
return $result
|
|
} else {
|
|
return -code error $result
|
|
}
|
|
}
|
|
|
|
proc ocd_process_reset_inner { MODE } {
|
|
set targets [target names]
|
|
|
|
# If this target must be halted...
|
|
set halt -1
|
|
if { 0 == [string compare $MODE halt] } {
|
|
set halt 1
|
|
}
|
|
if { 0 == [string compare $MODE init] } {
|
|
set halt 1;
|
|
}
|
|
if { 0 == [string compare $MODE run ] } {
|
|
set halt 0;
|
|
}
|
|
if { $halt < 0 } {
|
|
return -code error "Invalid mode: $MODE, must be one of: halt, init, or run";
|
|
}
|
|
|
|
# Target event handlers *might* change which TAPs are enabled
|
|
# or disabled, so we fire all of them. But don't issue any
|
|
# target "arp_*" commands, which may issue JTAG transactions,
|
|
# unless we know the underlying TAP is active.
|
|
#
|
|
# NOTE: ARP == "Advanced Reset Process" ... "advanced" is
|
|
# relative to a previous restrictive scheme
|
|
|
|
foreach t $targets {
|
|
# New event script.
|
|
$t invoke-event reset-start
|
|
}
|
|
|
|
# Use TRST or TMS/TCK operations to reset all the tap controllers.
|
|
# TAP reset events get reported; they might enable some taps.
|
|
init_reset $MODE
|
|
|
|
# Examine all targets on enabled taps.
|
|
foreach t $targets {
|
|
if {[jtag tapisenabled [$t cget -chain-position]]} {
|
|
$t arp_examine
|
|
}
|
|
}
|
|
|
|
# Assert SRST, and report the pre/post events.
|
|
# Note: no target sees SRST before "pre" or after "post".
|
|
foreach t $targets {
|
|
$t invoke-event reset-assert-pre
|
|
}
|
|
foreach t $targets {
|
|
# C code needs to know if we expect to 'halt'
|
|
if {[jtag tapisenabled [$t cget -chain-position]]} {
|
|
$t arp_reset assert $halt
|
|
}
|
|
}
|
|
foreach t $targets {
|
|
$t invoke-event reset-assert-post
|
|
}
|
|
|
|
# Now de-assert SRST, and report the pre/post events.
|
|
# Note: no target sees !SRST before "pre" or after "post".
|
|
foreach t $targets {
|
|
$t invoke-event reset-deassert-pre
|
|
}
|
|
foreach t $targets {
|
|
# Again, de-assert code needs to know if we 'halt'
|
|
if {[jtag tapisenabled [$t cget -chain-position]]} {
|
|
$t arp_reset deassert $halt
|
|
}
|
|
}
|
|
foreach t $targets {
|
|
$t invoke-event reset-deassert-post
|
|
}
|
|
|
|
# Pass 1 - Now wait for any halt (requested as part of reset
|
|
# assert/deassert) to happen. Ideally it takes effect without
|
|
# first executing any instructions.
|
|
if { $halt } {
|
|
foreach t $targets {
|
|
if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
|
|
continue
|
|
}
|
|
|
|
# Wait upto 1 second for target to halt. Why 1sec? Cause
|
|
# the JTAG tap reset signal might be hooked to a slow
|
|
# resistor/capacitor circuit - and it might take a while
|
|
# to charge
|
|
|
|
# Catch, but ignore any errors.
|
|
catch { $t arp_waitstate halted 1000 }
|
|
|
|
# Did we succeed?
|
|
set s [$t curstate]
|
|
|
|
if { 0 != [string compare $s "halted" ] } {
|
|
return -code error [format "TARGET: %s - Not halted" $t]
|
|
}
|
|
}
|
|
}
|
|
|
|
#Pass 2 - if needed "init"
|
|
if { 0 == [string compare init $MODE] } {
|
|
foreach t $targets {
|
|
if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
|
|
continue
|
|
}
|
|
|
|
set err [catch "$t arp_waitstate halted 5000"]
|
|
# Did it halt?
|
|
if { $err == 0 } {
|
|
$t invoke-event reset-init
|
|
}
|
|
}
|
|
}
|
|
|
|
foreach t $targets {
|
|
$t invoke-event reset-end
|
|
}
|
|
}
|
|
|
|
#########
|
|
|
|
# Temporary migration aid. May be removed starting in January 2011.
|
|
proc armv4_5 params {
|
|
echo "DEPRECATED! use 'arm $params' not 'armv4_5 $params'"
|
|
arm $params
|
|
}
|
|
|
|
# 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
|
|
proc init_targets {} {
|
|
}
|
|
|
|
# Additionally board config scripts can define a procedure init_board that will be executed after init and init_targets
|
|
proc init_board {} {
|
|
}
|