projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
}
return $pattern
}
- set antiPattern [expr
~$pattern
]
+ set antiPattern [expr
{~$pattern}
]
memwrite32 [expr {$baseAddress + $offset}] $antiPattern
}
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]
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
}
echo "FAILED memTestDevice_antipattern: Address: [convertToHex $addr], antiPattern: $antiPatternHex, Returned: $dataHex, offset: $offset"
return $pattern
}