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} {
-       set dna [expr $dna >> 64 - 57]
+       set dna [expr {$dna >> 64 - 57}]
        echo [format "DNA = %057b (0x%016x)" $dna $dna]
 }