diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-06-17 21:29:38 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-06-17 21:29:38 (GMT) |
| commit | 8b5c36b91378cc731b5edbb642744ef7355d57e5 (patch) | |
| tree | ab4834413ded370d2e9728cf233f1ca18bdae518 /generic/tclProc.c | |
| parent | 9877a84296b7927a7ed00c9b35d67e797f21a75e (diff) | |
| download | tcl-8b5c36b91378cc731b5edbb642744ef7355d57e5.zip tcl-8b5c36b91378cc731b5edbb642744ef7355d57e5.tar.gz tcl-8b5c36b91378cc731b5edbb642744ef7355d57e5.tar.bz2 | |
Fix [Bug 1738542]
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 f7c7f99..0e4a171 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.122 2007/06/16 13:48:00 dkf Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.123 2007/06/17 21:29:39 dkf Exp $ */ #include "tclInt.h" @@ -24,12 +24,12 @@ static void DupLambdaInternalRep(Tcl_Obj *objPtr, Tcl_Obj *copyPtr); static void FreeLambdaInternalRep(Tcl_Obj *objPtr); -static int InitArgsAndLocals(Tcl_Interp *interp, - Tcl_Obj *procNameObj, int skip); +static int InitArgsAndLocals(Tcl_Interp *interp, + Tcl_Obj *procNameObj, int skip); static void InitCompiledLocals(Tcl_Interp *interp, ByteCode *codePtr, CompiledLocal *localPtr, Var *varPtr, Namespace *nsPtr); -static int PushProcCallFrame(ClientData clientData, +static int PushProcCallFrame(ClientData clientData, register Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int isLambda); static void ProcBodyDup(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr); @@ -540,7 +540,7 @@ TclCreateProc( } /* - * compare the default value if any + * Compare the default value if any. */ if (localPtr->defValuePtr != NULL) { @@ -1412,7 +1412,7 @@ TclInitCompiledLocals( * * Side effects: * The proc's body may be recompiled. A CallFrame is pushed, it will have - * to be popped by the caller. + * to be popped by the caller. * *---------------------------------------------------------------------- */ @@ -1570,6 +1570,7 @@ TclObjInterpProcCore( #if defined(TCL_COMPILE_DEBUG) if (tclTraceExec >= 1) { register CallFrame *framePtr = ((Interp *)interp)->varFramePtr; + register int i; if (framePtr->isProcCallFrame & FRAME_IS_LAMBDA) { fprintf(stdout, "Calling lambda "); |