From 53228fbc2e61fd39f45a43e4be54e0121e608714 Mon Sep 17 00:00:00 2001
From: =?utf8?q?=C3=98yvind=20Harboe?= <oyvind.harboe@zylin.com>
Date: Thu, 28 Oct 2010 08:34:41 +0200
Subject: [PATCH] imx31pdk: use rclk w/1MHz fallback
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tcl/board/imx31pdk.cfg b/tcl/board/imx31pdk.cfg
index 4dfa4db6..502d4077 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
-- 
2.39.5