tcl: move SPDX tag as first line
[fw/openocd] / tcl / cpu / arc / em.tcl
1 # SPDX-License-Identifier: GPL-2.0-or-later
2
3 #  Copyright (C) 2015, 2020 Synopsys, Inc.
4 #  Anton Kolesov <anton.kolesov@synopsys.com>
5 #  Didin Evgeniy <didin@synopsys.com>
6
7 source [find cpu/arc/v2.tcl]
8
9 proc arc_em_examine_target { {target ""} } {
10         # Will set current target
11         arc_v2_examine_target $target
12 }
13
14 proc arc_em_init_regs { } {
15         arc_v2_init_regs
16
17         [target current] configure \
18                 -event examine-end "arc_em_examine_target [target current]"
19 }
20
21 # Scripts in "target" folder should call this function instead of direct
22 # invocation of arc_common_reset.
23 proc arc_em_reset { {target ""} } {
24         arc_v2_reset $target
25
26         # Set DEBUG.ED bit to enable clock in actionpoint module.
27         # This is specific to ARC EM.
28         set debug [arc jtag get-aux-reg 5]
29         if { !($debug & (1 << 20)) } {
30                 arc jtag set-aux-reg 5 [expr {$debug | (1 << 20)}]
31         }
32 }