From 3cf838cdbb975ba9d9f11e400a0bd7681c2b9bed Mon Sep 17 00:00:00 2001 From: dgp Date: Mon, 15 Aug 2011 15:56:16 +0000 Subject: 3390272 Leak of [info script] value. --- ChangeLog | 4 ++++ generic/tclBasic.c | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 0b0a621..96c56b2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2011-08-15 Don Porter + + * generic/tclBasic.c: [Bug 3390272] Leak of [info script] value. + 2011-08-15 Jan Nijtmans * win/tclWinPort.h: [Bug 3388350] mingw64 compiler warnings diff --git a/generic/tclBasic.c b/generic/tclBasic.c index eb041c6..764e0d9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1352,6 +1352,10 @@ DeleteInterpProc( if (iPtr->execEnvPtr != NULL) { TclDeleteExecEnv(iPtr->execEnvPtr); } + if (iPtr->scriptFile) { + Tcl_DecrRefCount(iPtr->scriptFile); + iPtr->scriptFile = NULL; + } Tcl_DecrRefCount(iPtr->emptyObjPtr); iPtr->emptyObjPtr = NULL; -- cgit v0.12