summaryrefslogtreecommitdiffstats
path: root/generic/tclOOMethod.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r--generic/tclOOMethod.c10
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index 8dfb834..8ce3c34 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclOOMethod.c,v 1.9 2008/07/27 22:18:23 nijtmans Exp $
+ * RCS: @(#) $Id: tclOOMethod.c,v 1.10 2008/07/27 22:28:54 dkf Exp $
*/
#ifdef HAVE_CONFIG_H
@@ -736,7 +736,6 @@ PushMethodCallFrame(
register int result;
const char *namePtr;
CallFrame **framePtrPtr = &fdPtr->framePtr;
- static const Tcl_ObjType *byteCodeTypePtr = NULL; /* HACK! */
/*
* Compute basic information on the basis of the type of method it is.
@@ -786,18 +785,13 @@ PushMethodCallFrame(
fdPtr->cmd.clientData = &fdPtr->efi;
pmPtr->procPtr->cmdPtr = &fdPtr->cmd;
- /* Should be a reference to tclByteCodeType, but that's MODULE_SCOPE */
- if (byteCodeTypePtr == NULL ||
- pmPtr->procPtr->bodyPtr->typePtr != byteCodeTypePtr) {
+ if (pmPtr->procPtr->bodyPtr->typePtr != &tclByteCodeType) {
result = TclProcCompileProc(interp, pmPtr->procPtr,
pmPtr->procPtr->bodyPtr, (Namespace *) nsPtr,
"body of method", namePtr);
if (result != TCL_OK) {
return result;
}
- if (byteCodeTypePtr == NULL) {
- byteCodeTypePtr = pmPtr->procPtr->bodyPtr->typePtr;
- }
}
/*