diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-31 10:31:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-31 10:31:55 (GMT) |
| commit | 2f3e5e010b0f103d9c1afbe009a9ca9aa648766e (patch) | |
| tree | 93d16010bea954703aad736080cb17ea3af82b51 /generic/tclAssembly.c | |
| parent | f50bf4d17a2021e535f47e5253e24bd3dc1269b5 (diff) | |
| parent | 31f3f5ff6333217316c5da442a0194085211dfe1 (diff) | |
| download | tcl-2f3e5e010b0f103d9c1afbe009a9ca9aa648766e.zip tcl-2f3e5e010b0f103d9c1afbe009a9ca9aa648766e.tar.gz tcl-2f3e5e010b0f103d9c1afbe009a9ca9aa648766e.tar.bz2 | |
merge core-8-5-branch
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index c4eeded..0f05d06 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -858,7 +858,7 @@ CompileAssembleObj( if (objPtr->typePtr == &assembleCodeType) { namespacePtr = iPtr->varFramePtr->nsPtr; - codePtr = objPtr->internalRep.otherValuePtr; + codePtr = objPtr->internalRep.twoPtrValue.ptr1; if (((Interp *) *codePtr->interpHandle == iPtr) && (codePtr->compileEpoch == iPtr->compileEpoch) && (codePtr->nsPtr == namespacePtr) @@ -943,7 +943,7 @@ CompileAssembleObj( * Record the local variable context to which the bytecode pertains */ - codePtr = objPtr->internalRep.otherValuePtr; + codePtr = objPtr->internalRep.twoPtrValue.ptr1; if (iPtr->varFramePtr->localCachePtr) { codePtr->localCachePtr = iPtr->varFramePtr->localCachePtr; codePtr->localCachePtr->refCount++; @@ -4336,14 +4336,13 @@ static void FreeAssembleCodeInternalRep( Tcl_Obj *objPtr) { - ByteCode *codePtr = objPtr->internalRep.otherValuePtr; + ByteCode *codePtr = objPtr->internalRep.twoPtrValue.ptr1; codePtr->refCount--; if (codePtr->refCount <= 0) { TclCleanupByteCode(codePtr); } objPtr->typePtr = NULL; - objPtr->internalRep.otherValuePtr = NULL; } /* |