From: Øyvind Harboe <oyvind.harboe@zylin.com>
Date: Mon, 2 Aug 2010 09:15:21 +0000 (+0200)
Subject: jtag: measure_clk debug proc
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=ab818f68984aaf56f8b966f4b2e2da4e7f1051c9;p=fw%2Fopenocd

jtag: measure_clk debug proc

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

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

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.