X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Fmem_helper.tcl;h=9ea285a22c8ea5736039211337cfa48bd8742d1b;hb=3ba2b515b528094b43d5be5056b9e52f1dc33969;hp=5955793e25692883a0ab974a900f205f61ff8045;hpb=82dd17e2488ae233d8818901ec6f07525694e55e;p=fw%2Fopenocd

diff --git a/tcl/mem_helper.tcl b/tcl/mem_helper.tcl
index 5955793e2..9ea285a22 100644
--- a/tcl/mem_helper.tcl
+++ b/tcl/mem_helper.tcl
@@ -34,7 +34,7 @@ add_help_text mrb "Returns value of byte in memory."
 #       $reg <== ((value & ~$clearbits) | $setbits)
 proc mmw {reg setbits clearbits} {
 	set old [mrw $reg]
-	set new [expr ($old & ~$clearbits) | $setbits]
+	set new [expr {($old & ~$clearbits) | $setbits}]
 	mww $reg $new
 }