diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 19:26:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-26 19:26:11 (GMT) |
| commit | dd1dc3c6e807176799c1fee7ea75c5f29775da8c (patch) | |
| tree | 3c3ab8dda51122d9c4c87dd4fe6b2263fa3c205f /generic/tclProc.c | |
| parent | cc185b1d763af5b2a80b5fc5c25fb2f0c69d0661 (diff) | |
| parent | 3636d805fcf6da495f444297a7159347ff1ed3a0 (diff) | |
| download | tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.zip tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.tar.gz tcl-dd1dc3c6e807176799c1fee7ea75c5f29775da8c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index f826a14..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; } @@ -576,7 +576,7 @@ TclCreateProc( * (its value was kept the same as pre VarReform to simplify * tbcload's processing of older byetcodes). * - * The only other flag vlaue that is important to retrieve from + * The only other flag value that is important to retrieve from * precompiled procs is VAR_TEMPORARY (also unchanged). It is * needed later when retrieving the variable names. */ @@ -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 |