From 396d73ad0cf2f12f2eac1af2ba82ff4878dd78de Mon Sep 17 00:00:00 2001
From: oharboe <oharboe@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Wed, 16 Jul 2008 07:22:17 +0000
Subject: better error messages for target event scripts.

git-svn-id: svn://svn.berlios.de/openocd/trunk@810 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/openocd.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/openocd.c')

diff --git a/src/openocd.c b/src/openocd.c
index b36347cd..2d7e7747 100644
--- a/src/openocd.c
+++ b/src/openocd.c
@@ -734,6 +734,9 @@ void add_jim(const char *name, int (*cmd)(Jim_Interp *interp, int argc, Jim_Obj
 	/* FIX!!! it would be prettier to invoke add_help_text... 
 	accumulate help text in Tcl helptext list.  */
     Jim_Obj *helptext=Jim_GetGlobalVariableStr(interp, "ocd_helptext", JIM_ERRMSG);
+    if (Jim_IsShared(helptext))
+        helptext = Jim_DuplicateObj(interp, helptext);
+    
 	Jim_Obj *cmd_entry=Jim_NewListObj(interp, NULL, 0);
 	
 	Jim_Obj *cmd_list=Jim_NewListObj(interp, NULL, 0);
-- 
cgit v1.2.3