diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-04-04 14:17:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-04-04 14:17:51 (GMT) |
| commit | 0e4cf5a52093c285dc0f1c2b527e8de75dc43659 (patch) | |
| tree | 73ddf3d340165867923c5a33fd07926c3afb5c10 /generic/tclFCmd.c | |
| parent | 05448bbc9c89bc15975c1d4aa3a61a8fb5e4758b (diff) | |
| parent | 0d695fcd80cec0f53ad553a4b0abacbd29aad68c (diff) | |
| download | tcl-aku_tip_280_cl_perf_trial.zip tcl-aku_tip_280_cl_perf_trial.tar.gz tcl-aku_tip_280_cl_perf_trial.tar.bz2 | |
Merge to feature branchaku_tip_280_cl_perf_trial
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 6d3c013..c3a0a5e 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -1067,6 +1067,9 @@ TclFileAttrsCmd( "option", 0, &index) != TCL_OK) { goto end; } + if (attributeStringsAllocated != NULL) { + TclFreeIntRep(objv[0]); + } if (Tcl_FSFileAttrsGet(interp, index, filePtr, &objPtr) != TCL_OK) { goto end; @@ -1091,6 +1094,9 @@ TclFileAttrsCmd( "option", 0, &index) != TCL_OK) { goto end; } + if (attributeStringsAllocated != NULL) { + TclFreeIntRep(objv[i]); + } if (i + 1 == objc) { Tcl_AppendResult(interp, "value for \"", TclGetString(objv[i]), "\" missing", NULL); |