X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=tcl%2Ftarget%2Fstm32h7x.cfg;h=f2a5c42c6d7386e616a4936a6849274c3cffcc25;hb=4ddca7dd7186a908397570a25f7ad7454bab3a20;hp=26d0d9301a4f912f85af7fe4fb9d2c93ae420e0c;hpb=c945d6e6160598894319860a92b602a192c2c268;p=fw%2Fopenocd

diff --git a/tcl/target/stm32h7x.cfg b/tcl/target/stm32h7x.cfg
index 26d0d9301..f2a5c42c6 100644
--- a/tcl/target/stm32h7x.cfg
+++ b/tcl/target/stm32h7x.cfg
@@ -142,7 +142,7 @@ if {[using_jtag]} {
 # usage does not work with HLA, so is not done by default. That change could be
 # made in a local configuration file if connect_assert_srst mode is needed for
 # a specific application and a non-HLA adapter is in use.
-reset_config srst_only srst_nogate
+reset_config srst_nogate
 
 if {![using_hla]} {
    # if srst is not fitted use SYSRESETREQ to
@@ -208,7 +208,7 @@ proc stm32h7x_get_chipname {} {
 	if {$sep == -1} {
 		return $t
 	}
-	return [string range $t 0 [expr $sep - 1]]
+	return [string range $t 0 [expr {$sep - 1}]]
 }
 
 if {[set $_CHIPNAME.DUAL_CORE]} {
@@ -240,7 +240,7 @@ proc stm32h7x_mrw {used_target reg} {
 # like mmw, but with target selection
 proc stm32h7x_mmw {used_target reg setbits clearbits} {
 	set old [stm32h7x_mrw $used_target $reg]
-	set new [expr ($old & ~$clearbits) | $setbits]
+	set new [expr {($old & ~$clearbits) | $setbits}]
 	$used_target mww $reg $new
 }
 
@@ -251,10 +251,10 @@ proc stm32h7x_dbgmcu_mmw {reg_offset setbits clearbits} {
 	if {![using_hla]} {
 		set _CHIPNAME [stm32h7x_get_chipname]
 		set used_target $_CHIPNAME.ap2
-		set reg_addr [expr 0xE00E1000 + $reg_offset]
+		set reg_addr [expr {0xE00E1000 + $reg_offset}]
 	} {
 		set used_target [target current]
-		set reg_addr [expr 0x5C001000 + $reg_offset]
+		set reg_addr [expr {0x5C001000 + $reg_offset}]
 	}
 
 	stm32h7x_mmw $used_target $reg_addr $setbits $clearbits