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 | 16869d9a0554a0e248f7c85e37acf5d10b228906 (patch) | |
| tree | 93d16010bea954703aad736080cb17ea3af82b51 /generic/tclAssembly.c | |
| parent | 4eaaa750d1b7d6a7670e51be27a149a21f68c7ef (diff) | |
| parent | abc1ba4c1cfe287f7f51dcb9ad436dae39d9953a (diff) | |
| download | tcl-16869d9a0554a0e248f7c85e37acf5d10b228906.zip tcl-16869d9a0554a0e248f7c85e37acf5d10b228906.tar.gz tcl-16869d9a0554a0e248f7c85e37acf5d10b228906.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; } /* |