Tcl Source Code: Diff

Differences From Artifact [b9c85dc62a]:

File generic/tclUtf.c — part of check-in [3ea5d3e8a3] at 2019-03-20 22:54:13 on branch utf-max — Merge 8.7 (user: jan.nijtmans size: 64957) [more...]

File generic/tclUtf.c — part of check-in [7c63883789] at 2019-03-21 20:28:49 on branch utf-max — Merge 8.7. Also fix invalid reference to TclUtfToWChar, causing build failure (user: jan.nijtmans size: 64783) [more...]

︙
576 577 578 579 580 581 582 ~~583 584 585~~ 586 587 588 589 590 591 592	576 577 578 579 580 581 582 583 584 585 586 587 588 589 590	- - - +	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';
︙
630 631 632 633 634 635 636 ~~637 638 639 640~~ 641 642 643 644 645 646 647	628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643	- - - - + +	end = src + length - 4; while (p < end) { p += Tcl_UtfToUtf16(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 += TclUtfTo~~WChar~~(p, &ch);~~ if (Tcl_UtfCharComplete(p, end-p)) { p += Tcl_UtfToUtf16(p, &ch); } else { ch = UCHAR(p++); } w++ = ch; } w = '\0'; Tcl_DStringSetLength(dsPtr,
︙