X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Ffpga%2Fxilinx-dna.cfg;h=a8056735b1fec9a6023474fadaae3a5a7345c9c0;hb=e84be7088d5972ddd9bf502f8f66ac3b06ed3dda;hp=a1d5ba37612e0992a3532bec0c28da2dcfbb0c76;hpb=3d3b45af465f6dcfc85ea69cc10a719bc3b2851c;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]
 }