diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-22 18:13:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-22 18:13:17 (GMT) |
| commit | b46c53fec03b48c96092ef01990c03a00891fb8c (patch) | |
| tree | 8618cf39a9aa59709a21be76dd8b16b6d1c5752a /generic/tclAssembly.c | |
| parent | 5f08f4b52618056de417f6d543d5bd596d9197eb (diff) | |
| download | tcl-b46c53fec03b48c96092ef01990c03a00891fb8c.zip tcl-b46c53fec03b48c96092ef01990c03a00891fb8c.tar.gz tcl-b46c53fec03b48c96092ef01990c03a00891fb8c.tar.bz2 | |
Refactor bytecode cleanup.
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 6d5676b..7db5d69 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -866,7 +866,7 @@ CompileAssembleObj( * Not valid, so free it and regenerate. */ - FreeAssembleCodeInternalRep(objPtr); + TclFreeIntRep(objPtr); } /* @@ -4313,11 +4313,7 @@ FreeAssembleCodeInternalRep( { ByteCode *codePtr = objPtr->internalRep.twoPtrValue.ptr1; - codePtr->refCount--; - if (codePtr->refCount <= 0) { - TclCleanupByteCode(codePtr); - } - objPtr->typePtr = NULL; + TclReleaseByteCode(codePtr); } /* |