diff options
| -rw-r--r-- | generic/tclOOInt.h | 3 | ||||
| -rw-r--r-- | generic/tclOOMethod.c | 17 |
2 files changed, 0 insertions, 20 deletions
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 165d905..6430046 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -492,9 +492,6 @@ MODULE_SCOPE void TclOOAddToMixinSubs(Class *subPtr, Class *mixinPtr); MODULE_SCOPE void TclOOAddToSubclasses(Class *subPtr, Class *superPtr); MODULE_SCOPE Class * TclOOAllocClass(Tcl_Interp *interp, Object *useThisObj); -MODULE_SCOPE int TclMethodIsType(Tcl_Method method, - const Tcl_MethodType *typePtr, - void **clientDataPtr); MODULE_SCOPE int TclNRNewObjectInstance(Tcl_Interp *interp, Tcl_Class cls, const char *nameStr, const char *nsNameStr, int objc, diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 80e1757..feaeb23 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1672,23 +1672,6 @@ Tcl_MethodName( } int -TclMethodIsType( - Tcl_Method method, - const Tcl_MethodType *typePtr, - void **clientDataPtr) -{ - Method *mPtr = (Method *) method; - - if (mPtr->typePtr == typePtr) { - if (clientDataPtr != NULL) { - *clientDataPtr = mPtr->clientData; - } - return 1; - } - return 0; -} - -int Tcl_MethodIsType( Tcl_Method method, const Tcl_MethodType *typePtr, |