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/tclOOBasic.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/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 9573720..d81bd72 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -909,7 +909,7 @@ TclOONextToObjCmd( CallFrame *framePtr = iPtr->varFramePtr; Class *classPtr; CallContext *contextPtr; - int i; + size_t i; Tcl_Object object; const char *methodType; @@ -985,7 +985,7 @@ TclOONextToObjCmd( methodType = "method"; } - for (i=contextPtr->index ; i>=0 ; i--) { + for (i=contextPtr->index ; i != TCL_INDEX_NONE ; i--) { struct MInvoke *miPtr = contextPtr->callPtr->chain + i; if (!miPtr->isFilter && miPtr->mPtr->declaringClassPtr == classPtr) { @@ -1218,7 +1218,7 @@ TclOOSelfObjCmd( } else { Method *mPtr; Object *declarerPtr; - int i; + size_t i; for (i=contextPtr->index ; i<contextPtr->callPtr->numChain ; i++){ if (!contextPtr->callPtr->chain[i].isFilter) { |