tcl/target/lsch3_common: Remove 'mem2array'

zapb-0 · borneoa · commit a9015ba79d73 · 2025-06-21T07:38:58.000Z
The 'mem2array' function is deprecated and replaced by 'read_memory'. Change-Id: Iea54a390d67978d20dbb99ab6f7f4178dda481c2 Reported-by: Paul Fertser <fercerpav@gmail.com> Signed-off-by: Marc Schink <dev@zapb.de> Reviewed-on: https://review.openocd.org/c/openocd/+/8962 Reviewed-by: Paul Fertser <fercerpav@gmail.com> Tested-by: jenkins Reviewed-by: Antonio Borneo <borneo.antonio@gmail.com>
diff --git a/tcl/target/lsch3_common.cfg b/tcl/target/lsch3_common.cfg
@@ -51,8 +51,8 @@ proc release_cpu {cpu} {
 	}
 
 	# Release the cpu; it will start executing something bogus
-	mem2array regs 32 $RST_BRRL 1
-	mww $RST_BRRL [expr {$regs(0) | 1 << $cpu}]
+	set reg [read_memory $RST_BRRL 32 1]
+	mww $RST_BRRL [expr {$reg | 1 << $cpu}]
 
 	if {$not_halted} {
 		resume

Original file line number	Diff line number	Diff line change
`@@ -51,8 +51,8 @@ proc release_cpu {cpu} {`
`51`	`51`	`}`
`52`	`52`
`53`	`53`	`# Release the cpu; it will start executing something bogus`
`54`		`- mem2array regs 32 $RST_BRRL 1`
`55`		`- mww $RST_BRRL [expr {$regs(0) \| 1 << $cpu}]`
	`54`	`+ set reg [read_memory $RST_BRRL 32 1]`
	`55`	`+ mww $RST_BRRL [expr {$reg \| 1 << $cpu}]`
`56`	`56`
`57`	`57`	`if {$not_halted} {`
`58`	`58`	`resume`