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

[openocd.git] / tcl / target / u8500.cfg

diff --git a/tcl/target/u8500.cfg b/tcl/target/u8500.cfg
index 36e0db71d20e08166f789fb3b37f7697e95f4a38..5ef98e9e134b8b093a8597cb757c6fdd3b3e7834 100644 (file)
--- a/tcl/target/u8500.cfg
+++ b/tcl/target/u8500.cfg
@@ -4,13 +4,13 @@
 
 proc mmu_off {} {
        set cp [arm mrc 15 0 1 0 0]
-       set cp [expr ($cp & ~1)]
+       set cp [expr {$cp & ~1}]
        arm mcr 15 0 1 0 0 $cp
 }
 
 proc mmu_on {} {
        set cp [arm mrc 15 0 1 0 0]
-       set cp [expr ($cp | 1)]
+       set cp [expr {$cp | 1}]
        arm mcr 15 0 1 0 0 $cp
 }