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/tclIndexObj.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/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index d98842e..f9511af 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -952,12 +952,12 @@ Tcl_WrongNumArgs( len = Tcl_ScanCountedElement(elementStr, elemLen, &flags); if (MAY_QUOTE_WORD && len != elemLen) { - char *quotedElementStr = TclStackAlloc(interp, (unsigned)len); + char *quotedElementStr = ckalloc((unsigned)len); len = Tcl_ConvertCountedElement(elementStr, elemLen, quotedElementStr, flags); Tcl_AppendToObj(objPtr, quotedElementStr, len); - TclStackFree(interp, quotedElementStr); + ckfree(quotedElementStr); } else { Tcl_AppendToObj(objPtr, elementStr, elemLen); } @@ -1006,12 +1006,12 @@ Tcl_WrongNumArgs( len = Tcl_ScanCountedElement(elementStr, elemLen, &flags); if (MAY_QUOTE_WORD && len != elemLen) { - char *quotedElementStr = TclStackAlloc(interp,(unsigned) len); + char *quotedElementStr = ckalloc((unsigned) len); len = Tcl_ConvertCountedElement(elementStr, elemLen, quotedElementStr, flags); Tcl_AppendToObj(objPtr, quotedElementStr, len); - TclStackFree(interp, quotedElementStr); + ckfree(quotedElementStr); } else { Tcl_AppendToObj(objPtr, elementStr, elemLen); } |