diff options
| author | dgp <dgp@users.sourceforge.net> | 2022-09-25 20:35:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2022-09-25 20:35:51 (GMT) |
| commit | 93fa9836fdfcff4304ffba6f4536219f903497a8 (patch) | |
| tree | 2d34748c714680936040dc08c100955c7a29577d /generic/tclProc.c | |
| parent | 867a57806b590fa5bf88c27901c84dc5343f6a5a (diff) | |
| parent | d72c45709624c9babeb92f017454507315f8bc82 (diff) | |
| download | tcl-93fa9836fdfcff4304ffba6f4536219f903497a8.zip tcl-93fa9836fdfcff4304ffba6f4536219f903497a8.tar.gz tcl-93fa9836fdfcff4304ffba6f4536219f903497a8.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclProc.c')
| -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 |