diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-05 00:26:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-05 00:26:54 (GMT) |
| commit | 923ff1e3ca4171dd5d562edfcfc4aaab9dfb8d7a (patch) | |
| tree | a39a82c0a93f888dc256ddbaf203a67b9267e084 /generic/tclFCmd.c | |
| parent | 33d81b98be1160ae0475a3d162cec7359264c8c8 (diff) | |
| download | tcl-923ff1e3ca4171dd5d562edfcfc4aaab9dfb8d7a.zip tcl-923ff1e3ca4171dd5d562edfcfc4aaab9dfb8d7a.tar.gz tcl-923ff1e3ca4171dd5d562edfcfc4aaab9dfb8d7a.tar.bz2 | |
More -1 -> TCL_INDEX_NONE
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 89550d9..c1dbc88 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -1042,7 +1042,7 @@ TclFileAttrsCmd( res = Tcl_FSFileAttrsGet(interp, index, filePtr, &objPtrAttr); if (res == TCL_OK) { Tcl_Obj *objPtr = - Tcl_NewStringObj(attributeStrings[index], -1); + Tcl_NewStringObj(attributeStrings[index], TCL_INDEX_NONE); Tcl_ListObjAppendElement(interp, listPtr, objPtr); Tcl_ListObjAppendElement(interp, listPtr, objPtrAttr); @@ -1492,7 +1492,7 @@ TclFileTemporaryCmd( return TCL_ERROR; } } - Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), TCL_INDEX_NONE)); return TCL_OK; } |