summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2009-11-10 20:53:24 (GMT)
committerandreas_kupries <akupries@shaw.ca>2009-11-10 20:53:24 (GMT)
commitcc9f7a669ed8913de4f2b1dbee1bf961297a4c02 (patch)
tree57a8698ad7e065c2dbd481bbb8ea99295b72a16d /generic
parent1cced1e04ddb24fb248965ccecb3815be9fa44a2 (diff)
downloadtcl-cc9f7a669ed8913de4f2b1dbee1bf961297a4c02.zip
tcl-cc9f7a669ed8913de4f2b1dbee1bf961297a4c02.tar.gz
tcl-cc9f7a669ed8913de4f2b1dbee1bf961297a4c02.tar.bz2
* generic/tclBasic.c: Plug another leak in TCL_EVAL_DIRECT
evaluation. Forward port from Tcl 8.5 branch, change by Don Porter.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index be9ce4b..cca8fba 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.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: tclBasic.c,v 1.406 2009/11/09 22:36:19 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.407 2009/11/10 20:53:24 andreas_kupries Exp $
*/
#include "tclInt.h"
@@ -6108,17 +6108,17 @@ TclNREvalObjEx(
Tcl_DecrRefCount(ctxPtr->data.eval.path);
}
TclStackFree(interp, ctxPtr);
+ }
- /*
- * Now release the lock on the continuation line information, if
- * any, and restore the caller's settings.
- */
+ /*
+ * Now release the lock on the continuation line information, if any,
+ * and restore the caller's settings.
+ */
- if (iPtr->scriptCLLocPtr) {
- Tcl_Release (iPtr->scriptCLLocPtr);
- }
- iPtr->scriptCLLocPtr = saveCLLocPtr;
+ if (iPtr->scriptCLLocPtr) {
+ Tcl_Release (iPtr->scriptCLLocPtr);
}
+ iPtr->scriptCLLocPtr = saveCLLocPtr;
TclDecrRefCount(objPtr);
return result;
}