diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-15 15:26:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-15 15:26:24 (GMT) |
| commit | c698498d6dea2e7b6507e0a2b724c4fb7da502b1 (patch) | |
| tree | 2ad8ebaadbb24145b469e39a5050477514127825 /generic/tclOOCall.c | |
| parent | fb115db64ceb2b31b68345ef5fa6a0c2442cab8e (diff) | |
| parent | 9daf0e2a9975554c4473e2233f05dac5131ff6cf (diff) | |
| download | tcl-c698498d6dea2e7b6507e0a2b724c4fb7da502b1.zip tcl-c698498d6dea2e7b6507e0a2b724c4fb7da502b1.tar.gz tcl-c698498d6dea2e7b6507e0a2b724c4fb7da502b1.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 5f2e672..3bd96a2 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -91,7 +91,7 @@ typedef struct { static void AddClassFiltersToCallContext(Object *const oPtr, Class *clsPtr, struct ChainBuilder *const cbPtr, Tcl_HashTable *const doneFilters, int flags); -static void AddClassMethodNames(Class *clsPtr, const int flags, +static void AddClassMethodNames(Class *clsPtr, int flags, Tcl_HashTable *const namesPtr, Tcl_HashTable *const examinedClassesPtr); static inline void AddDefinitionNamespaceToChain(Class *const definerCls, @@ -306,7 +306,7 @@ FreeMethodNameRep( int TclOOInvokeContext( - ClientData clientData, /* The method call context. */ + void *clientData, /* The method call context. */ Tcl_Interp *interp, /* Interpreter for error reporting, and many * other sorts of context handling (e.g., * commands, variables) depending on method @@ -375,7 +375,7 @@ TclOOInvokeContext( static int SetFilterFlags( - ClientData data[], + void *data[], TCL_UNUSED(Tcl_Interp *), int result) { @@ -387,7 +387,7 @@ SetFilterFlags( static int ResetFilterFlags( - ClientData data[], + void *data[], TCL_UNUSED(Tcl_Interp *), int result) { @@ -399,7 +399,7 @@ ResetFilterFlags( static int FinalizeMethodRefs( - ClientData data[], + void *data[], TCL_UNUSED(Tcl_Interp *), int result) { @@ -671,7 +671,7 @@ CmpStr( static void AddClassMethodNames( Class *clsPtr, /* Class to get method names from. */ - const int flags, /* Whether we are interested in just the + int flags, /* Whether we are interested in just the * public method names. */ Tcl_HashTable *const namesPtr, /* Reference to the hash table to put the |