diff options
| -rw-r--r-- | src/jtag/startup.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/jtag/startup.tcl b/src/jtag/startup.tcl index 496fdc82..fdd30781 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. |