Differences From Artifact [d35cf0ee46]:

• File generic/tclIOUtil.c — part of check-in [c3e090e484] at 2017-09-01 14:00:17 on branch zipfs — merge core-8-6-branch (user: jan.nijtmans size: 137250) [more...]

To Artifact [1a8930377f]:

• File generic/tclIOUtil.c — part of check-in [91496a5088] at 2017-11-17 12:33:14 on branch zipfs — merge core-8-6-branch (user: jan.nijtmans size: 137235) [more...]

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424

    }
    Tcl_DStringInit(cwdPtr);
    TclDStringAppendObj(cwdPtr, cwd);
    Tcl_DecrRefCount(cwd);
    return Tcl_DStringValue(cwdPtr);
}

/* Obsolete */
int
Tcl_EvalFile(
    Tcl_Interp *interp,		/* Interpreter in which to process file. */
    const char *fileName)	/* Name of file to process. Tilde-substitution
				 * will be performed on this name. */
{
    int ret;

<

410
411
412
413
414
415
416

417
418
419
420
421
422
423

    }
    Tcl_DStringInit(cwdPtr);
    TclDStringAppendObj(cwdPtr, cwd);
    Tcl_DecrRefCount(cwd);
    return Tcl_DStringValue(cwdPtr);
}


int
Tcl_EvalFile(
    Tcl_Interp *interp,		/* Interpreter in which to process file. */
    const char *fileName)	/* Name of file to process. Tilde-substitution
				 * will be performed on this name. */
{
    int ret;