diff options
| author | dkf <dkf@noemail.net> | 2011-03-24 09:45:59 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2011-03-24 09:45:59 (GMT) |
| commit | fdc3e8d5318703506a5eca3bd0863678b540f1d8 (patch) | |
| tree | 2e9ad98188b432f5792e3b90fce719d25958e8aa /generic/tclFCmd.c | |
| parent | 3799f89aa09b3662de50c4ba8bb10a6c84629e58 (diff) | |
| parent | 85f370c058cfe231a9ac2bd5ea53da05a5606fa0 (diff) | |
| download | tcl-fdc3e8d5318703506a5eca3bd0863678b540f1d8.zip tcl-fdc3e8d5318703506a5eca3bd0863678b540f1d8.tar.gz tcl-fdc3e8d5318703506a5eca3bd0863678b540f1d8.tar.bz2 | |
Ensure that any reference to temporary index tables is squelched immediately
rather than hanging around to trip us up in the future.
FossilOrigin-Name: 3971651ab7d6ced32757dba1f25b7c28c28b5b4b
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 6 |
1 files changed, 6 insertions, 0 deletions
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); |