diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 13:29:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 13:29:18 (GMT) |
| commit | 631921df54073544d555cfc65c5d237703b5de91 (patch) | |
| tree | 83073703c28c46fb815f64e285de756a4940f9a2 /generic/tclOOMethod.c | |
| parent | a755c6601a9ede64e9e928be91f095c4954cf399 (diff) | |
| parent | 20b89e16049a89c0fba39bf0762494140bd14663 (diff) | |
| download | tcl-631921df54073544d555cfc65c5d237703b5de91.zip tcl-631921df54073544d555cfc65c5d237703b5de91.tar.gz tcl-631921df54073544d555cfc65c5d237703b5de91.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 3d81912..0801897 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -157,7 +157,7 @@ Tcl_NewInstanceMethod( Tcl_InitObjHashTable(oPtr->methodsPtr); oPtr->flags &= ~USE_CLASS_CACHE; } - hPtr = Tcl_CreateHashEntry(oPtr->methodsPtr, (char *) nameObj, &isNew); + hPtr = Tcl_CreateHashEntry(oPtr->methodsPtr, nameObj, &isNew); if (isNew) { mPtr = (Method *)Tcl_Alloc(sizeof(Method)); mPtr->namePtr = nameObj; @@ -224,7 +224,7 @@ Tcl_NewMethod( mPtr->refCount = 1; goto populate; } - hPtr = Tcl_CreateHashEntry(&clsPtr->classMethods, (char *)nameObj,&isNew); + hPtr = Tcl_CreateHashEntry(&clsPtr->classMethods, nameObj,&isNew); if (isNew) { mPtr = (Method *)Tcl_Alloc(sizeof(Method)); mPtr->refCount = 1; @@ -515,7 +515,7 @@ TclOOMakeProcInstanceMethod( cfPtr->len = 0; hPtr = Tcl_CreateHashEntry(iPtr->linePBodyPtr, - (char *) procPtr, &isNew); + procPtr, &isNew); Tcl_SetHashValue(hPtr, cfPtr); } @@ -628,7 +628,7 @@ TclOOMakeProcMethod( cfPtr->len = 0; hPtr = Tcl_CreateHashEntry(iPtr->linePBodyPtr, - (char *) procPtr, &isNew); + procPtr, &isNew); Tcl_SetHashValue(hPtr, cfPtr); } @@ -1062,7 +1062,7 @@ ProcedureMethodCompiledVarConnect( gotMatch: hPtr = Tcl_CreateHashEntry(TclVarTable(contextPtr->oPtr->namespacePtr), - (char *) variableObj, &isNew); + variableObj, &isNew); if (isNew) { TclSetVarNamespaceVar((Var *) TclVarHashGetValue(hPtr)); } @@ -1468,9 +1468,8 @@ InvokeForwardMethod( CallContext *contextPtr = (CallContext *) context; ForwardMethod *fmPtr = (ForwardMethod *)clientData; Tcl_Obj **argObjs, **prefixObjs; - size_t numPrefixes; + size_t numPrefixes, skip = contextPtr->skip; int len; - int skip = contextPtr->skip; /* * Build the real list of arguments to use. Note that we know that the |