From 5fefa83d078bfea4338f4bb2112c5ef98c54656e Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Thu, 17 Jul 2008 12:02:55 +0000
Subject: Collect output from openocd commands into openocd_output local
 variable

git-svn-id: svn://svn.berlios.de/openocd/trunk@820 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/startup.tcl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/startup.tcl')

diff --git a/src/startup.tcl b/src/startup.tcl
index 11ffe851..fc5f9e1a 100644
--- a/src/startup.tcl
+++ b/src/startup.tcl
@@ -95,12 +95,16 @@ add_help_text help "Tcl implementation of help command"
 
 #a bit of backwards compatibility
 proc openocd_throw {cmd} {
-	return [eval $cmd]
+	set openocd_output ""
+	eval $cmd
+	return $openocd_output
 }
 
 #a bit of backwards compatibility
 proc openocd {cmd} {
-	return [eval $cmd]
+	set openocd_output ""
+	eval $cmd
+	return $openocd_output
 }
 
 # If a fn is unknown to Tcl, we try to execute it as an OpenOCD command
-- 
cgit v1.2.3