diff options
| -rw-r--r-- | ChangeLog | 10 | ||||
| -rw-r--r-- | generic/tclFCmd.c | 6 | ||||
| -rwxr-xr-x[-rw-r--r--] | tools/configure | 0 |
3 files changed, 14 insertions, 2 deletions
@@ -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 |