diff options
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 5850846..2b4977b 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -1074,6 +1074,7 @@ TclFileAttrsCmd( } if (didAlloc) { TclFreeIntRep(objv[0]); + objv[0]->typePtr = NULL; } if (Tcl_FSFileAttrsGet(interp, index, filePtr, &objPtr) != TCL_OK) { @@ -1101,6 +1102,7 @@ TclFileAttrsCmd( } if (didAlloc) { TclFreeIntRep(objv[i]); + objv[i]->typePtr = NULL; } if (i + 1 == objc) { Tcl_AppendResult(interp, "value for \"", |