X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=tcl%2Ftarget%2Fu8500.cfg;h=5ef98e9e134b8b093a8597cb757c6fdd3b3e7834;hb=f5657aa76e795e4ed5b13a9f5df943181a123e49;hp=36e0db71d20e08166f789fb3b37f7697e95f4a38;hpb=82b6a41117fa99e760681d9f31163e7b68357e71;p=openocd.git

diff --git a/tcl/target/u8500.cfg b/tcl/target/u8500.cfg
index 36e0db71d2..5ef98e9e13 100644
--- 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
 }