tcl: add SPDX tag

[openocd.git] / tcl / chip / atmel / at91 / usarts.tcl

diff --git a/tcl/chip/atmel/at91/usarts.tcl b/tcl/chip/atmel/at91/usarts.tcl
index 95aced882d6894b9225ac7b238426103f94f5670..62a651bbdc4f87c20930ddc5da5624a43717ce11 100644 (file)
--- a/tcl/chip/atmel/at91/usarts.tcl
+++ b/tcl/chip/atmel/at91/usarts.tcl
@@ -1,3 +1,5 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
 # the DBGU and USARTs are 'almost' indentical'
 set DBGU_CR         [expr {$AT91C_BASE_DBGU + 0x00000000}]
 set DBGU_MR         [expr {$AT91C_BASE_DBGU + 0x00000004}]
@@ -63,7 +65,7 @@ proc show_mmr_USx_MR_helper { NAME ADDR VAL } {
     }
     echo [format "\tParity: %s " $s]
 
-    set x [expr 5 + [show_normalize_bitfield $VAL 7 6]]
+    set x [expr {5 + [show_normalize_bitfield $VAL 7 6]}]
     echo [format "\tDatabits: %d" $x]
 
     set x [show_normalize_bitfield $VAL 13 12]
@@ -89,7 +91,7 @@ foreach WHO { US0 US1 US2 US3 US4 US5 US6 US7 US8 US9 } {
            set vn [set WHO]_[set REG]
            # vn = USx_IER
            # vv = variable value
-           set vv [expr $$n + [set USx_[set REG]]]
+           set vv [expr "$$n + [set USx_[set REG]]"]
            # And VV is the address in memory of that register