X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=tcl%2Ffpga%2Fxilinx-dna.cfg;h=a8056735b1fec9a6023474fadaae3a5a7345c9c0;hb=f5657aa76e795e4ed5b13a9f5df943181a123e49;hp=a1d5ba37612e0992a3532bec0c28da2dcfbb0c76;hpb=82b6a41117fa99e760681d9f31163e7b68357e71;p=fw%2Fopenocd

diff --git a/tcl/fpga/xilinx-dna.cfg b/tcl/fpga/xilinx-dna.cfg
index a1d5ba376..a8056735b 100644
--- 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} {
-	set dna [expr $dna >> 64 - 57]
+	set dna [expr {$dna >> 64 - 57}]
 	echo [format "DNA = %057b (0x%016x)" $dna $dna]
 }