imx31pdk: use rclk w/1MHz fallback

measure_clk indicates ca. 3-4MHz, so 1MHz should be safe.

Added self_test proc used to test that rclk worked.

Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>

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