diff options
| author | Steven Stallion <stallion@squareup.com> | 2018-11-26 20:01:34 -0600 |
|---|---|---|
| committer | Tomas Vanek <vanekt@fbl.cz> | 2018-12-06 09:38:41 +0000 |
| commit | 82dd17e2488ae233d8818901ec6f07525694e55e (patch) | |
| tree | e5bfe75527eab6fcb995e811b3fd827501c0cf7e /tcl | |
| parent | dc415cb26c2432629630837f26fd39e6796aaf8d (diff) | |
| download | riscv-openocd-82dd17e2488ae233d8818901ec6f07525694e55e.zip riscv-openocd-82dd17e2488ae233d8818901ec6f07525694e55e.tar.gz riscv-openocd-82dd17e2488ae233d8818901ec6f07525694e55e.tar.bz2 | |
mem_helper: add mrh command
This patch adds support for reading halfword values from memory. This
command compliments existing support for writing halfwords (mwh).
Change-Id: I8ec628e65c05a7f00aa57e3af0f228eb8bd4d14e
Signed-off-by: Steven Stallion <stallion@squareup.com>
Reviewed-on: http://openocd.zylin.com/4781
Tested-by: jenkins
Reviewed-by: Antonio Borneo <borneo.antonio@gmail.com>
Diffstat (limited to 'tcl')
| -rw-r--r-- | tcl/mem_helper.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tcl/mem_helper.tcl b/tcl/mem_helper.tcl index 86ad00f..5955793 100644 --- a/tcl/mem_helper.tcl +++ b/tcl/mem_helper.tcl @@ -10,6 +10,17 @@ proc mrw {reg} { add_usage_text mrw "address" add_help_text mrw "Returns value of word in memory." +# mrh: "memory read halfword", returns value of $reg +proc mrh {reg} { + set value "" + mem2array value 16 $reg 1 + return $value(0) +} + +add_usage_text mrh "address" +add_help_text mrh "Returns value of halfword in memory." + +# mrb: "memory read byte", returns value of $reg proc mrb {reg} { set value "" mem2array value 8 $reg 1 |