diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-29 19:29:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-29 19:29:14 (GMT) |
| commit | d41d08e1111a2353e98c6814043b6441e6e71b64 (patch) | |
| tree | afd15372be814df73b18bb4c139fee4cc1de2be2 /generic/tclExecute.c | |
| parent | 100542f06740e0120d51ef844f61d47b10ce39ef (diff) | |
| download | tcl-dgp_init_bytecode.zip tcl-dgp_init_bytecode.tar.gz tcl-dgp_init_bytecode.tar.bz2 | |
Parameterize TclInitByteCodeObj to callers sense of typePtr.dgp_init_bytecode
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2a2b951..cd28a92 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1565,10 +1565,8 @@ CompileExprObj( */ TclEmitOpcode(INST_DONE, &compEnv); - TclInitByteCodeObj(objPtr, &compEnv); - objPtr->typePtr = &exprCodeType; + codePtr = TclInitByteCodeObj(objPtr, &exprCodeType, &compEnv); TclFreeCompileEnv(&compEnv); - codePtr = objPtr->internalRep.twoPtrValue.ptr1; if (iPtr->varFramePtr->localCachePtr) { codePtr->localCachePtr = iPtr->varFramePtr->localCachePtr; codePtr->localCachePtr->refCount++; |