tcl/target/lsch3_common: Remove 'mem2array'

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
index f48d59b9d8cc01c929c26c85992249a0fa2f7bd8..ad88b2e1b373b0791c1840f2c991447fefed1347 100644 (file)
--- 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