git.gag.com Git - fw/openocd/blob - tcl/mem_helper.tcl

   1 # Helper for common memory read/modify/write procedures
   2
   3 # mrw: "memory read word", returns value of $reg
   4 proc mrw {reg} {
   5         return [read_memory $reg 32 1]
   6 }
   7
   8 add_usage_text mrw "address"
   9 add_help_text mrw "Returns value of word in memory."
  10
  11 # mrh: "memory read halfword", returns value of $reg
  12 proc mrh {reg} {
  13         return [read_memory $reg 16 1]
  14 }
  15
  16 add_usage_text mrh "address"
  17 add_help_text mrh "Returns value of halfword in memory."
  18
  19 # mrb: "memory read byte", returns value of $reg
  20 proc mrb {reg} {
  21         return [read_memory $reg 8 1]
  22 }
  23
  24 add_usage_text mrb "address"
  25 add_help_text mrb "Returns value of byte in memory."
  26
  27 # mmw: "memory modify word", updates value of $reg
  28 #       $reg <== ((value & ~$clearbits) | $setbits)
  29 proc mmw {reg setbits clearbits} {
  30         set old [mrw $reg]
  31         set new [expr {($old & ~$clearbits) | $setbits}]
  32         mww $reg $new
  33 }
  34
  35 add_usage_text mmw "address setbits clearbits"
  36 add_help_text mmw "Modify word in memory. new_val = (old_val & ~clearbits) | setbits;"