1
0
mirror of https://git.code.sf.net/p/openocd/code synced 2024-11-24 19:56:23 +00:00
openocd/tcl/cpld/xilinx-xc6s.cfg
Adam Novak 324469da57 cpld: update warning to suggest virtex2 refresh
virtex2 refresh replaced virtex2 program, but the even older programming
commands like xc6s_program still suggest the old, now-removed program
command. This changes the warnings to suggest the command that is still
there, and also adds some indication that you will need to use the .pld
name instead of the .tap name.

Change-Id: I292da62a95a9b414c69cdb1bba8a28dfd16a7336
Signed-off-by: Adam Novak <interfect@gmail.com>
Reviewed-on: https://review.openocd.org/c/openocd/+/8468
Tested-by: jenkins
Reviewed-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-by: Daniel Anselmi <danselmi@gmx.ch>
2024-09-07 11:39:22 +00:00

96 lines
2.7 KiB
INI

# SPDX-License-Identifier: GPL-2.0-or-later
# xilinx spartan6
# http://www.xilinx.com/support/documentation/user_guides/ug380.pdf
if { [info exists CHIPNAME] } {
set _CHIPNAME $CHIPNAME
} else {
set _CHIPNAME xc6s
}
# the 4 top bits (28:31) are the die stepping. ignore it.
jtag newtap $_CHIPNAME tap -irlen 6 -ignore-version \
-expected-id 0x04000093 \
-expected-id 0x04001093 \
-expected-id 0x04002093 \
-expected-id 0x04004093 \
-expected-id 0x04024093 \
-expected-id 0x04008093 \
-expected-id 0x04028093 \
-expected-id 0x0400E093 \
-expected-id 0x0402E093 \
-expected-id 0x04011093 \
-expected-id 0x04031093 \
-expected-id 0x0401D093 \
-expected-id 0x0403D093
pld create $_CHIPNAME.pld virtex2 -chain-position $_CHIPNAME.tap
virtex2 set_user_codes $_CHIPNAME.pld 0x02 0x03 0x1A 0x1B
set XC6S_CFG_IN 0x05
set XC6S_JSHUTDOWN 0x0d
set XC6S_JPROGRAM 0x0b
set XC6S_JSTART 0x0c
set XC6S_BYPASS 0x3f
proc xc6s_program {tap} {
echo "DEPRECATED! use 'virtex2 refresh XXXX.pld' not 'xc6s_program'"
global XC6S_JSHUTDOWN XC6S_JPROGRAM XC6S_JSTART XC6S_BYPASS
irscan $tap $XC6S_JSHUTDOWN
irscan $tap $XC6S_JPROGRAM
irscan $tap $XC6S_JSTART
irscan $tap $XC6S_BYPASS
}
#xtp038 and xc3sprog approach
proc xc6s_program_iprog {tap} {
echo "DEPRECATED! use 'virtex2 refresh XXXX.pld' not 'xc6s_program_iprog'"
global XC6S_JSHUTDOWN XC6S_JSTART XC6S_BYPASS XC6S_CFG_IN
irscan $tap $XC6S_JSHUTDOWN
runtest 16
irscan $tap $XC6S_CFG_IN
# xtp038 IPROG 16bit flipped
drscan $tap 16 0xffff 16 0x9955 16 0x66aa 16 0x850c 16 0x7000 16 0x0004
irscan $tap $XC6S_JSTART
runtest 32
irscan $tap $XC6S_BYPASS
runtest 1
}
set XC6S_ISC_ENABLE 0x10
set XC6S_ISC_DISABLE 0x16
set XC6S_ISC_DNA 0x30
# Get the "Device DNA" from the Spartan 6.
# Most Xilinx FPGA devices contain an embedded, unique device identifier called
# the "Device DNA". The identifier is nonvolatile, permanently programmed into
# the FPGA, and is unchangeable providing a great serial / tracking number.
proc xc6s_get_dna {tap} {
global XC6S_ISC_ENABLE XC6S_ISC_DISABLE XC6S_ISC_DNA
irscan $tap $XC6S_ISC_ENABLE
runtest 64
irscan $tap $XC6S_ISC_DNA
# Device DNA is 57 bits long, but we can only read 32bits at a time
# with OpenOCD.
set dna [drscan $tap 16 0 16 0 16 0 9 0]
runtest 64
irscan $tap $XC6S_ISC_DISABLE
runtest 64
# Convert the binary data into the order impact uses
scan $dna "%x %x %x %x" v1 v2 v3 v4
set bin_dna [string reverse [concat [format "%09b" $v4][format "%016b" $v3][format "%016b" $v2][format "%016b" $v1]]]
# Return a hex version of binary
scan [format "0b%s" $bin_dna] "%i" hex_dna
return $hex_dna
}
# Print out the "Device DNA" in the same format that impact uses.
proc xc6s_print_dna {tap} {
set hex_dna [xc6s_get_dna $tap]
puts [format "DNA = %57b (0x%x)\n" $hex_dna $hex_dna]
}