tcl: replace FSF boilerplate with SPDX tag

[fw/openocd] / tcl / target / xilinx_zynqmp.cfg

diff --git a/tcl/target/xilinx_zynqmp.cfg b/tcl/target/xilinx_zynqmp.cfg
index b21603f6200ebe234269834d0402594825d559eb..2df7a4ff9176f4cbcc1d4ec0551da617b20ff0b3 100644 (file)
--- a/tcl/target/xilinx_zynqmp.cfg
+++ b/tcl/target/xilinx_zynqmp.cfg
@@ -92,12 +92,14 @@ for { set _core 0 } { $_core < $_cores } { incr _core } {
     eval $_command
 }
 
+target create uscale.axi mem_ap -dap uscale.dap -ap-num 0
+
 eval $_smp_command
 targets $_TARGETNAME.0
 
 proc core_up { args } {
     global _TARGETNAME
-    foreach { core } [set args] {
+    foreach core $args {
         $_TARGETNAME.$core arp_examine
     }
 }