diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-18 22:51:10 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-18 22:51:10 (GMT) |
| commit | 92b0317a2aee4e4cddd7870b828083db5e2f9d53 (patch) | |
| tree | 18f20a232250658278a2d0c01dae4aa41a272dfe /generic/tclExecute.c | |
| parent | 1226c2ef3595f10f6ae34fc47c9d26706f4a4351 (diff) | |
| download | tcl-92b0317a2aee4e4cddd7870b828083db5e2f9d53.zip tcl-92b0317a2aee4e4cddd7870b828083db5e2f9d53.tar.gz tcl-92b0317a2aee4e4cddd7870b828083db5e2f9d53.tar.bz2 | |
* generic/tclCmdIL.c (InfoFrameCmd):
* generic/tclCmdMZ.c (Tcl_SwitchObjCmd):
* generic/tclCompile.c (TclInitCompileEnv):
* generic/tclProc.c (Tcl_ProcObjCmd, SetLambdaFromAny): Moved the
CmdFrame off the C stack and onto the Tcl stack.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0020474..1f2a3df 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.297 2007/06/18 21:58:41 msofer Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.298 2007/06/18 22:51:11 msofer Exp $ */ #include "tclInt.h" @@ -1346,7 +1346,7 @@ TclExecuteByteCode( ptrdiff_t *initCatchTop; /* Catch stack top at start of execution. */ Var *compiledLocals; Namespace *namespacePtr; - CmdFrame *bcFramePtr; /* TIP #280: Structure for tracking lines. */ + CmdFrame *bcFramePtr; /* TIP #280: Structure for tracking lines. */ Tcl_Obj **constants = &iPtr->execEnvPtr->constants[0]; /* @@ -7040,7 +7040,7 @@ IllegalExprOperandType( * unchanged. * * Side effects: - * None. + * The CmdFrame at *cfPtr is updated. * *---------------------------------------------------------------------- */ |