summaryrefslogtreecommitdiffstats
path: root/generic/tclNamesp.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-10-26 17:22:17 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-10-26 17:22:17 (GMT)
commit3c995152fdd1a379578052a87aba364ecdcffa57 (patch)
treea3b6ad0304f47cc638af802dfe1d08f0db0c789c /generic/tclNamesp.c
parent1f316fa5bdbc522015527cd180f58c0e9e077843 (diff)
downloadtcl-3c995152fdd1a379578052a87aba364ecdcffa57.zip
tcl-3c995152fdd1a379578052a87aba364ecdcffa57.tar.gz
tcl-3c995152fdd1a379578052a87aba364ecdcffa57.tar.bz2
* generic/tclInterp.c (ApplyObjCmd):a
* generic/tclNamesp.c (EnsembleImplementationCmd): replaced ckalloc (heap) with TclStackAlloc (execution stack).
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r--generic/tclNamesp.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index a2a1632..f0c5ff8 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -22,7 +22,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclNamesp.c,v 1.105 2006/10/23 22:49:25 msofer Exp $
+ * RCS: @(#) $Id: tclNamesp.c,v 1.106 2006/10/26 17:22:17 msofer Exp $
*/
#include "tclInt.h"
@@ -6272,13 +6272,13 @@ NsEnsembleImplementationCmd(
iPtr->ensembleRewrite.numInsertedObjs += prefixObjc - 2;
}
}
- tempObjv = (Tcl_Obj **) ckalloc(sizeof(Tcl_Obj *)*(objc-2+prefixObjc));
+ tempObjv = (Tcl_Obj **) TclStackAlloc(interp, sizeof(Tcl_Obj *)*(objc-2+prefixObjc));
memcpy(tempObjv, prefixObjv, sizeof(Tcl_Obj *) * prefixObjc);
memcpy(tempObjv+prefixObjc, objv+2, sizeof(Tcl_Obj *) * (objc-2));
result = Tcl_EvalObjv(interp, objc-2+prefixObjc, tempObjv,
TCL_EVAL_INVOKE|TCL_EVAL_NOREWRITE);
Tcl_DecrRefCount(prefixObj);
- ckfree((char *) tempObjv);
+ TclStackFree(interp);
if (isRootEnsemble) {
iPtr->ensembleRewrite.sourceObjs = NULL;
iPtr->ensembleRewrite.numRemovedObjs = 0;