Tcl Source Code: Diff

Differences From Artifact [29dc2e6ddb]:

File generic/tclUtf.c — part of check-in [bb9b52ab82] at 2019-03-20 22:51:17 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 61496) [more...]

File generic/tclUtf.c — part of check-in [871076a655] at 2019-03-21 20:11:11 on branch trunk — Merge 8.7 (user: jan.nijtmans size: 61321) [more...]

︙
616 617 618 619 620 621 622 ~~623 624 625~~ 626 627 628 629 630 631 632	616 617 618 619 620 621 622 623 624 625 626 627 628 629 630	- - - +	end = src + length - 4; while (p < end) { p += TclUtfToUniChar(p, &ch); w++ = ch; } end += 4; while (p < end) { ~~~~if (((unsigned)(UCHAR(p)-0x80)) < 0x20) {~~ ~~ch = cp1252[UCHAR(p++)-0x80];~~ ~~} else~~ if (Tcl_UtfCharComplete(p, end-p)) {~~ if (Tcl_UtfCharComplete(p, end-p)) { p += TclUtfToUniChar(p, &ch); } else { ch = UCHAR(p++); } w++ = ch; } w = '\0';
︙
670 671 672 673 674 675 676 ~~677 678 679 680~~ 681 682 683 684 685 686 687	668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683	- - - - + +	end = src + length - 4; while (p < end) { p += TclUtfToWChar(p, &ch); w++ = ch; } end += 4; while (p < end) { ~~~~if (((unsigned)(UCHAR(p)-0x80)) < 0x20) {~~ ~~ch = cp1252[UCHAR(p++)-0x80];~~ ~~} else~~ if (Tcl_UtfCharComplete(p, end-p)) { p += TclUtfToWChar(p, &ch);~~ if (Tcl_UtfCharComplete(p, end-p)) { p += TclUtfToWChar(p, &ch); } else { ch = UCHAR(p++); } w++ = ch; } w = '\0'; Tcl_DStringSetLength(dsPtr,
︙