X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=tcl%2Ffpga%2Fxilinx-xadc.cfg;h=043e55393939b7517b8708c0e5074c711183b566;hb=f5657aa76e795e4ed5b13a9f5df943181a123e49;hp=d4be4f5414fd2ef29e8fc1b97ccf837a9a74922e;hpb=82b6a41117fa99e760681d9f31163e7b68357e71;p=openocd.git

diff --git a/tcl/fpga/xilinx-xadc.cfg b/tcl/fpga/xilinx-xadc.cfg
index d4be4f5414..043e553939 100644
--- a/tcl/fpga/xilinx-xadc.cfg
+++ b/tcl/fpga/xilinx-xadc.cfg
@@ -118,17 +118,17 @@ proc xadc_read {tap addr} {
 # convert 16 bit register code from ADC measurement on
 # external voltages (VAUX) to Volt
 proc xadc_volt {code} {
-	return [expr $code * 1./(1 << 16)]
+	return [expr {$code * 1./(1 << 16)}]
 }
 
 # convert 16 bit temperature measurement to Celsius
 proc xadc_temp {code} {
-	return [expr $code * 503.975/(1 << 16) - 273.15]
+	return [expr {$code * 503.975/(1 << 16) - 273.15}]
 }
 
 # convert 16 bit suppply voltage measurement to Volt
 proc xadc_sup {code} {
-	return [expr $code * 3./(1 << 16)]
+	return [expr {$code * 3./(1 << 16)}]
 }
 
 # perform a single channel measurement using default settings