summaryrefslogtreecommitdiffstats
path: root/generic/tclFCmd.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-03-24 09:52:22 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-03-24 09:52:22 (GMT)
commite0bb5d1a8557e43dce2d26d87c19257445449efc (patch)
treef318f8791ad43e47a40a2aa24dedd17d2c1cbf13 /generic/tclFCmd.c
parentfe3d6b650e607816bf94213b17c95b2c6b1d05f0 (diff)
parent0adb400e9b97468fab3726f7a6d3e9b5cab9398a (diff)
downloadtcl-e0bb5d1a8557e43dce2d26d87c19257445449efc.zip
tcl-e0bb5d1a8557e43dce2d26d87c19257445449efc.tar.gz
tcl-e0bb5d1a8557e43dce2d26d87c19257445449efc.tar.bz2
Ensure that any reference to temporary index tables is squelched immediately
rather than hanging around to trip us up in the future.
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r--generic/tclFCmd.c6
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);