X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Ftools%2Fmemtest.tcl;h=c7fa591f3cee2dec7bcfc81f61bf7b1139bc64b2;hb=64d89d5ee1a554fbae8eb0a7231ccb2dc4428c1a;hp=f3567ef0f2d6ad1fcb510064fe924f5040a918b5;hpb=f855fdcf0d95ff9ba18a83f9a97d5368844d4f2c;p=fw%2Fopenocd

diff --git a/tcl/tools/memtest.tcl b/tcl/tools/memtest.tcl
index f3567ef0f..c7fa591f3 100644
--- 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
 	}