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 | 5bce11a1c8af32ec84672904b8cba0f99aa40592 (patch) | |
| tree | 9f55ef6c9fa5893b5c46870f007b523da60b8c62 | |
| parent | 32cc5d8d3c7daf27eaadf855fbd0b64aa7143382 (diff) | |
| download | tcl-5bce11a1c8af32ec84672904b8cba0f99aa40592.zip tcl-5bce11a1c8af32ec84672904b8cba0f99aa40592.tar.gz tcl-5bce11a1c8af32ec84672904b8cba0f99aa40592.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); |