summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2008-12-16 22:04:00 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2008-12-16 22:04:00 (GMT)
commit365d4172afaf0e0a1931b7f2b39fcca7b29e6fe6 (patch)
treeea9d4c298da8fb3d6e50d0d92514f853c6e6706e /generic
parent9827c24b7fa3b934568ea04dee4ade7ebf20b232 (diff)
downloadtcl-365d4172afaf0e0a1931b7f2b39fcca7b29e6fe6.zip
tcl-365d4172afaf0e0a1931b7f2b39fcca7b29e6fe6.tar.gz
tcl-365d4172afaf0e0a1931b7f2b39fcca7b29e6fe6.tar.bz2
Backport re-fix of [2431847]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2800376..26cfba3 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.369.2.5 2008/12/15 23:26:59 dkf Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.369.2.6 2008/12/16 22:04:00 ferrieux Exp $
*/
#include "tclInt.h"
@@ -6678,10 +6678,7 @@ TclExecuteByteCode(
"%u => ERROR reading leaf dictionary key \"%s\": ",
opnd, O2S(dictPtr)), Tcl_GetObjResult(interp));
} else {
- Tcl_Obj *tmpObj;
-
- TclNewObj(tmpObj);
- Tcl_SetObjResult(interp, tmpObj);
+ Tcl_ResetResult(interp);
Tcl_AppendResult(interp, "key \"", TclGetString(OBJ_AT_TOS),
"\" not known in dictionary", NULL);
TRACE_WITH_OBJ(("%u => ERROR ", opnd), Tcl_GetObjResult(interp));