From ab818f68984aaf56f8b966f4b2e2da4e7f1051c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=98yvind=20Harboe?= <oyvind.harboe@zylin.com>
Date: Mon, 2 Aug 2010 11:15:21 +0200
Subject: [PATCH] jtag: measure_clk debug proc
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

It can be useful to get an approximate measurement of
rtck frequency for debugging purposes.

Signed-off-by: Øyvind Harboe <oyvind.harboe@zylin.com>
---
 src/jtag/startup.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/jtag/startup.tcl b/src/jtag/startup.tcl
index 496fdc82e..fdd307815 100644
--- a/src/jtag/startup.tcl
+++ b/src/jtag/startup.tcl
@@ -76,6 +76,15 @@ proc srst_asserted {} {
 	puts "Sensed nSRST asserted."
 }
 
+# measure actual JTAG clock
+proc measure_clk {} {
+	set start_time [ms];
+	runtest 10000000; 
+	echo "Running at more than [expr 10000.0 / ([ms]-$start_time)] kHz";
+}
+
+add_help_text measure_clk "Runs a test to measure the JTAG clk. Useful with RCLK / RTCK."
+
 # BEGIN MIGRATION AIDS ...  these adapter operations originally had
 # JTAG-specific names despite the fact that the operations were not
 # specific to JTAG, or otherewise had troublesome/misleading names.