diff options
| author | andreask <andreask> | 2012-02-17 17:15:01 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2012-02-17 17:15:01 (GMT) |
| commit | 95f897e98c8bf4fc08bf9c95aec2d3b41e9d5f41 (patch) | |
| tree | dae9b8061520405c89d9711b4ed324f7e6b19bdd | |
| parent | efe1cdd5b7f7aed22c2c4f10c0a2d77604ab5b7e (diff) | |
| parent | 76adf66e550eb63f49a19c9ada4e49123efea2ec (diff) | |
| download | tcl-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.c | 3 |
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; |