diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-02-25 15:59:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-02-25 15:59:46 (GMT) |
| commit | 7c6802ac2c0c47857d3597536ae3b733239305ba (patch) | |
| tree | 53831b52abfd756ed7ea2c55259e485020fbd3b8 /generic | |
| parent | 1b3c04c035c65d62a97f6e313d435fc6b256266b (diff) | |
| parent | 259729fa361e6d184ef91be067a93309e14cd998 (diff) | |
| download | tcl-7c6802ac2c0c47857d3597536ae3b733239305ba.zip tcl-7c6802ac2c0c47857d3597536ae3b733239305ba.tar.gz tcl-7c6802ac2c0c47857d3597536ae3b733239305ba.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 9607d6e..cd0371b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5260,6 +5260,7 @@ TEBCresume( } else { length = Tcl_UtfToUpper(TclGetString(valuePtr)); Tcl_SetObjLength(valuePtr, length); + TclFreeIntRep(valuePtr); TRACE_APPEND(("\"%.20s\"\n", O2S(valuePtr))); NEXT_INST_F(1, 0, 0); } @@ -5276,6 +5277,7 @@ TEBCresume( } else { length = Tcl_UtfToLower(TclGetString(valuePtr)); Tcl_SetObjLength(valuePtr, length); + TclFreeIntRep(valuePtr); TRACE_APPEND(("\"%.20s\"\n", O2S(valuePtr))); NEXT_INST_F(1, 0, 0); } @@ -5292,6 +5294,7 @@ TEBCresume( } else { length = Tcl_UtfToTitle(TclGetString(valuePtr)); Tcl_SetObjLength(valuePtr, length); + TclFreeIntRep(valuePtr); TRACE_APPEND(("\"%.20s\"\n", O2S(valuePtr))); NEXT_INST_F(1, 0, 0); } |