Differences From Artifact [8660e384c5]:

• File generic/tclIOUtil.c — part of check-in [8e9651234b] at 2025-10-10 16:24:34 on branch main — Apply normal indentation/formattiong rule for sub-blocks (user: dkf size: 123756) [more...]

To Artifact [7ecfd80867]:

• File generic/tclIOUtil.c — part of check-in [48d37299c0] at 2025-10-13 15:38:48 on branch c11-varargs-nr-add-callback — Turn TclNRAddCallback into a varargs macro so we don't need quite so many NULLs (user: dkf size: 123745)

1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940

    Tcl_IncrRefCount(iPtr->scriptFile);

    /*
     * TIP #280:  Open a frame for the evaluated script.
     */

    iPtr->evalFlags |= TCL_EVAL_FILE;
    TclNRAddCallback(interp, EvalFileCallback, oldScriptFile, pathPtr, objPtr,
	    NULL);
    return TclNREvalObjEx(interp, objPtr, 0, NULL, INT_MIN);
}

static int
EvalFileCallback(
    void *data[],
    Tcl_Interp *interp,

|
<

1925
1926
1927
1928
1929
1930
1931
1932

1933
1934
1935
1936
1937
1938
1939

    Tcl_IncrRefCount(iPtr->scriptFile);

    /*
     * TIP #280:  Open a frame for the evaluated script.
     */

    iPtr->evalFlags |= TCL_EVAL_FILE;
    TclNRAddCallback(interp, EvalFileCallback, oldScriptFile, pathPtr, objPtr);

    return TclNREvalObjEx(interp, objPtr, 0, NULL, INT_MIN);
}

static int
EvalFileCallback(
    void *data[],
    Tcl_Interp *interp,