diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-11-13 15:23:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-11-13 15:23:42 (GMT) |
| commit | e38f8275221071a0f0c7ab3dedf264f91f76a5eb (patch) | |
| tree | a104c06eec6b7205ee06763ccff2e05b434bb4c7 /generic/tclOODefineCmds.c | |
| parent | fc3971425ebb6b5c78c8300b280560a5d5920388 (diff) | |
| parent | d739e9b6a832caa5729f3d77aaf3017b0c1fb867 (diff) | |
| download | tcl-e38f8275221071a0f0c7ab3dedf264f91f76a5eb.zip tcl-e38f8275221071a0f0c7ab3dedf264f91f76a5eb.tar.gz tcl-e38f8275221071a0f0c7ab3dedf264f91f76a5eb.tar.bz2 | |
Plug memory leak. Fork new trunk that isn't broken.
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index 9d23f8f..3f8d2d6 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -1449,6 +1449,8 @@ TclOODefineClassObjCmd( TclOODeleteDescendants(interp, oPtr); oPtr->flags &= ~DONT_DELETE; TclOOReleaseClassContents(interp, oPtr); + Tcl_Free(oPtr->classPtr); + oPtr->classPtr = NULL; } else if (!wasClass && willBeClass) { TclOOAllocClass(interp, oPtr); } |