diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-05 12:09:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-05 12:09:24 (GMT) |
| commit | a2630a8d1de1d2f03d766b26be2c036bf267cbe9 (patch) | |
| tree | 225768695751f7d6c267f71b73832507ffdc4643 /generic/tclProc.c | |
| parent | 1ac5bc1c98b345bfcc00d037828fc5cf0ca93b15 (diff) | |
| download | tcl-a2630a8d1de1d2f03d766b26be2c036bf267cbe9.zip tcl-a2630a8d1de1d2f03d766b26be2c036bf267cbe9.tar.gz tcl-a2630a8d1de1d2f03d766b26be2c036bf267cbe9.tar.bz2 | |
int -> Tcl_Size for 2 internal functions
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 85e5c6f..ab47eaa 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -51,6 +51,7 @@ static int SetLambdaFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static Tcl_NRPostProc ApplyNR2; static Tcl_NRPostProc InterpProcNR2; static Tcl_NRPostProc Uplevel_Callback; +static Tcl_ObjCmdProc NRInterpProc; /* * The ProcBodyObjType type @@ -208,7 +209,7 @@ Tcl_ProcObjCmd( } cmd = TclNRCreateCommandInNs(interp, simpleName, (Tcl_Namespace *) nsPtr, - TclObjInterpProc, TclNRInterpProc, procPtr, TclProcDeleteProc); + TclObjInterpProc, NRInterpProc, procPtr, TclProcDeleteProc); /* * Now initialize the new procedure's cmdPtr field. This will be used @@ -1610,7 +1611,7 @@ TclObjInterpProc( * Not used much in the core; external interface for iTcl */ - return Tcl_NRCallObjProc(interp, TclNRInterpProc, clientData, objc, objv); + return Tcl_NRCallObjProc(interp, NRInterpProc, clientData, objc, objv); } int @@ -1619,7 +1620,7 @@ TclNRInterpProc( * interpreted. */ Tcl_Interp *interp,/* Interpreter in which procedure was * invoked. */ - int objc, /* Count of number of arguments to this + Tcl_Size objc, /* Count of number of arguments to this * procedure. */ Tcl_Obj *const objv[]) /* Argument value objects. */ { @@ -1633,12 +1634,12 @@ TclNRInterpProc( } static int -NRInterpProc2( +NRInterpProc( void *clientData, /* Record describing procedure to be * interpreted. */ Tcl_Interp *interp, /* Interpreter in which procedure was * invoked. */ - Tcl_Size objc, /* Count of number of arguments to this + int objc, /* Count of number of arguments to this * procedure. */ Tcl_Obj *const objv[]) /* Argument value objects. */ { @@ -1665,7 +1666,7 @@ ObjInterpProc2( * Not used much in the core; external interface for iTcl */ - return Tcl_NRCallObjProc2(interp, NRInterpProc2, clientData, objc, objv); + return Tcl_NRCallObjProc2(interp, TclNRInterpProc, clientData, objc, objv); } |