Differences From Artifact [6658c8829e]:

• File generic/tclIOUtil.c — part of check-in [bcf6945c28] at 2024-06-12 08:47:04 on branch unchained — Merge [fab05e2102] (core-8-branch): More Tcl_Size. (user: pooryorick size: 126142) [more...]

To Artifact [be66606578]:

• File generic/tclIOUtil.c — part of check-in [4bb85c7a17] at 2024-06-27 10:05:15 on branch unchained — Remove unneeded "unsigned" declaration in EvalFileCallback. Silence warnings about unused parameters. (user: pooryorick size: 126133) [more...]

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969

    } else if (result == TCL_ERROR) {
	/*
	 * Record information about where the error occurred.
	 */

	Tcl_Size length;
	const char *pathString = Tcl_GetStringFromObj(pathPtr, &length);
	const unsigned int limit = 150;
	int overflow = (length > limit);

	Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
		"\n    (file \"%.*s%s\" line %d)",
		(overflow ? limit : (int)length), pathString,
		(overflow ? "..." : ""), Tcl_GetErrorLine(interp)));
    }

|

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969

    } else if (result == TCL_ERROR) {
	/*
	 * Record information about where the error occurred.
	 */

	Tcl_Size length;
	const char *pathString = Tcl_GetStringFromObj(pathPtr, &length);
	const int limit = 150;
	int overflow = (length > limit);

	Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf(
		"\n    (file \"%.*s%s\" line %d)",
		(overflow ? limit : (int)length), pathString,
		(overflow ? "..." : ""), Tcl_GetErrorLine(interp)));
    }