tcl: [1/3] prepare for jimtcl 0.81 'expr' syntax change

[fw/openocd] / tcl / fpga / xilinx-xadc.cfg

diff --git a/tcl/fpga/xilinx-xadc.cfg b/tcl/fpga/xilinx-xadc.cfg
index d4be4f5414fd2ef29e8fc1b97ccf837a9a74922e..043e55393939b7517b8708c0e5074c711183b566 100644 (file)
--- 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