Differences From Artifact [c73067910f]:

• File generic/tclStrToD.c — part of check-in [2c56cc8106] at 2019-05-14 19:26:55 on branch core-8-branch — Merge 8.6 (user: jan.nijtmans size: 131047) [more...]

To Artifact [35e1eae40e]:

• File generic/tclStrToD.c — part of check-in [06447464cb] at 2019-05-31 11:51:58 on branch core-8-branch — Merge 8.6 (user: jan.nijtmans size: 131042) [more...]

4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587

	if (lsb == -1-shift) {

	    /*
	     * Round to even
	     */

	    mp_div_2d(a, -shift, &b, NULL);
	    if (mp_get_bit(&b, 0)) {
		if (b.sign == MP_ZPOS) {
		    mp_add_d(&b, 1, &b);
		} else {
		    mp_sub_d(&b, 1, &b);
		}
	    }
	} else {

|

4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587

	if (lsb == -1-shift) {

	    /*
	     * Round to even
	     */

	    mp_div_2d(a, -shift, &b, NULL);
	    if (mp_isodd(&b)) {
		if (b.sign == MP_ZPOS) {
		    mp_add_d(&b, 1, &b);
		} else {
		    mp_sub_d(&b, 1, &b);
		}
	    }
	} else {