diff options
| author | dkf <dkf@noemail.net> | 2008-10-10 13:04:09 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2008-10-10 13:04:09 (GMT) |
| commit | 8e7e13a0ec9e7c3861f7fd477c4b5a439f83f1c7 (patch) | |
| tree | 215424b1f00d87893e1a29661c0fea343087cb05 /generic/tclOODefineCmds.c | |
| parent | c5a217120dbe9b4caa44c2e7d00531ba4dcaeadb (diff) | |
| download | tcl-8e7e13a0ec9e7c3861f7fd477c4b5a439f83f1c7.zip tcl-8e7e13a0ec9e7c3861f7fd477c4b5a439f83f1c7.tar.gz tcl-8e7e13a0ec9e7c3861f7fd477c4b5a439f83f1c7.tar.bz2 | |
Fix [Bug 2155658]
FossilOrigin-Name: e58e13e88659fbc9baac85841e5c6dcec897befc
Diffstat (limited to 'generic/tclOODefineCmds.c')
| -rw-r--r-- | generic/tclOODefineCmds.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclOODefineCmds.c b/generic/tclOODefineCmds.c index fe7e8de..4d680ea 100644 --- a/generic/tclOODefineCmds.c +++ b/generic/tclOODefineCmds.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOODefineCmds.c,v 1.5 2008/09/23 05:05:54 dkf Exp $ + * RCS: @(#) $Id: tclOODefineCmds.c,v 1.6 2008/10/10 13:04:09 dkf Exp $ */ #ifdef HAVE_CONFIG_H @@ -1305,6 +1305,9 @@ TclOODefineExportObjCmd( if (isNew) { mPtr = (Method *) ckalloc(sizeof(Method)); memset(mPtr, 0, sizeof(Method)); + mPtr->refCount = 1; + mPtr->namePtr = objv[i]; + Tcl_IncrRefCount(objv[i]); Tcl_SetHashValue(hPtr, mPtr); } else { mPtr = Tcl_GetHashValue(hPtr); @@ -1768,6 +1771,9 @@ TclOODefineUnexportObjCmd( if (isNew) { mPtr = (Method *) ckalloc(sizeof(Method)); memset(mPtr, 0, sizeof(Method)); + mPtr->refCount = 1; + mPtr->namePtr = objv[i]; + Tcl_IncrRefCount(objv[i]); Tcl_SetHashValue(hPtr, mPtr); } else { mPtr = Tcl_GetHashValue(hPtr); |