X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=tcl%2Fmemory.tcl;h=c4418fa1bed5ef4dc5659b4588305a96b13f3ccc;hp=219d39fa79e7a04579cb48c4f2ebb6e278289695;hb=f86137066a6b42c46c457c9837a8015990bf71e6;hpb=dbbc9c41f7db210b0a4e226540a28e0a8a5019bf diff --git a/tcl/memory.tcl b/tcl/memory.tcl index 219d39fa79..c4418fa1be 100644 --- a/tcl/memory.tcl +++ b/tcl/memory.tcl @@ -1,4 +1,4 @@ -# MEMORY +# MEMORY # # All Memory regions have two components. # (1) A count of regions, in the form N_NAME @@ -62,7 +62,7 @@ proc iswithin { ADDRESS BASE LEN } { } proc address_info { ADDRESS } { - + foreach WHERE { FLASH RAM MMREGS XMEM UNKNOWN } { if { info exists $WHERE } { set lmt [set N_[set WHERE]] @@ -85,7 +85,7 @@ proc memread32 {ADDR} { } else { error "memread32: $msg" } -} +} proc memread16 {ADDR} { set foo(0) 0 @@ -94,7 +94,7 @@ proc memread16 {ADDR} { } else { error "memread16: $msg" } -} +} proc memread8 {ADDR} { set foo(0) 0 @@ -103,7 +103,7 @@ proc memread8 {ADDR} { } else { error "memread8: $msg" } -} +} proc memwrite32 {ADDR DATA} { set foo(0) $DATA @@ -112,7 +112,7 @@ proc memwrite32 {ADDR DATA} { } else { error "memwrite32: $msg" } -} +} proc memwrite16 {ADDR DATA} { set foo(0) $DATA @@ -121,7 +121,7 @@ proc memwrite16 {ADDR DATA} { } else { error "memwrite16: $msg" } -} +} proc memwrite8 {ADDR DATA} { set foo(0) $DATA @@ -130,4 +130,4 @@ proc memwrite8 {ADDR DATA} { } else { error "memwrite8: $msg" } -} +}