summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreask <andreask>2012-02-17 17:15:01 (GMT)
committerandreask <andreask>2012-02-17 17:15:01 (GMT)
commit95f897e98c8bf4fc08bf9c95aec2d3b41e9d5f41 (patch)
treedae9b8061520405c89d9711b4ed324f7e6b19bdd
parentefe1cdd5b7f7aed22c2c4f10c0a2d77604ab5b7e (diff)
parent76adf66e550eb63f49a19c9ada4e49123efea2ec (diff)
downloadtcl-95f897e98c8bf4fc08bf9c95aec2d3b41e9d5f41.zip
tcl-95f897e98c8bf4fc08bf9c95aec2d3b41e9d5f41.tar.gz
tcl-95f897e98c8bf4fc08bf9c95aec2d3b41e9d5f41.tar.bz2
Merged core-8-5-branch segfault fix (commits [39f6ebe301] and [a6aa5be5b7]).
-rw-r--r--generic/tclCompile.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 826e49c..1d88e11 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -4593,12 +4593,13 @@ RecordByteCodeStats(
* to add to accumulated statistics. */
{
Interp *iPtr = (Interp *) *codePtr->interpHandle;
- register ByteCodeStats *statsPtr = &iPtr->stats;
+ register ByteCodeStats *statsPtr;
if (iPtr == NULL) {
/* Avoid segfaulting in case we're called in a deleted interp */
return;
}
+ statsPtr = &(iPtr->stats);
statsPtr->numCompilations++;
statsPtr->totalSrcBytes += (double) codePtr->numSrcBytes;