Differences From Artifact [bcd0ec408c]:

• File generic/tclIOUtil.c — part of check-in [49456a66de] at 2023-10-02 07:00:29 on branch main — Merge 8.7 - Fix [02acab5aea], [d8a354f7d9], [62e5508ee], [4af110a6a1], [02acab5aea] - file ensemble bugs for zipfs (user: apnadkarni size: 126306) [more...]

To Artifact [c6a9034fcf]:

• File generic/tclIOUtil.c — part of check-in [4cfbfb3121] at 2023-10-04 21:12:59 on branch main — Merge 8.7 (user: jan.nijtmans size: 126302) [more...]

4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326

int
Tcl_FSDeleteFile(
    Tcl_Obj *pathPtr)		/* Pathname of file to be removed (UTF-8). */
{
    const Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
    int err;
    
    if (fsPtr == NULL) {
	err = ENOENT;
    } else {
	if (fsPtr->deleteFileProc != NULL) {
	    return fsPtr->deleteFileProc(pathPtr);
	}
	err = ENOTSUP;

|

4312
4313
4314
4315
4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326

int
Tcl_FSDeleteFile(
    Tcl_Obj *pathPtr)		/* Pathname of file to be removed (UTF-8). */
{
    const Tcl_Filesystem *fsPtr = Tcl_FSGetFileSystemForPath(pathPtr);
    int err;

    if (fsPtr == NULL) {
	err = ENOENT;
    } else {
	if (fsPtr->deleteFileProc != NULL) {
	    return fsPtr->deleteFileProc(pathPtr);
	}
	err = ENOTSUP;