diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
| commit | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (patch) | |
| tree | a1a470de893f0f36bb2bf0b879c9e3689876e5a1 /generic/tclCmdAH.c | |
| parent | f8c457b80f302a4587d875329a789e0906b13989 (diff) | |
| parent | 34acc36d873d6b1ec6a8cd505af4491dfad7fd57 (diff) | |
| download | tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.zip tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.gz tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.bz2 | |
Another round of sentinel improvements
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 6a87582..68d017e 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -875,7 +875,7 @@ EncodingDirsObjCmd( "expected directory list but got \"%s\"", TclGetString(dirListObj))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "ENCODING", "BADPATH", - (void *)NULL); + (char *)NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, dirListObj); @@ -2068,7 +2068,7 @@ PathFilesystemCmd( if (fsInfo == NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj("unrecognised path", -1)); Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "FILESYSTEM", - TclGetString(objv[1]), (void *)NULL); + TclGetString(objv[1]), (char *)NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, fsInfo); @@ -2218,7 +2218,7 @@ PathSplitCmd( "could not read \"%s\": no such file or directory", TclGetString(objv[1]))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "PATHSPLIT", "NONESUCH", - (void *)NULL); + (char *)NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, res); @@ -2320,7 +2320,7 @@ FilesystemSeparatorCmd( Tcl_SetObjResult(interp, Tcl_NewStringObj( "unrecognised path", -1)); Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "FILESYSTEM", - TclGetString(objv[1]), (void *)NULL); + TclGetString(objv[1]), (char *)NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, separatorObj); @@ -2961,7 +2961,7 @@ EachloopCmd( (statePtr->resultList != NULL ? "lmap" : "foreach"))); Tcl_SetErrorCode(interp, "TCL", "OPERATION", (statePtr->resultList != NULL ? "LMAP" : "FOREACH"), - "NEEDVARS", (void *)NULL); + "NEEDVARS", (char *)NULL); result = TCL_ERROR; goto done; } |