Differences From Artifact [16bdd9b5d7]:

• File generic/tclUtf.c — part of check-in [be233f3e67] at 2019-09-25 13:42:11 on branch utf-max — Merge 8.7 (user: jan.nijtmans size: 59947) [more...]

To Artifact [e638928518]:

• File generic/tclUtf.c — part of check-in [4105725743] at 2019-12-03 16:13:29 on branch utf-max — Merge 8.7 (user: jan.nijtmans size: 59942) [more...]

1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

    result = TclParseBackslash(src, LINE_LENGTH, &numRead, dst);
    if (numRead == LINE_LENGTH) {
	/*
	 * We ate a whole line. Pay the price of a strlen()
	 */

	result = TclParseBackslash(src, (int)strlen(src), &numRead, dst);
    }
    if (readPtr != NULL) {
	*readPtr = numRead;
    }
    return result;
}


|

1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077

    result = TclParseBackslash(src, LINE_LENGTH, &numRead, dst);
    if (numRead == LINE_LENGTH) {
	/*
	 * We ate a whole line. Pay the price of a strlen()
	 */

	result = TclParseBackslash(src, strlen(src), &numRead, dst);
    }
    if (readPtr != NULL) {
	*readPtr = numRead;
    }
    return result;
}