diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:48:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:48:25 (GMT) |
| commit | 21178dbbd499d1be3e588873df2b9bfe8c20ec7a (patch) | |
| tree | 8aa225b22e011a9f0597f54ada64805cab4d3261 | |
| parent | d15e74d08ce39980b434b335870fe4c73cf322bb (diff) | |
| parent | 2a68bfa4416312e561cd9ccf86ae1affe3f7bf24 (diff) | |
| download | tcl-21178dbbd499d1be3e588873df2b9bfe8c20ec7a.zip tcl-21178dbbd499d1be3e588873df2b9bfe8c20ec7a.tar.gz tcl-21178dbbd499d1be3e588873df2b9bfe8c20ec7a.tar.bz2 | |
Merge 8.7
| -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 e8165d8..acb520c 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; } @@ -1085,7 +1085,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; @@ -1595,7 +1595,6 @@ TclPushProcCallFrame( *---------------------------------------------------------------------- */ -#undef TclObjInterpProc int TclObjInterpProc( ClientData clientData, /* Record describing procedure to be |