projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tcl: [1/3] prepare for jimtcl 0.81 'expr' syntax change
[fw/openocd]
/
tcl
/
fpga
/
xilinx-dna.cfg
diff --git
a/tcl/fpga/xilinx-dna.cfg
b/tcl/fpga/xilinx-dna.cfg
index a1d5ba37612e0992a3532bec0c28da2dcfbb0c76..a8056735b1fec9a6023474fadaae3a5a7345c9c0 100644
(file)
--- a/
tcl/fpga/xilinx-dna.cfg
+++ b/
tcl/fpga/xilinx-dna.cfg
@@
-30,7
+30,7
@@
proc xilinx_get_dna {tap chip} {
# Print out the "Device DNA" in the same format that impact uses.
proc xilinx_print_dna {dna} {
# Print out the "Device DNA" in the same format that impact uses.
proc xilinx_print_dna {dna} {
- set dna [expr
$dna >> 64 - 57
]
+ set dna [expr
{$dna >> 64 - 57}
]
echo [format "DNA = %057b (0x%016x)" $dna $dna]
}
echo [format "DNA = %057b (0x%016x)" $dna $dna]
}