diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | generic/tclCompile.c | 5 |
2 files changed, 8 insertions, 0 deletions
@@ -1,5 +1,8 @@ 2011-07-15 Don Porter <dgp@users.sourceforge.net> + * generic/tclCompile.c: Avoid segfaults when RecordByteCodeStats() + is called in a deleted interp. + * generic/tclCompile.c: [Bug 467523, 3357771] Prevent circular references in values with ByteCode intreps. They can lead to memory leaks. diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 8aedf95..ae633ea 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -4572,6 +4572,11 @@ RecordByteCodeStats( Interp *iPtr = (Interp *) *codePtr->interpHandle; register ByteCodeStats *statsPtr = &iPtr->stats; + if (iPtr == NULL) { + /* Avoid segfaulting in case we're called in a deleted interp */ + return; + } + statsPtr->numCompilations++; statsPtr->totalSrcBytes += (double) codePtr->numSrcBytes; statsPtr->totalByteCodeBytes += (double) codePtr->structureSize; |