X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fhelper%2Fstartup.tcl;h=0ac1ebd71d4f776173b8ff3e44166a0a89e3d432;hp=eb1906661e865ccdcafb6f8b4e020f349b52c47b;hb=c2120ba28a7f3c473c05403e6015c95bec406336;hpb=e4218ebb8f7f5bf27578198e16ae5add99edeb75;ds=sidebyside

diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index eb1906661e..0ac1ebd71d 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -300,3 +300,19 @@ proc verify {args} {
 }
 
 add_help_text verify "synonym to verify_image"
+
+
+add_help_text telnet_async "<enable/disable> - enable/disable async messages. Default 0."
+
+global telnet_async_state
+set telnet_async_state 0
+proc telnet_async {state} {
+	global telnet_async_state
+	if {[string compare $state enable]==0} {
+		set telnet_async_state 1 
+	} elseif {[string compare $state disable]==0} {
+		set telnet_async_state 0 
+	} else {
+		return -code error "Illegal option $state"		
+	}
+}
\ No newline at end of file