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

[fw/openocd] / tcl / tools / memtest.tcl

diff --git a/tcl/tools/memtest.tcl b/tcl/tools/memtest.tcl
index f3567ef0f2d6ad1fcb510064fe924f5040a918b5..c7fa591f3cee2dec7bcfc81f61bf7b1139bc64b2 100644 (file)
--- a/tcl/tools/memtest.tcl
+++ b/tcl/tools/memtest.tcl
@@ -166,7 +166,7 @@ proc memTestDevice { baseAddress nBytes } {
            return $pattern
        }
 
-       set antiPattern [expr ~$pattern]
+       set antiPattern [expr {~$pattern}]
        memwrite32 [expr {$baseAddress + $offset}] $antiPattern
     }
 
@@ -177,7 +177,7 @@ proc memTestDevice { baseAddress nBytes } {
        set data [memread32 $addr]
        set dataHex [convertToHex $data]
        set antiPatternHex [convertToHex $antiPattern]
-       if {[expr $dataHex != $antiPatternHex]} {
+       if {$dataHex != $antiPatternHex} {
            echo "FAILED memTestDevice_antipattern: Address: [convertToHex $addr], antiPattern: $antiPatternHex, Returned: $dataHex, offset: $offset"
            return $pattern
        }