+# SPDX-License-Identifier: GPL-2.0-or-later
+
#################################################################################################
# #
# Author: Lars Poeschel (larsi@wh2.tu-dresden.de) #
proc read_register {register} {
- set result ""
- mem2array result 32 $register 1
- return $result(0)
+ return [read_memory $register 32 1]
}
proc at91sam9g45_start { } {