diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-09 20:12:53 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-09 20:12:53 (GMT) |
| commit | a4338c631ef67bfe928e7764ab1fc89d0a3a2e62 (patch) | |
| tree | c9cb6877f88fcbfad1512aa0fd12c16dc9738a77 /generic/tclObj.c | |
| parent | c17b51664c1993d118f7a0611afc339d8e84d1c3 (diff) | |
| download | tcl-a4338c631ef67bfe928e7764ab1fc89d0a3a2e62.zip tcl-a4338c631ef67bfe928e7764ab1fc89d0a3a2e62.tar.gz tcl-a4338c631ef67bfe928e7764ab1fc89d0a3a2e62.tar.bz2 | |
* generic/tclBasic.c: Split TEOv in two, by separating a
processor for non-TCL_OK returns. Also spli TEOvI in a full
version that handles non-existing and traced commands, and a
separate shorter version for the regular case.
* generic/tclBasic.c: Moved the generation of command strings for
* generic/tclTrace.c: traces: previously in Tcl_EvalObjv(), now
in TclCheck[Interp|Execution]Traces(). Also insured that the
strings are properly nul terminated at the correct length
[Bug 1693986]
* generic/tclBasic.c: Extend usage of TclLimitReady() and
* generic/tclExecute.c: (new) TclLimitExceeded() macros.
* generic/tclInt.h:
* generic/tclInterp.c:
* generic/tclInt.h: New TclCleanupCommandMacro for core usage.
* generic/tclBasic.c:
* generic/tclExecute.c:
* generic/tclObj.c:
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 3c95c52..36596c5 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.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: tclObj.c,v 1.122 2007/05/11 09:43:22 dkf Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.123 2007/06/09 20:12:55 msofer Exp $ */ #include "tclInt.h" @@ -3659,7 +3659,7 @@ FreeCmdNameInternalRep( */ Command *cmdPtr = resPtr->cmdPtr; - TclCleanupCommand(cmdPtr); + TclCleanupCommandMacro(cmdPtr); ckfree((char *) resPtr); } } |