summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-03-02 17:56:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-03-02 17:56:25 (GMT)
commitcd496d782fff1c8e8c78906717567c871519387e (patch)
treee709815aec1006f933b22e85f6406763f51ede60 /generic
parent986970a95155cda5c067008629993af20bd86e52 (diff)
downloadtcl-cd496d782fff1c8e8c78906717567c871519387e.zip
tcl-cd496d782fff1c8e8c78906717567c871519387e.tar.gz
tcl-cd496d782fff1c8e8c78906717567c871519387e.tar.bz2
* generic/tclCmdIL.c (Tcl_LreverseObjCmd): Added missing
TclInvalidateStringRep() call when we directly manipulate the intrep of an unshared "list" Tcl_Obj. [Bug 1672585].
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdIL.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 05aa154..c288789 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.105 2007/03/02 16:06:32 dgp Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.106 2007/03/02 17:56:26 dgp Exp $
*/
#include "tclInt.h"
@@ -3389,6 +3389,7 @@ Tcl_LreverseObjCmd(
elemv[i] = elemv[j];
elemv[j] = tmp;
}
+ TclInvalidateStringRep(objv[1]);
Tcl_SetObjResult(interp, objv[1]);
}
return TCL_OK;