1 files changed, 11 insertions, 1 deletions
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index e60ad976..1b5c06e2 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -160,4 +160,14 @@ proc ocd_gdb_restart {target_num} {
 	# Fix!!! we're resetting all targets here! Really we should reset only
 	# one target
 	reset halt
-}
-\ No newline at end of file
+}
+
+
+# If RCLK is not supported, use fallback_speed_khz
+proc jtag_rclk {fallback_speed_khz} {
+	if {[catch {jtag_khz 0}]!=0} {
+		jtag_khz $fallback_speed_khz
+	}
+}
+
+add_help_text jtag_rclk "fallback_speed_khz - set JTAG speed to RCLK or use fallback speed"
+\ No newline at end of file