X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=tcl%2Fmemory.tcl;h=8d50ba8531ae50acd323ffa5b10f6a6a6ea0ab21;hb=bac3ef96b79ac7b7b44585f2c3a2adcd8732f7a2;hp=c1e012d8d39a638e0fc29cfb0d25d25b3be1b5fa;hpb=f5657aa76e795e4ed5b13a9f5df943181a123e49;p=openocd.git

diff --git a/tcl/memory.tcl b/tcl/memory.tcl
index c1e012d8d3..8d50ba8531 100644
--- a/tcl/memory.tcl
+++ b/tcl/memory.tcl
@@ -58,7 +58,7 @@ set ACCESS_WIDTH_ANY  [expr {$ACCESS_WIDTH_8 + $ACCESS_WIDTH_16 + $ACCESS_WIDTH_
 set UNKNOWN(0,ACCESS_WIDTH) $ACCESS_WIDTH_NONE
 
 proc iswithin { ADDRESS BASE LEN } {
-    return [expr ((($ADDRESS - $BASE) >= 0) && (($BASE + $LEN - $ADDRESS) > 0))]
+    return [expr {(($ADDRESS - $BASE) >= 0) && (($BASE + $LEN - $ADDRESS) > 0)}]
 }
 
 proc address_info { ADDRESS } {