drivers/linuxgpiod: Migrate to adapter gpio commands

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

diff --git a/tcl/tools/memtest.tcl b/tcl/tools/memtest.tcl
index f3567ef0f2d6ad1fcb510064fe924f5040a918b5..f70f950d73e8be6c58927f45681a256883c11ac5 100644 (file)
--- a/tcl/tools/memtest.tcl
+++ b/tcl/tools/memtest.tcl
@@ -1,3 +1,5 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
 # Algorithms by Michael Barr, released into public domain
 # Ported to OpenOCD by Shane Volpe, additional fixes by Paul Fertser
 
@@ -166,7 +168,7 @@ proc memTestDevice { baseAddress nBytes } {
            return $pattern
        }
 
-       set antiPattern [expr ~$pattern]
+       set antiPattern [expr {~$pattern}]
        memwrite32 [expr {$baseAddress + $offset}] $antiPattern
     }
 
@@ -177,7 +179,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
        }