diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:47:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:47:18 (GMT) |
| commit | 2a68bfa4416312e561cd9ccf86ae1affe3f7bf24 (patch) | |
| tree | 9c985e08122899f5fc16c0c0e6d547b7fd95a547 | |
| parent | a59905b2560b3431f9622f7eba70b9586140b812 (diff) | |
| parent | 0eab000d0ed26d3e5a80a5a4a76bc58c8c5d3634 (diff) | |
| download | tcl-2a68bfa4416312e561cd9ccf86ae1affe3f7bf24.zip tcl-2a68bfa4416312e561cd9ccf86ae1affe3f7bf24.tar.gz tcl-2a68bfa4416312e561cd9ccf86ae1affe3f7bf24.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | generic/tclProc.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index c0964ea..1644376 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -485,7 +485,7 @@ TclCreateProc( * in the Proc. */ - result = TclListObjGetElementsM(interp , argsPtr ,&numArgs ,&argArray); + result = TclListObjGetElementsM(interp, argsPtr, &numArgs, &argArray); if (result != TCL_OK) { goto procError; } @@ -1089,7 +1089,7 @@ ProcWrongNumArgs( Tcl_IncrRefCount(desiredObjs[0]); if (localCt > 0) { - Var *defPtr = (Var *) (&framePtr->localCachePtr->varName0 + localCt); + Var *defPtr = (Var *)(&framePtr->localCachePtr->varName0 + localCt); for (i=1 ; i<=numArgs ; i++, defPtr++) { Tcl_Obj *argObj; @@ -1646,7 +1646,6 @@ TclPushProcCallFrame( *---------------------------------------------------------------------- */ -#undef TclObjInterpProc int TclObjInterpProc( ClientData clientData, /* Record describing procedure to be |