diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-06-22 20:42:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-06-22 20:42:22 (GMT) |
| commit | 502f655491642c7cc617929b6e51b9e966d317bd (patch) | |
| tree | f2b17196e1b5deb5121fdc81218a070a64828e5b /generic/tclCmdIL.c | |
| parent | 6d2ef9cec6186ac320b6baea1c8c35d20b953061 (diff) | |
| download | tcl-502f655491642c7cc617929b6e51b9e966d317bd.zip tcl-502f655491642c7cc617929b6e51b9e966d317bd.tar.gz tcl-502f655491642c7cc617929b6e51b9e966d317bd.tar.bz2 | |
* generic/tclCmdIL.c: More conversions to use TclStackAlloc.
* generic/tclScan.c:
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 2112d6f..702bdca 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.118 2007/06/20 18:46:07 dgp Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.119 2007/06/22 20:42:23 dgp Exp $ */ #include "tclInt.h" @@ -4026,7 +4026,9 @@ Tcl_LsortObjCmd( if (sortInfo.resultCode != TCL_OK || length <= 0) { goto done; } - elementArray = (SortElement *) ckalloc(length * sizeof(SortElement)); + + elementArray = (SortElement *) + TclStackAlloc(interp, length * sizeof(SortElement)); for (i=0; i < length; i++){ elementArray[i].objPtr = listObjPtrs[i]; elementArray[i].count = 0; @@ -4064,7 +4066,7 @@ Tcl_LsortObjCmd( } Tcl_SetObjResult(interp, resultPtr); } - ckfree((char *) elementArray); + TclStackFree(interp, elementArray); done: if (sortInfo.sortMode == SORTMODE_COMMAND) { |