diff options
| author | Matthias Welwarsky <matthias.welwarsky@sysgo.com> | 2016-07-11 15:23:42 +0200 |
|---|---|---|
| committer | Andreas Fritiofson <andreas.fritiofson@gmail.com> | 2016-07-17 22:36:47 +0100 |
| commit | 7a0473bbb6cd4d83ce43fc4b722083b315b80a98 (patch) | |
| tree | 31d934d63946f50bc175e7912c3e990240b8af93 /tcl | |
| parent | 800fe0b8855165d48ae227fd07657e1fa2c1b2d4 (diff) | |
tcl: add mrb command to mem_helper.tcl
add "mrb" command to read a byte of memory into a variable
Change-Id: I5ddc9fbcc55958a249548627bd15824df6dc0d61
Signed-off-by: Matthias Welwarsky <matthias.welwarsky@sysgo.com>
Reviewed-on: http://openocd.zylin.com/3542
Tested-by: jenkins
Reviewed-by: Andreas Fritiofson <andreas.fritiofson@gmail.com>
Diffstat (limited to 'tcl')
| -rw-r--r-- | tcl/mem_helper.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tcl/mem_helper.tcl b/tcl/mem_helper.tcl index a3d92cb8..86ad00f7 100644 --- a/tcl/mem_helper.tcl +++ b/tcl/mem_helper.tcl @@ -10,6 +10,15 @@ proc mrw {reg} { add_usage_text mrw "address" add_help_text mrw "Returns value of word in memory." +proc mrb {reg} { + set value "" + mem2array value 8 $reg 1 + return $value(0) +} + +add_usage_text mrb "address" +add_help_text mrb "Returns value of byte in memory." + # mmw: "memory modify word", updates value of $reg # $reg <== ((value & ~$clearbits) | $setbits) proc mmw {reg setbits clearbits} { |