X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=tcl%2Fboard%2Fimx31pdk.cfg;h=502d4077430955983a244c08f224c83fe5d0a613;hp=4dfa4db60145d2f8e3a9284bbc3e21e8f96cb0be;hb=53228fbc2e61fd39f45a43e4be54e0121e608714;hpb=2ff1adfa79853dde77fe2698dd83e34b116daacc

diff --git a/tcl/board/imx31pdk.cfg b/tcl/board/imx31pdk.cfg
index 4dfa4db601..502d407743 100644
--- a/tcl/board/imx31pdk.cfg
+++ b/tcl/board/imx31pdk.cfg
@@ -3,6 +3,23 @@ source [find target/imx31.cfg]
 source [find target/imx.cfg]
 $_TARGETNAME configure -event reset-init { imx31pdk_init }
 
+proc self_test {} {
+	echo "Running 100 iterations of test."
+	dump_image /ram/test 0x80000000 0x40000
+	for {set i 0} {$i < 100} {set i [expr $i+1]} {
+		echo "Iteration $i"
+		reset init
+		mww 0x80000000 0x12345678 0x10000
+		load_image /ram/test 0x80000000 bin
+		verify_image /ram/test 0x80000000 bin
+	}
+}
+
+
+# Slow fallback frequency
+# measure_clk indicates ca. 3-4MHz.
+jtag_rclk 1000
+
 proc imx31pdk_init { } {
 
 	imx3x_reset