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

[fw/openocd] / tcl / chip / atmel / at91 / usarts.tcl

diff --git a/tcl/chip/atmel/at91/usarts.tcl b/tcl/chip/atmel/at91/usarts.tcl
index 95aced882d6894b9225ac7b238426103f94f5670..f840b78c30e036423211297cae1a923f15bfbfb8 100644 (file)
--- a/tcl/chip/atmel/at91/usarts.tcl
+++ b/tcl/chip/atmel/at91/usarts.tcl
@@ -89,7 +89,7 @@ foreach WHO { US0 US1 US2 US3 US4 US5 US6 US7 US8 US9 } {
            set vn [set WHO]_[set REG]
            # vn = USx_IER
            # vv = variable value
-           set vv [expr $$n + [set USx_[set REG]]]
+           set vv [expr "$$n + [set USx_[set REG]]"]
            # And VV is the address in memory of that register