diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 14:16:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 14:16:59 (GMT) |
| commit | bf552f0a4d5c314940d025c46551b4e5062c59ac (patch) | |
| tree | 1a17cb666e33f912cb688b254d6cbb0d5c2fc8df /generic/tclProc.c | |
| parent | 36024b4c2dfa88a5b42c42342e1630cb846b59f0 (diff) | |
| download | tcl-bf552f0a4d5c314940d025c46551b4e5062c59ac.zip tcl-bf552f0a4d5c314940d025c46551b4e5062c59ac.tar.gz tcl-bf552f0a4d5c314940d025c46551b4e5062c59ac.tar.bz2 | |
More int -> size_t in internal API
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 4efcf48..9b5d163 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1649,7 +1649,7 @@ TclNRInterpProcCore( Tcl_Interp *interp,/* Interpreter in which procedure was * invoked. */ Tcl_Obj *procNameObj, /* Procedure name for error reporting. */ - int skip, /* Number of initial arguments to be skipped, + size_t skip1, /* Number of initial arguments to be skipped, * i.e., words in the "command name". */ ProcErrorProc *errorProc) /* How to convert results from the script into * results of the overall procedure. */ @@ -1659,6 +1659,7 @@ TclNRInterpProcCore( int result; CallFrame *freePtr; ByteCode *codePtr; + int skip = skip1; result = InitArgsAndLocals(interp, skip); if (result != TCL_OK) { |