u8500.cfg : ste u8500 support

1 files changed, 326 insertions, 0 deletions

diff --git a/tcl/target/u8500.cfg b/tcl/target/u8500.cfg
new file mode 100644
index 00000000..f6e2091f
--- /dev/null
+++ b/tcl/target/u8500.cfg
@@ -0,0 +1,326 @@
+#  Copyright (C) ST-Ericsson SA 2011
+#  Author : michel.jaouen@stericsson.com
+#  U8500 target 
+
+proc mmu_off {} {
+	set cp [arm mrc 15 0 1 0 0]
+	set cp [expr ($cp & ~1)]
+	arm mcr 15 0 1 0 0 $cp
+}
+
+proc mmu_on {} {
+	set cp [arm mrc 15 0 1 0 0]
+	set cp [expr ($cp | 1)]
+	arm mcr 15 0 1 0 0 $cp
+}
+
+proc ocd_gdb_restart {target_id} {
+    global  _TARGETNAME_1
+	global _SMP
+    targets $_TARGETNAME_1
+	if { [expr ($_SMP == 1)] } {
+	cortex_a8 smp_off
+	}
+	rst_run
+	halt
+	if { [expr ($_SMP == 1)]} {
+	cortex_a8 smp_on
+	}
+}
+
+proc smp_reg {} {
+	global  _TARGETNAME_1
+    global  _TARGETNAME_2
+    targets $_TARGETNAME_1 
+	echo "$_TARGETNAME_1"
+	set pc1 [reg pc]
+	set stck1 [reg sp_svc]
+	targets  $_TARGETNAME_2
+	echo "$_TARGETNAME_1"
+	set pc2 [reg pc]
+	set stck2 [reg sp_svc]
+}
+
+
+proc u8500_tapenable {chip val} {
+	echo "JTAG tap enable $chip"
+}
+
+
+proc pwrsts { } {
+	global _CHIPNAME
+	irscan $_CHIPNAME.jrc 0x3a
+	drscan $_CHIPNAME.jrc 4 0
+	set pwrsts [drscan $_CHIPNAME.jrc 16 0]
+    echo "pwrsts ="$pwrsts
+    set a9 [expr (0x$pwrsts & 0xc)]
+	set ape [expr (0x$pwrsts & 0x3)]
+	if {[string equal "0" $ape]} {
+		echo "ape off"
+	} else {
+		echo "ape on"
+	}
+	echo "$a9"
+	switch $a9 {
+		4 {
+			echo "A9 in retention"
+		  }
+		8 {
+			echo "A9 100% DVFS"
+		  }
+		c { 
+			echo "A9 50% DVFS"
+		}
+	}
+}
+
+proc poll_pwrsts { } {
+	global _CHIPNAME
+	set result 1
+	set i 0
+	irscan $_CHIPNAME.jrc 0x3a
+	drscan $_CHIPNAME.jrc 4 0 
+	set pwrsts [drscan $_CHIPNAME.jrc 16 0]    
+	set pwrsts [expr (0x$pwrsts & 0xc)]
+	while {[string equal "4" $pwrsts] && $i<20} {
+		irscan $_CHIPNAME.jrc 0x3a
+		drscan $_CHIPNAME.jrc 4 0; 
+		set pwrsts [drscan $_CHIPNAME.jrc 16 0]    
+		set pwrsts [expr (0x$pwrsts & 0xc)]
+		if {![string equal "4" $pwrsts]} {
+			set result 1
+		} else {
+			set result 0
+			sleep 200
+			echo "loop $i"
+		}
+		incr i
+	}
+	return $result
+}
+
+proc halt_ { } {
+	if {[poll_pwrsts]==1} { 
+		halt
+	} else {
+		echo "halt failed : target in retention"
+	}
+}
+
+
+proc u8500_dapenable {chip} {
+}
+
+proc u8500_tapdisable {chip val} {
+	echo "JTAG tap disable $chip"
+}
+
+
+proc enable_apetap {} {
+	global  _CHIPNAME
+	global _TARGETNAME_2 
+    global _TARGETNAME_1
+	poll off
+	irscan $_CHIPNAME.jrc 0x3e
+	drscan $_CHIPNAME.jrc 8 0xcf 
+	jtag tapenable $_CHIPNAME.dap
+	irscan $_CHIPNAME.jrc 0x6
+	drscan $_CHIPNAME.jrc 32 0
+	irscan $_CHIPNAME.jrc 0x6
+	drscan $_CHIPNAME.jrc 32 0
+	set status [$_TARGETNAME_1 curstate]
+    if {[string equal "unknown" $status]} {
+	$_TARGETNAME_1 arp_examine
+	}
+	set status [$_TARGETNAME_2 curstate]
+    if {[string equal "unknown" $status]} {
+	$_TARGETNAME_2 arp_examine
+	}
+	}
+
+tcl_port 5555
+telnet_port 4444
+gdb_port 3333
+ 
+if { [info exists CHIPNAME] } {	
+global _CHIPNAME 
+    set  _CHIPNAME $CHIPNAME    
+} else {
+global _CHIPNAME 
+	set  _CHIPNAME u8500
+}
+
+if { [info exists ENDIAN] } {	
+	set  _ENDIAN $ENDIAN    
+} else {	 
+ # this defaults to a bigendian
+	set  _ENDIAN little
+}
+
+
+
+# Subsidiary TAP: APE with scan chains for ARM Debug, EmbeddedICE-RT,
+if { [info exists CPUTAPID ] } {
+   set _CPUTAPID $CPUTAPID
+} else {
+	set _CPUTAPID 0x4ba00477
+}
+jtag newtap $_CHIPNAME dap -irlen 4 -ircapture 0xe -irmask 0xf -expected-id $_CPUTAPID -disable
+jtag configure $_CHIPNAME.dap -event tap-enable \
+	"u8500_dapenable $_CHIPNAME.dap"
+jtag configure $_CHIPNAME.dap -event tap-disable \
+	"u8500_tapdisable $_CHIPNAME.dap 0xc0"
+
+
+#CLTAPC TAP JRC equivalent
+if { [info exists CLTAPC_ID ] } {
+   set _CLTAPC_ID $CLTAPC_ID
+} else {
+   set _CLTAPC_ID 0x22286041
+}
+jtag newtap $_CHIPNAME jrc -irlen 6 -ircapture 0x6 -irmask 0xf -expected-id $_CLTAPC_ID -ignore-version
+
+
+if { ![info exists TARGETNAME_1 ] } {
+global  _TARGETNAME_1
+set _TARGETNAME_1 $_CHIPNAME.cpu1
+} else {
+global  _TARGETNAME_1
+set _TARGETNAME_1 $TARGETNAME_1
+}
+
+if { [info exists  DAP_DBG1] } {
+	set _DAP_DBG1 $DAP_DBG1
+} else {
+	set _DAP_DBG1 0x801A8000 
+}
+if { [info exists  DAP_DBG2] } {
+	set _DAP_DBG2 $DAP_DBG2
+} else {
+	set _DAP_DBG2 0x801AA000 
+}
+
+target create $_TARGETNAME_1 cortex_a8 -chain-position $_CHIPNAME.dap -dbgbase $_DAP_DBG1 -coreid 0
+
+$_TARGETNAME_1 configure -event gdb-attach {
+	halt
+}
+
+
+if { ![info exists TARGETNAME_2 ] } {
+global  _TARGETNAME_2
+set _TARGETNAME_2 $_CHIPNAME.cpu2
+} else {
+global  _TARGETNAME_2
+set _TARGETNAME_2 $TARGETNAME_2
+}
+
+target create $_TARGETNAME_2 cortex_a8 -chain-position $_CHIPNAME.dap -dbgbase $_DAP_DBG2 -coreid 1
+
+$_TARGETNAME_2 configure -event gdb-attach {
+	halt
+}
+
+
+if {![info exists SMP]} {
+global _SMP
+set _SMP 1
+} else {
+global _SMP
+set _SMP $SMP
+}
+global SMP
+if { $_SMP == 1} { 
+target smp $_CHIPNAME.cpu2 $_CHIPNAME.cpu1
+}
+
+proc secsts1 { } {
+	global _CHIPNAME
+        irscan $_CHIPNAME.jrc 0x3a
+		drscan $_CHIPNAME.jrc 4 4
+	set secsts1 [drscan $_CHIPNAME.jrc 16 0]
+	echo "secsts1 ="$secsts1
+	set secsts1 [expr (0x$secsts1 & 0x4)]
+	if {![string equal "4" $secsts1]} {
+	echo "APE target secured"
+        } else {
+        echo "APE target not secured"
+        }
+}
+
+proc att { } {
+	global _CHIPNAME
+	jtag arp_init
+	irscan $_CHIPNAME.jrc 0x3a
+	drscan $_CHIPNAME.jrc 4 4
+	set secsts1 [drscan $_CHIPNAME.jrc 16 0]
+	echo "secsts1 ="$secsts1
+	set secsts1 [expr (0x$secsts1 & 0x4)]
+	if {[string equal "4" $secsts1]} {
+		if {[poll_pwrsts]==1} {
+		enable_apetap
+                } else {
+		echo "target in retention"
+		}
+	} else {
+		echo "target secured"
+	}
+}
+
+
+
+proc rst_run { } {
+	global _CHIPNAME
+	global _TARGETNAME_2
+	global _TARGETNAME_1
+	set status [$_TARGETNAME_1 curstate]
+	if {[string equal "halted" $status]} {
+	resume
+	targets $_TARGETNAME_1
+	}
+    set status [$_TARGETNAME_2 curstate]
+	if {[string equal "halted" $status]} {
+	resume
+	targets $_TARGETNAME_2
+	}
+   	poll off
+	jtag arp_init
+	reset
+	sleep 20
+	irscan $_CHIPNAME.jrc 0x3a
+	drscan $_CHIPNAME.jrc 4 4
+	set secsts1 [drscan $_CHIPNAME.jrc 16 0]
+	echo "secsts1 ="$secsts1
+	set secsts1 [expr (0x$secsts1 & 0x4)]
+	while {![string equal "4" $secsts1]} {
+		irscan u8500.jrc 0x3a
+		drscan u8500.jrc 4 4
+		set secsts1 [drscan $_CHIPNAME.jrc 16 0]
+		echo "secsts1 ="$secsts1
+		set secsts1 [expr (0x$secsts1 & 0x4)]
+	}
+	echo "ape debugable"
+	enable_apetap
+	poll on
+	targets $_TARGETNAME_1
+	dap apsel 1
+}
+
+if {![info exists MAXSPEED]} {
+global _MAXSPEED
+set _MAXSPEED 15000
+} else {
+global _MAXSPEED 
+set _MAXSPEED $MAXSPEED
+}
+global _MAXSPEED 
+adapter_khz $_MAXSPEED
+
+
+gdb_breakpoint_override hard
+set mem inaccessible-by-default-off
+
+jtag_ntrst_delay 100
+reset_config trst_and_srst combined
+
+