Tcl Source Code

Check-in [3b340542f2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:revert mistaken commit of experiment
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3b340542f28dd6ae4b40beb5c77bb8d1cb309dd9
User & Date: dgp 2013-09-23 12:18:45
Context
2013-09-26
14:27
Tcl_SetResult -> Tcl_SetObjResult check-in: 15647dce75 user: jan.nijtmans tags: trunk
2013-09-24
05:43
Support compiling Tcl for Win32 on ARM. Closed-Leaf check-in: fbab8d9b31 user: mistachkin tags: win32-arm
2013-09-23
20:04
merge trunk check-in: 6ec1685ef4 user: jan.nijtmans tags: novem
18:14
merge trunk check-in: f72962c880 user: dgp tags: dgp-refactor
12:18
revert mistaken commit of experiment check-in: 3b340542f2 user: dgp tags: trunk
11:27
workaround for mingw bug http://comments.gmane.org/gmane.comp.gnu.mingw.user/41724 check-in: 146b87c2f1 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIOUtil.c.

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
    /*
     * TIP #280: Force the evaluator to open a frame for a sourced file.
     */

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

static int
EvalFileCallback(
    ClientData data[],
    Tcl_Interp *interp,
    int result)







|







1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
    /*
     * TIP #280: Force the evaluator to open a frame for a sourced file.
     */

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

static int
EvalFileCallback(
    ClientData data[],
    Tcl_Interp *interp,
    int result)