ipdbg: fix double free of virtual-ir data

[openocd.git] / tcl / board / icnova_sam9g45_sodimm.cfg

diff --git a/tcl/board/icnova_sam9g45_sodimm.cfg b/tcl/board/icnova_sam9g45_sodimm.cfg
index 8a0736b1fcdf21496594a7d885512054830a1a8d..7efa8c2b528b82cd647be418b08f9a61ac67746d 100644 (file)
--- a/tcl/board/icnova_sam9g45_sodimm.cfg
+++ b/tcl/board/icnova_sam9g45_sodimm.cfg
@@ -1,3 +1,5 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
 #################################################################################################
 #                                                                                                                                              #
 # Author: Lars Poeschel (larsi@wh2.tu-dresden.de)                                                                                              #
@@ -43,9 +45,7 @@ flash bank $_FLASHNAME cfi 0x10000000 0x00800000 2 2 $_TARGETNAME
 
 
 proc read_register {register} {
-        set result ""
-        mem2array result 32 $register 1
-        return $result(0)
+       return [read_memory $register 32 1]
 }
 
 proc at91sam9g45_start { } {