X-Git-Url: https://review.openocd.org/gitweb?a=blobdiff_plain;f=src%2Fserver%2Ftcl_server.c;h=f3a931ee53266f3e2fd84b879771dbab73594b76;hb=3777b08affb17de2ee6b1dc1436239c1fba7f99e;hp=30d55cbc348304e94ae03358f3af676d3d177153;hpb=b48d1f66378fac886d5bc32d7302da48c89d8a75;p=openocd.git

diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c
index 30d55cbc34..f3a931ee53 100644
--- a/src/server/tcl_server.c
+++ b/src/server/tcl_server.c
@@ -15,7 +15,7 @@
  *   You should have received a copy of the GNU General Public License     *
  *   along with this program; if not, write to the                         *
  *   Free Software Foundation, Inc.,                                       *
- *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ *   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.           *
  ***************************************************************************/
 
 #ifdef HAVE_CONFIG_H
@@ -129,9 +129,8 @@ static int tcl_input(struct connection *connection)
 			tclc->tc_line[tclc->tc_lineoffset-1] = '\0';
 			LOG_DEBUG("Executing script:\n %s", tclc->tc_line);
 			retval = Jim_Eval_Named(interp, tclc->tc_line, "remote:connection", 1);
-			LOG_DEBUG("Result: %d\n %s", retval,
-				Jim_GetString(Jim_GetResult(interp), &reslen));
 			result = Jim_GetString(Jim_GetResult(interp), &reslen);
+			LOG_DEBUG("Result: %d\n %s", retval, result);
 			retval = tcl_output(connection, result, reslen);
 			if (retval != ERROR_OK)
 				return retval;