X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Ffpga%2Fxilinx-xadc.cfg;h=250879ec93bf7399bc340a4f2d7f6d7860699902;hb=64d89d5ee1a554fbae8eb0a7231ccb2dc4428c1a;hp=c451ca2f2d62002c4fb37f04ea695805b22b111d;hpb=f855fdcf0d95ff9ba18a83f9a97d5368844d4f2c;p=fw%2Fopenocd

diff --git a/tcl/fpga/xilinx-xadc.cfg b/tcl/fpga/xilinx-xadc.cfg
index c451ca2f2..250879ec9 100644
--- a/tcl/fpga/xilinx-xadc.cfg
+++ b/tcl/fpga/xilinx-xadc.cfg
@@ -16,7 +16,7 @@ proc xadc_cmd {cmd addr data} {
 		READ 0x01
 		WRITE 0x02
 	}
-	return [expr ($cmds($cmd) << 26) | ($addr << 16) | ($data << 0)]
+	return [expr {($cmds($cmd) << 26) | ($addr << 16) | ($data << 0)}]
 }
 
 # XADC register addresses