projects
/
fw
/
openocd
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rtos: Rewrite rtos_qsymbol() and fix auto-detect false positive
[fw/openocd]
/
tcl
/
memory.tcl
diff --git
a/tcl/memory.tcl
b/tcl/memory.tcl
index c4418fa1bed5ef4dc5659b4588305a96b13f3ccc..2719d3feccfe34f666fa93170d7b479a0ddf5d99 100644
(file)
--- a/
tcl/memory.tcl
+++ b/
tcl/memory.tcl
@@
-80,7
+80,7
@@
proc address_info { ADDRESS } {
proc memread32 {ADDR} {
set foo(0) 0
proc memread32 {ADDR} {
set foo(0) 0
- if ![ catch {
ocd_
mem2array foo 32 $ADDR 1 } msg ] {
+ if ![ catch { mem2array foo 32 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memread32: $msg"
return $foo(0)
} else {
error "memread32: $msg"
@@
-89,7
+89,7
@@
proc memread32 {ADDR} {
proc memread16 {ADDR} {
set foo(0) 0
proc memread16 {ADDR} {
set foo(0) 0
- if ![ catch {
ocd_
mem2array foo 16 $ADDR 1 } msg ] {
+ if ![ catch { mem2array foo 16 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memread16: $msg"
return $foo(0)
} else {
error "memread16: $msg"
@@
-98,7
+98,7
@@
proc memread16 {ADDR} {
proc memread8 {ADDR} {
set foo(0) 0
proc memread8 {ADDR} {
set foo(0) 0
- if ![ catch {
ocd_
mem2array foo 8 $ADDR 1 } msg ] {
+ if ![ catch { mem2array foo 8 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memread8: $msg"
return $foo(0)
} else {
error "memread8: $msg"
@@
-107,7
+107,7
@@
proc memread8 {ADDR} {
proc memwrite32 {ADDR DATA} {
set foo(0) $DATA
proc memwrite32 {ADDR DATA} {
set foo(0) $DATA
- if ![ catch {
ocd_
array2mem foo 32 $ADDR 1 } msg ] {
+ if ![ catch { array2mem foo 32 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memwrite32: $msg"
return $foo(0)
} else {
error "memwrite32: $msg"
@@
-116,7
+116,7
@@
proc memwrite32 {ADDR DATA} {
proc memwrite16 {ADDR DATA} {
set foo(0) $DATA
proc memwrite16 {ADDR DATA} {
set foo(0) $DATA
- if ![ catch {
ocd_
array2mem foo 16 $ADDR 1 } msg ] {
+ if ![ catch { array2mem foo 16 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memwrite16: $msg"
return $foo(0)
} else {
error "memwrite16: $msg"
@@
-125,7
+125,7
@@
proc memwrite16 {ADDR DATA} {
proc memwrite8 {ADDR DATA} {
set foo(0) $DATA
proc memwrite8 {ADDR DATA} {
set foo(0) $DATA
- if ![ catch {
ocd_
array2mem foo 8 $ADDR 1 } msg ] {
+ if ![ catch { array2mem foo 8 $ADDR 1 } msg ] {
return $foo(0)
} else {
error "memwrite8: $msg"
return $foo(0)
} else {
error "memwrite8: $msg"