diff options
| -rw-r--r-- | ChangeLog | 47 | ||||
| -rw-r--r-- | generic/tclFCmd.c | 6 | ||||
| -rw-r--r--[-rwxr-xr-x] | generic/tclThreadAlloc.c | 0 |
3 files changed, 32 insertions, 21 deletions
@@ -1,30 +1,36 @@ +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-23 Miguel Sofer <msofer@users.sf.net> - * generic/tclObj.c: exploit HAVE_FAST_TSD for the deletion context - in TclFreeObj() + * generic/tclObj.c: Exploit HAVE_FAST_TSD for the deletion context in + TclFreeObj() 2011-03-22 Miguel Sofer <msofer@users.sf.net> - * generic/tclThreadAlloc.c: simpler initialization of Cache - under HAVE_FAST_TSD, from mig-alloc-reform. + * generic/tclThreadAlloc.c: Simpler initialization of Cache under + HAVE_FAST_TSD, from mig-alloc-reform. 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-21 Miguel Sofer <msofer@users.sf.net> * generic/tclCkAlloc.c: - * generic/tclInt.h: remove one level of allocator indirection in - non memdebug builds, imported from mig-alloc-reform. + * generic/tclInt.h: Remove one level of allocator indirection in + non-memdebug builds, imported from mig-alloc-reform. 2011-03-20 Miguel Sofer <msofer@users.sf.net> - * generic/tclThreadAlloc.c: imported HAVE_FAST_TSD support from - mig-alloc-reform. The feature has to be enabled by hand: no - autoconf support has been added. It is not clear how universal - a build using this will be: it also requires some loader support. + * generic/tclThreadAlloc.c: Imported HAVE_FAST_TSD support from + mig-alloc-reform. The feature has to be enabled by hand: no autoconf + support has been added. It is not clear how universal a build using + this will be: it also requires some loader support. 2011-03-17 Donal K. Fellows <dkf@users.sf.net> @@ -56,8 +62,8 @@ 2011-03-14 Kevin B. Kenny <kennykb@acm.org> - * tools/tclZIC.tcl (onDayOfMonth): Allow for leading zeroes - in month and day so that tzdata2011d parses correctly. + * tools/tclZIC.tcl (onDayOfMonth): Allow for leading zeroes in month + and day so that tzdata2011d parses correctly. * library/tzdata/America/Havana: * library/tzdata/America/Juneau: * library/tzdata/America/Santiago: @@ -66,14 +72,13 @@ * library/tzdata/Pacific/Easter: * library/tzdata/Pacific/Honolulu: tzdata2011d - * generic/tclAssembly.c (BBEmitInstInt1): Changed parameter - data types in an effort to silence a MSVC warning reported by - Ashok P. Nadkarni. Unable to test, since both forms work on - my machine in VC2005, 2008. 2010, in both release and debug - builds. - * tests/tclTest.c (TestdstringCmd): Restored MSVC buildability - broken by [5574bdd262], which changed the effective return type - of 'ckalloc' from 'char*' to 'void*'. + * generic/tclAssembly.c (BBEmitInstInt1): Changed parameter data types + in an effort to silence a MSVC warning reported by Ashok P. Nadkarni. + Unable to test, since both forms work on my machine in VC2005, 2008, + 2010, in both release and debug builds. + * tests/tclTest.c (TestdstringCmd): Restored MSVC buildability broken + by [5574bdd262], which changed the effective return type of 'ckalloc' + from 'char*' to 'void*'. 2011-03-13 Miguel Sofer <msofer@users.sf.net> 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); diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index ad1d510..ad1d510 100755..100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c |