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

[fw/openocd] / tcl / cpu / arc / em.tcl

diff --git a/tcl/cpu/arc/em.tcl b/tcl/cpu/arc/em.tcl
index f0455bb74200f6e6f6c7e5b45f64fa6a90e53c1b..595a351308f00a28f53648c1f54c64eef0dda670 100644 (file)
--- a/tcl/cpu/arc/em.tcl
+++ b/tcl/cpu/arc/em.tcl
@@ -27,6 +27,6 @@ proc arc_em_reset { {target ""} } {
        # This is specific to ARC EM.
        set debug [arc jtag get-aux-reg 5]
        if { !($debug & (1 << 20)) } {
-               arc jtag set-aux-reg 5 [expr $debug | (1 << 20)]
+               arc jtag set-aux-reg 5 [expr {$debug | (1 << 20)}]
        }
 }