tcl: move SPDX tag as first line

[fw/openocd] / tcl / cpu / arc / em.tcl

diff --git a/tcl/cpu/arc/em.tcl b/tcl/cpu/arc/em.tcl
index f0455bb74200f6e6f6c7e5b45f64fa6a90e53c1b..13c5b437c013483a6461be5a288fba970e887d38 100644 (file)
--- a/tcl/cpu/arc/em.tcl
+++ b/tcl/cpu/arc/em.tcl
@@ -1,8 +1,8 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
+
 #  Copyright (C) 2015, 2020 Synopsys, Inc.
 #  Anton Kolesov <anton.kolesov@synopsys.com>
 #  Didin Evgeniy <didin@synopsys.com>
-#
-# SPDX-License-Identifier: GPL-2.0-or-later
 
 source [find cpu/arc/v2.tcl]
 
@@ -27,6 +27,6 @@ proc arc_em_reset { {target ""} } {
        # This is specific to ARC EM.
        set debug [arc jtag get-aux-reg 5]
        if { !($debug & (1 << 20)) } {
-               arc jtag set-aux-reg 5 [expr $debug | (1 << 20)]
+               arc jtag set-aux-reg 5 [expr {$debug | (1 << 20)}]
        }
 }