From ab818f68984aaf56f8b966f4b2e2da4e7f1051c9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?=C3=98yvind=20Harboe?= 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=utf8 Content-Transfer-Encoding: 8bit It can be useful to get an approximate measurement of rtck frequency for debugging purposes. Signed-off-by: Øyvind Harboe --- 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. -- 2.11.4.GIT