diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-29 19:32:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-29 19:32:20 (GMT) |
| commit | 29704cd895298352159deb973204ae77d04500a7 (patch) | |
| tree | b6126650ad8abeebbe2b943fa164ae65bb4abebc /generic/tclAssembly.c | |
| parent | 8819aab738e9e53aecbc69f4c3ce8c932241d387 (diff) | |
| parent | 54a8b027741ac316b067f829233dc6e55ed3acdb (diff) | |
| download | tcl-29704cd895298352159deb973204ae77d04500a7.zip tcl-29704cd895298352159deb973204ae77d04500a7.tar.gz tcl-29704cd895298352159deb973204ae77d04500a7.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 9ea0b48..1826fec 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -892,15 +892,13 @@ CompileAssembleObj( */ TclEmitOpcode(INST_DONE, &compEnv); - TclInitByteCodeObj(objPtr, &compEnv); - objPtr->typePtr = &assembleCodeType; + codePtr = TclInitByteCodeObj(objPtr, &assembleCodeType, &compEnv); TclFreeCompileEnv(&compEnv); /* * Record the local variable context to which the bytecode pertains */ - codePtr = objPtr->internalRep.twoPtrValue.ptr1; if (iPtr->varFramePtr->localCachePtr) { codePtr->localCachePtr = iPtr->varFramePtr->localCachePtr; codePtr->localCachePtr->refCount++; |