diff options
author | mig <mig> | 2013-01-19 04:02:51 (GMT) |
---|---|---|
committer | mig <mig> | 2013-01-19 04:02:51 (GMT) |
commit | c8b1fb73cd6a3182fa40f521132f234a47eb3bcf (patch) | |
tree | 85e512cfdaeef93307f32befd9f5c9fbb6f00b4b /generic/tclOOMethod.c | |
parent | 3ca5f5ccebd7a6bb4ac9b23a5db43e7ec88ad13d (diff) | |
download | tcl-c8b1fb73cd6a3182fa40f521132f234a47eb3bcf.zip tcl-c8b1fb73cd6a3182fa40f521132f234a47eb3bcf.tar.gz tcl-c8b1fb73cd6a3182fa40f521132f234a47eb3bcf.tar.bz2 |
isolate the compiler/engine subsystem - preparing to move them out of generic and permit plugging in other compiler/enginesmig-no280-mistake
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r-- | generic/tclOOMethod.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 628090f..03d19b8 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -14,7 +14,6 @@ #endif #include "tclInt.h" #include "tclOOInt.h" -#include "tclCompile.h" /* * Structure used to contain all the information needed about a call frame @@ -713,12 +712,8 @@ PushMethodCallFrame( * alternative is *so* slow... */ - if (pmPtr->procPtr->bodyPtr->typePtr == &tclByteCodeType) { - ByteCode *codePtr = - pmPtr->procPtr->bodyPtr->internalRep.otherValuePtr; + TclForceBodyNS(pmPtr->procPtr->bodyPtr, nsPtr); - codePtr->nsPtr = nsPtr; - } result = TclProcCompileProc(interp, pmPtr->procPtr, pmPtr->procPtr->bodyPtr, nsPtr, "body of method", namePtr); if (result != TCL_OK) { |