summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-03-24 09:45:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-03-24 09:45:59 (GMT)
commit0adb400e9b97468fab3726f7a6d3e9b5cab9398a (patch)
tree2e9ad98188b432f5792e3b90fce719d25958e8aa
parent96d78716495c142ef7dc199c849139d3143a08db (diff)
parent8296df7cb7e4d3398fda3276bb2fc5336a8220ab (diff)
downloadtcl-0adb400e9b97468fab3726f7a6d3e9b5cab9398a.zip
tcl-0adb400e9b97468fab3726f7a6d3e9b5cab9398a.tar.gz
tcl-0adb400e9b97468fab3726f7a6d3e9b5cab9398a.tar.bz2
Ensure that any reference to temporary index tables is squelched immediately
rather than hanging around to trip us up in the future.
-rw-r--r--ChangeLog10
-rw-r--r--generic/tclFCmd.c6
-rwxr-xr-x[-rw-r--r--]tools/configure0
3 files changed, 14 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 3284144..168dc0b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,11 +1,17 @@
+2011-03-24 Donal K. Fellows <dkf@users.sf.net>
+
+ * generic/tclFCmd.c (TclFileAttrsCmd): Ensure that any reference to
+ temporary index tables is squelched immediately rather than hanging
+ around to trip us up in the future.
+
2011-03-21 Jan Nijtmans <nijtmans@users.sf.net>
- * unix/tclLoadDl.c: [Bug #3216070] Loading extension libraries
+ * unix/tclLoadDl.c: [Bug #3216070]: Loading extension libraries
* unix/tclLoadDyld.c: from embedded Tcl applications.
2011-03-16 Jan Nijtmans <nijtmans@users.sf.net>
- * generic/tclCkalloc.c: [Bug #3197864] pointer truncation on Win64
+ * generic/tclCkalloc.c: [Bug #3197864]: pointer truncation on Win64
TCL_MEM_DEBUG builds
2011-03-16 Don Porter <dgp@users.sourceforge.net>
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c
index 6cd641f..53f955f 100644
--- a/generic/tclFCmd.c
+++ b/generic/tclFCmd.c
@@ -1069,6 +1069,9 @@ TclFileAttrsCmd(
"option", 0, &index) != TCL_OK) {
goto end;
}
+ if (numObjStrings != -1) {
+ TclFreeIntRep(objv[0]);
+ }
if (Tcl_FSFileAttrsGet(interp, index, filePtr,
&objPtr) != TCL_OK) {
goto end;
@@ -1093,6 +1096,9 @@ TclFileAttrsCmd(
"option", 0, &index) != TCL_OK) {
goto end;
}
+ if (numObjStrings != -1) {
+ TclFreeIntRep(objv[i]);
+ }
if (i + 1 == objc) {
Tcl_AppendResult(interp, "value for \"",
TclGetString(objv[i]), "\" missing", NULL);
diff --git a/tools/configure b/tools/configure
index 98b5867..98b5867 100644..100755
--- a/tools/configure
+++ b/tools/configure