diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-04 15:01:57 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-01-04 15:01:57 (GMT) |
| commit | a2640e1242a6bda25202eb5d73b7cc6a5fa239ef (patch) | |
| tree | 9f55ef6c9fa5893b5c46870f007b523da60b8c62 | |
| parent | 18d9d66f4d3a6a8b468474e25d5bacee500bda85 (diff) | |
| download | tcl-a2640e1242a6bda25202eb5d73b7cc6a5fa239ef.zip tcl-a2640e1242a6bda25202eb5d73b7cc6a5fa239ef.tar.gz tcl-a2640e1242a6bda25202eb5d73b7cc6a5fa239ef.tar.bz2 | |
Fix memory leak in [format] compiler.
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 8fa191b..752db93 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3082,7 +3082,7 @@ TclCompileFormatCmd( * after our attempt to spot a literal). */ - for (; --i>=0 ;) { + for (; i>=0 ; i--) { Tcl_DecrRefCount(objv[i]); } ckfree(objv); |