tcl regression fixes.

git-svn-id: svn://svn.berlios.de/openocd/trunk@774 b42882b7-edfa-0310-969c-e2dbd0fdcd60
2008-07-08 16:05:59 +00:00
parent 74d4cf8ee3
commit f0f5157e09
2 changed files with 14 additions and 14 deletions
--- a/src/target/target.c
+++ b/src/target/target.c
@@ -1494,7 +1494,7 @@ int handle_target_script_command(struct command_context_s *cmd_ctx, char *cmd, c
 	/* Define a tcl procedure which we'll invoke upon some event */
 	command_run_linef(cmd_ctx, 
 	"proc target_%s_%d {} {"
-	"openocd {script %s}" 
+	"openocd {script %s} ; return \"\"" 
 	"}",
 	event,
 	get_num_by_target(target),