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/tclFCmd.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/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 6d3c013..52ad278 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -999,7 +999,7 @@ TclFileAttrsCmd( goto end; } attributeStringsAllocated = (const char **) - TclStackAlloc(interp, (1+numObjStrings) * sizeof(char *)); + ckalloc((1+numObjStrings) * sizeof(char *)); for (index = 0; index < numObjStrings; index++) { Tcl_ListObjIndex(interp, objStrings, index, &objPtr); attributeStringsAllocated[index] = TclGetString(objPtr); @@ -1110,7 +1110,7 @@ TclFileAttrsCmd( * Free up the array we allocated. */ - TclStackFree(interp, (void *) attributeStringsAllocated); + ckfree((void *) attributeStringsAllocated); /* * We don't need this object that was passed to us any more. |