diff options
| author | mig <mig> | 2011-03-18 12:54:54 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-18 12:54:54 (GMT) |
| commit | faf9def2a7c70743d49dd1e923d82b8dc0f9d718 (patch) | |
| tree | fa0e823ccf0388ab9b5df5c91c91aa1247cf1624 /generic/tclInterp.c | |
| parent | df469c8ffaea0347ffe69bd2b776e7840a25d645 (diff) | |
| download | tcl-faf9def2a7c70743d49dd1e923d82b8dc0f9d718.zip tcl-faf9def2a7c70743d49dd1e923d82b8dc0f9d718.tar.gz tcl-faf9def2a7c70743d49dd1e923d82b8dc0f9d718.tar.bz2 | |
development branch for allocator changes
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 67761ed..46a5f42 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -1169,7 +1169,7 @@ Tcl_CreateAlias( int i; int result; - objv = TclStackAlloc(slaveInterp, (unsigned) sizeof(Tcl_Obj *) * argc); + objv = ckalloc((unsigned) sizeof(Tcl_Obj *) * argc); for (i = 0; i < argc; i++) { objv[i] = Tcl_NewStringObj(argv[i], -1); Tcl_IncrRefCount(objv[i]); @@ -1187,7 +1187,7 @@ Tcl_CreateAlias( for (i = 0; i < argc; i++) { Tcl_DecrRefCount(objv[i]); } - TclStackFree(slaveInterp, objv); + ckfree(objv); Tcl_DecrRefCount(targetObjPtr); Tcl_DecrRefCount(slaveObjPtr); @@ -1863,7 +1863,7 @@ AliasObjCmd( if (cmdc <= ALIAS_CMDV_PREALLOC) { cmdv = cmdArr; } else { - cmdv = TclStackAlloc(interp, cmdc * sizeof(Tcl_Obj *)); + cmdv = ckalloc(cmdc * sizeof(Tcl_Obj *)); } prefv = &aliasPtr->objPtr; @@ -1930,7 +1930,7 @@ AliasObjCmd( Tcl_DecrRefCount(cmdv[i]); } if (cmdv != cmdArr) { - TclStackFree(interp, cmdv); + ckfree(cmdv); } return result; #undef ALIAS_CMDV_PREALLOC |