diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-24 12:46:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-24 12:46:43 (GMT) |
| commit | c3381ada206fac7fc6339040e54d6973107657a8 (patch) | |
| tree | c7494e45b58673415afed7aadf0c045752ff2e83 /generic/tclProc.c | |
| parent | 53eaa0cc18b3edf84e36401110fa5ebdfc849c41 (diff) | |
| parent | 089be89dd5b219a8d5156723b99478293c835f9a (diff) | |
| download | tcl-c3381ada206fac7fc6339040e54d6973107657a8.zip tcl-c3381ada206fac7fc6339040e54d6973107657a8.tar.gz tcl-c3381ada206fac7fc6339040e54d6973107657a8.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index dedbc98..5911087 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1693,9 +1693,9 @@ TclNRInterpProcCore( #ifdef USE_DTRACE if (TCL_DTRACE_PROC_ARGS_ENABLED()) { - int l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; + size_t l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; const char *a[10]; - int i; + size_t i; for (i = 0 ; i < 10 ; i++) { a[i] = (l < iPtr->varFramePtr->objc ? @@ -1714,7 +1714,7 @@ TclNRInterpProcCore( TclDecrRefCount(info); } if (TCL_DTRACE_PROC_ENTRY_ENABLED()) { - int l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; + size_t l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; TCL_DTRACE_PROC_ENTRY(l < iPtr->varFramePtr->objc ? TclGetString(iPtr->varFramePtr->objv[l]) : NULL, @@ -1722,7 +1722,7 @@ TclNRInterpProcCore( (Tcl_Obj **)(iPtr->varFramePtr->objv + l + 1)); } if (TCL_DTRACE_PROC_ENTRY_ENABLED()) { - int l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; + size_t l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; TCL_DTRACE_PROC_ENTRY(l < iPtr->varFramePtr->objc ? TclGetString(iPtr->varFramePtr->objv[l]) : NULL, |