tcl: add SPDX tag
[fw/openocd] / tcl / cpld / jtagspi.cfg
1 # SPDX-License-Identifier: GPL-2.0-or-later
2
3 set _USER1 0x02
4
5 if { [info exists JTAGSPI_IR] } {
6         set _JTAGSPI_IR $JTAGSPI_IR
7 } else {
8         set _JTAGSPI_IR $_USER1
9 }
10
11 if { [info exists TARGETNAME] } {
12         set _TARGETNAME $TARGETNAME
13 } else {
14         set _TARGETNAME $_CHIPNAME.proxy
15 }
16
17 if { [info exists FLASHNAME] } {
18         set _FLASHNAME $FLASHNAME
19 } else {
20         set _FLASHNAME $_CHIPNAME.spi
21 }
22
23 target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
24 flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR
25
26 proc jtagspi_init {chain_id proxy_bit} {
27         # load proxy bitstream $proxy_bit and probe spi flash
28         global _FLASHNAME
29         pld load $chain_id $proxy_bit
30         reset halt
31         flash probe $_FLASHNAME
32 }
33
34 proc jtagspi_program {bin addr} {
35         # write and verify binary file $bin at offset $addr
36         global _FLASHNAME
37         flash write_image erase $bin $addr
38         flash verify_bank $_FLASHNAME $bin $addr
39 }