64d89d5ee1
Jimtcl commit 1843b79a03dd ("expr: TIP 526, only support a single
arg") drops the support for multi-argument syntax for the TCL
command 'expr'.
Fix manually the remaining lines that don't match simple patterns
and would require dedicated boring scripting.
Remove the 'expr' command where appropriate.
Change-Id: Ia75210c8447f88d38515addab4a836af9103096d
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-on: http://openocd.zylin.com/6161
Tested-by: jenkins
Reviewed-by: Tomas Vanek <vanekt@fbl.cz>
64 lines
2.4 KiB
INI
64 lines
2.4 KiB
INI
################################################################################
|
|
# Atmel AT91SAM9261-EK eval board
|
|
################################################################################
|
|
|
|
source [find mem_helper.tcl]
|
|
source [find target/at91sam9261.cfg]
|
|
uplevel #0 [list source [find chip/atmel/at91/hardware.cfg]]
|
|
uplevel #0 [list source [find chip/atmel/at91/at91sam9261.cfg]]
|
|
uplevel #0 [list source [find chip/atmel/at91/at91sam9261_matrix.cfg]]
|
|
uplevel #0 [list source [find chip/atmel/at91/at91sam9_init.cfg]]
|
|
|
|
# By default S1 is open and this means that NTRST is not connected.
|
|
# The reset_config in target/at91sam9261.cfg is overridden here.
|
|
# (or S1 must be populated with a 0 Ohm resistor)
|
|
reset_config srst_only
|
|
|
|
scan_chain
|
|
$_TARGETNAME configure -event gdb-attach { reset init }
|
|
$_TARGETNAME configure -event reset-init { at91sam9261ek_reset_init }
|
|
$_TARGETNAME configure -event reset-start { at91sam9_reset_start }
|
|
|
|
proc at91sam9261ek_reset_init { } {
|
|
|
|
;# for ppla at 199 Mhz
|
|
set config(master_pll_div) 15
|
|
set config(master_pll_mul) 162
|
|
|
|
;# for ppla at 239 Mhz
|
|
;# set master_pll_div 1
|
|
;# set master_pll_mul 13
|
|
|
|
set val $::AT91_WDT_WDV ;# Counter Value
|
|
set val [expr {$val | $::AT91_WDT_WDDIS}] ;# Watchdog Disable
|
|
set val [expr {$val | $::AT91_WDT_WDD}] ;# Delta Value
|
|
set val [expr {$val | $::AT91_WDT_WDDBGHLT}] ;# Debug Halt
|
|
set val [expr {$val | $::AT91_WDT_WDIDLEHLT}] ;# Idle Halt
|
|
|
|
set config(wdt_mr_val) $val
|
|
|
|
;# EBI_CSA, no pull-ups for D[15:0], CS1 SDRAM, CS3 NAND Flash
|
|
set config(matrix_ebicsa_addr) $::AT91_MATRIX_EBICSA
|
|
set config(matrix_ebicsa_val) [expr {$::AT91_MATRIX_DBPUC | $::AT91_MATRIX_CS1A_SDRAMC}]
|
|
|
|
;# SDRAMC_CR - Configuration register
|
|
set val $::AT91_SDRAMC_NC_9
|
|
set val [expr {$val | $::AT91_SDRAMC_NR_13}]
|
|
set val [expr {$val | $::AT91_SDRAMC_NB_4}]
|
|
set val [expr {$val | $::AT91_SDRAMC_CAS_3}]
|
|
set val [expr {$val | $::AT91_SDRAMC_DBW_32}]
|
|
set val [expr {$val | (2 << 8)}] ;# Write Recovery Delay
|
|
set val [expr {$val | (7 << 12)}] ;# Row Cycle Delay
|
|
set val [expr {$val | (3 << 16)}] ;# Row Precharge Delay
|
|
set val [expr {$val | (2 << 20)}] ;# Row to Column Delay
|
|
set val [expr {$val | (5 << 24)}] ;# Active to Precharge Delay
|
|
set val [expr {$val | (8 << 28)}] ;# Exit Self Refresh to Active Delay
|
|
|
|
set config(sdram_cr_val) $val
|
|
|
|
set config(sdram_tr_val) 0x13c
|
|
|
|
set config(sdram_base) $::AT91_CHIPSELECT_1
|
|
at91sam9_reset_init $config
|
|
}
|