diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclFCmd.c | 6 | ||||
| -rw-r--r--[-rwxr-xr-x] | generic/tclThreadAlloc.c | 0 |
2 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); diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index ad1d510..ad1d510 100755..100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c |