-set _USER1 0x02
-if { [info exists JTAGSPI_IR] } {
- set _JTAGSPI_IR $JTAGSPI_IR
-} else {
- set _JTAGSPI_IR $_USER1
-}
-
-if { [info exists DR_LENGTH] } {
- set _DR_LENGTH $DR_LENGTH
-} else {
- set _DR_LENGTH 1
-}
-
-if { [info exists TARGETNAME] } {
- set _TARGETNAME $TARGETNAME
-} else {
- set _TARGETNAME $_CHIPNAME.proxy
-}
-
-if { [info exists FLASHNAME] } {
- set _FLASHNAME $FLASHNAME
-} else {
- set _FLASHNAME $_CHIPNAME.spi
-}
-
-target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
-flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR $_DR_LENGTH
-
-proc jtagspi_init {chain_id proxy_bit} {
- # load proxy bitstream $proxy_bit and probe spi flash
- global _FLASHNAME
- pld load $chain_id $proxy_bit
- reset halt
- flash probe $_FLASHNAME
-}
-
-proc jtagspi_program {bin addr {type ""} } {
- # write and verify binary file $bin at offset $addr
- global _FLASHNAME
- if { $type eq "" } {
- flash write_image erase $bin $addr
- flash verify_bank $_FLASHNAME $bin $addr
- } else {
- flash write_image erase $bin $addr $type
- flash verify_bank $_FLASHNAME $bin $addr $type
- }
-}
ftdi_channel 0
ftdi_layout_init 0x00e8 0x60eb
reset_config none
+adapter_khz 25000
source [find cpld/xilinx-xc7.cfg]
-source openocd/jtagspi.cfg
-adapter_khz 25000
+
+# From jtagspi.cfg with modification to support
+# specifying file type
+set _USER1 0x02
+
+if { [info exists JTAGSPI_IR] } {
+ set _JTAGSPI_IR $JTAGSPI_IR
+} else {
+ set _JTAGSPI_IR $_USER1
+}
+
+if { [info exists DR_LENGTH] } {
+ set _DR_LENGTH $DR_LENGTH
+} else {
+ set _DR_LENGTH 1
+}
+
+if { [info exists TARGETNAME] } {
+ set _TARGETNAME $TARGETNAME
+} else {
+ set _TARGETNAME $_CHIPNAME.proxy
+}
+
+if { [info exists FLASHNAME] } {
+ set _FLASHNAME $FLASHNAME
+} else {
+ set _FLASHNAME $_CHIPNAME.spi
+}
+
+target create $_TARGETNAME testee -chain-position $_CHIPNAME.tap
+flash bank $_FLASHNAME jtagspi 0 0 0 0 $_TARGETNAME $_JTAGSPI_IR $_DR_LENGTH
+
+proc jtagspi_init {chain_id proxy_bit} {
+ # load proxy bitstream $proxy_bit and probe spi flash
+ global _FLASHNAME
+ pld load $chain_id $proxy_bit
+ reset halt
+ flash probe $_FLASHNAME
+}
+
+proc jtagspi_program {bin addr {type ""} } {
+ # write and verify binary file $bin at offset $addr
+ global _FLASHNAME
+ if { $type eq "" } {
+ flash write_image erase $bin $addr
+ flash verify_bank $_FLASHNAME $bin $addr
+ } else {
+ flash write_image erase $bin $addr $type
+ flash verify_bank $_FLASHNAME $bin $addr $type
+ }
+}
+# end jtagspi.cfg
proc fpga_program {} {
global _CHIPNAME