diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2011-08-07 15:46:09 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2011-08-07 15:46:09 (GMT) |
| commit | dbf54eb94bad1e8f6946ba1de21e368e98b81e25 (patch) | |
| tree | bbf523102341bcdd9dbbcf0f2d711f8b1e363a97 /generic/tclOOCall.c | |
| parent | 181fdb92ce57b5756423c6651fc97e11d5c4965c (diff) | |
| download | tcl-dbf54eb94bad1e8f6946ba1de21e368e98b81e25.zip tcl-dbf54eb94bad1e8f6946ba1de21e368e98b81e25.tar.gz tcl-dbf54eb94bad1e8f6946ba1de21e368e98b81e25.tar.bz2 | |
[Bug 3387082]: Plug memory leak in call chain introspection.
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index b5d7c0c..9c9f3c0 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -1166,7 +1166,7 @@ TclOOGetStereotypeCallChain( hPtr = NULL; } - callPtr = (CallChain *) ckalloc(sizeof(CallChain)); + callPtr = ckalloc(sizeof(CallChain)); memset(callPtr, 0, sizeof(CallChain)); callPtr->flags = flags & (PUBLIC_METHOD|PRIVATE_METHOD|FILTER_HANDLING); callPtr->epoch = fPtr->epoch; @@ -1214,9 +1214,7 @@ TclOOGetStereotypeCallChain( } else { if (hPtr == NULL) { if (clsPtr->classChainCache == NULL) { - clsPtr->classChainCache = (Tcl_HashTable *) - ckalloc(sizeof(Tcl_HashTable)); - + clsPtr->classChainCache = ckalloc(sizeof(Tcl_HashTable)); Tcl_InitObjHashTable(clsPtr->classChainCache); } hPtr = Tcl_CreateHashEntry(clsPtr->classChainCache, |