diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-04-16 20:18:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-04-16 20:18:19 (GMT) |
| commit | ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de (patch) | |
| tree | b3dd0444a73886016dd1265f0542e7471cc5f477 /generic/tclBasic.c | |
| parent | 05aa6581cccb3435b6e1e24b98d0f6f5a9df56eb (diff) | |
| download | tcl-ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de.zip tcl-ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de.tar.gz tcl-ce72cf1a029fcf4ca5d5fd7e7bd1925cf53351de.tar.bz2 | |
3610404 When we let go of commandPtr in TclEvalObjvInternal, NULL out the
variable so we don't mistakenly try to use the value later after we freed it.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index cfb5c43..d3b5490 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3652,6 +3652,7 @@ TclEvalObjvInternal( checkTraces = 0; if (commandPtr) { Tcl_DecrRefCount(commandPtr); + commandPtr = NULL; } goto reparseBecauseOfTraces; } |