diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
| commit | a53b30cd746bc36dff41401890341aceae4d79cb (patch) | |
| tree | ce5d7f6c3ca8faf0d0dca3f343acf35c896f0757 /generic/tclFCmd.c | |
| parent | c7ebbbdfdd63cb05821f68a743ffcd82305779b3 (diff) | |
| parent | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (diff) | |
| download | tcl-a53b30cd746bc36dff41401890341aceae4d79cb.zip tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.gz tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclFCmd.c')
| -rw-r--r-- | generic/tclFCmd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index b12162c..4a55f06 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -1115,7 +1115,7 @@ TclFileAttrsCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "bad option \"%s\", there are no file attributes in this" " filesystem", TclGetString(objv[0]))); - Tcl_SetErrorCode(interp, "TCL","OPERATION","FATTR","NONE", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL","OPERATION","FATTR","NONE", (char *)NULL); goto end; } @@ -1139,7 +1139,7 @@ TclFileAttrsCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "bad option \"%s\", there are no file attributes in this" " filesystem", TclGetString(objv[0]))); - Tcl_SetErrorCode(interp, "TCL","OPERATION","FATTR","NONE", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL","OPERATION","FATTR","NONE", (char *)NULL); goto end; } @@ -1152,7 +1152,7 @@ TclFileAttrsCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "value for \"%s\" missing", TclGetString(objv[i]))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "FATTR", - "NOVALUE", (void *)NULL); + "NOVALUE", (char *)NULL); goto end; } if (Tcl_FSFileAttrsSet(interp, index, filePtr, |